<%
Class clsLarry2
	Private rSessionUID '1
	Private rMessage '2
	Private rClipArtFile '3
'	Private rClipArtFile2 '3
	Private mActionFileName '4
	Private mClipArtFolder '5
	Private mClsFolder
	Private mCustomize
'	Private mMaxSections '6
	Private mMaxTextLines '7
	Private mWidthMaxMM '8
	Private mHeightMaxMM '9
	Private mMaxFontSize '10
'	Private mStampShape '11
	Private mProductID '12
	Private mBackGroundName
	Private mTextColorName
'	Private mBlockWidth
'	Private mBlockHeight
'	Private mBlockContent
	Private Conn
'	Private ImagePercent
'	Private ImagePercent2
	Private Sub Class_Initialize()
		Dim arr,clsCN,clsRS,clsSQL
		arr=Array(12)
		rSessionUID=CStr(Session.SessionID)
		rMessage=""
		mActionFileName=""
		mClipArtFolder="stamps/images/nameplateimage/"
'		mClsFolder="nameplates/"
		mMaxTextLines=6
		Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("database/L5XL7L1D.mdb")
		If not IsEmpty(Session.Contents(rSessionUID)) then
			arr=Session.Contents(rSessionUID)
			rSessionUID=arr(1)
			rMessage=arr(2)
			rClipArtFile=arr(3)
			mActionFileName=arr(4)
'			mClipArtFolder=arr(5)
			mClsFolder=arr(6)
'			rClipArtFile2=arr(7)
			mProductID = arr(12)
		else 'Initialize New Session
			if Request.QueryString("ProductCode")<>"" then
				mProductID=Request.QueryString("ProductCode")
			ElseIf Session("tequilamProductID")<>"" then
				mProductID=Session("tequilamProductID")
			Elseif Request.Form("mProductID")<>"" then
				mProductID=Request.Form("mProductID")
			End if
		End if
		on error resume next
		Set clsCN = Server.CreateObject("ADODB.Connection")
		clsCN.Open Conn
		IF Err.Number<>0 then
			Conn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../database/L5XL7L1D.mdb")
			clsCN.Open Conn
		end if
		clsSQL = "SELECT * FROM Products WHERE ProductCode='"& mProductID &"'"
		Set clsRS = Server.CreateObject("ADODB.Recordset")
		clsRS.Open clsSQL,clsCN,0,1
		If Not clsRS.EOF then
			mMaxSections = clsRS.Fields("MaxSections")
'			mMaxTextLines = clsRS.Fields("MaxTextLines")
'			mWidthMaxMM  = CDbl(clsRS.Fields("WidthInches")) *25.4'clsRS.Fields("WidthMaxMM")
'			mHeightMaxMM = CDbl(clsRS.Fields("HeightInches")) *25.4'clsRS.Fields("HeightMaxMM")
'			mMaxFontSize = clsRS.Fields("MaxFontSize")
'			mStampShape = clsRS.Fields("StampShape")
'			mBlockWidth = clsRS.Fields("BlockWidth")
'			mBlockHeight = clsRS.Fields("BlockHeight")
'			mBlockContent = clsRS.Fields("BlockContent")
			mBackGroundName = clsRS.Fields("BackGroundName")
			mTextColorName = clsRS.Fields("TextColorName")
			mCustomize = clsRS.Fields("Customize")
		End if
		clsRS.Close
		clsCN.Close
		Set clsRS = Nothing
		Set clsCN = Nothing
	End Sub

	Private Sub Class_Terminate()
		Dim arr
		arr=Array(12)
		arr(1) = rSessionUID
		arr(2) = rMessage
		arr(3) = rClipArtFile
		arr(4) = mActionFileName
'		arr(5) = mClipArtFolder
		arr(6) = mClsFolder
'		arr(7) = rClipArtFile2
		arr(12)= mProductID
		Session.Contents(rSessionUID)=arr
		Response.Write(rSessionUID)
	End Sub

	Public Property Let ProductID(intN)
		mProductID=intN
	End Property
	Public Property Let ActionFileName(strN)' = 0
		mActionFileName=strN
	End Property
	Public Property Let ClipArtFolder(strN)' = 0
		mClipArtFolder=strN
	End Property
	Public Property Let ClsFolder(strN)' = 0
		mClsFolder=strN
	End Property

	Public Property Get SessionUID()
		SessionUID=rSessionUID
	End Property
	Public Property Get Message()
		Message=rMessage
	End Property
	Public Property Get ClipArtFile()
		ClipArtFile=rClipArtFile
	End Property
	Public Property Get ActionFileName()
		ActionFileName=mActionFileName
	End Property
	Public Property Get ClipArtFolder()
		ClipArtFolder=mClipArtFolder
	End Property
	Public Property Get ClsFolder()
		ClsFolder=mClsFolder
	End Property
	Public Property Get ProductID()
		ProductID=mProductID
	End Property

	Public Sub View()
		DrawImage
		Response.Clear()
Set Image=Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath(mClsFolder&"images/test.jpg")
XClip=Image.MaxX
YClip=Image.MaxY
dim imageqwerty,arr,arr1,tmp2,tmp3,tmp
Set imageqwerty=Server.CreateObject("AspImage.Image")
imageqwerty.Autosize=true
imageqwerty.PadSize=0
Imageqwerty.BackgroundColor= RGB(&hff,&hff,&hff)
imageqwerty.MaxX=CDbl(700)
imageqwerty.MaxY=CDbl(1300)
	Imageqwerty.BrushStyle= 1
	Imageqwerty.BrushColor= RGB(&h99,&hcc,&hff)
	Imageqwerty.FillRect ((700-XClip)/2)-10,2,((700-XClip)/2)+XClip+10,YClip+22
'imageqwerty.Loadimage Server.MapPath(mClsFolder&"images/test.jpg")
Imageqwerty.AddImage Server.MapPath(mClsFolder&"images/test.jpg"), (700-XClip)/2,12
imageqwerty.FontColor=vbBlack
imageqwerty.FontName="Arial"
imageqwerty.FontSize=9
imageqwerty.Bold=True
imageqwerty.Italic=False
ins_h=imageqwerty.TextHeight ("M")+4
imageqwerty.X=2
imageqwerty.Y=YClip+ins_h+22
if int(Request.Form("larNumTextLines"))>0 then
	imageqwerty.Bold=True
	tmp="Text Information"
	imageqwerty.X=2
	imageqwerty.TextOut tmp, imageqwerty.X, imageqwerty.Y, false
	imageqwerty.Y=imageqwerty.Y+ins_h
	imageqwerty.X=2
	'2 15 <15 200 <15 123 <15 32 <15 68 <15 88 <15 88 <15 46 <15
	imageqwerty.Italic=True
	arr=Array(" # "," Text "," Font "," Size"," Style"," Align")
	arr1=Array(15,230,100,100,68,46)
	j=2
	For i=Lbound(arr) to Ubound(arr)
		tmp=arr(i)
		imageqwerty.TextOut tmp, imageqwerty.X, imageqwerty.Y, false
		j=j+arr1(i)
		imageqwerty.X=j
	next
	imageqwerty.Italic=False
	imageqwerty.Bold=False
	j=6
	imageqwerty.X=2
	imageqwerty.y=imageqwerty.y+ins_h
	For i = 1 to int(Request.Form("larNumTextLines"))
		tmp="Arial"
		Select Case Request.Form("larTextFontStyle"&i)
			Case "0" tmp1="Plain"
			Case "1" tmp1="Bold"
			Case "2" tmp1="Italic"
			Case "3" tmp1="Bold Italic"
		End Select
		Select Case Request.Form("larTextAlignment"&i)
			Case "0" tmp2="Center"
			Case "1" tmp2="Left"
			Case "2" tmp2="Right"
		End Select
		tmp3=""
	
	if int(Request.Form("larTextFontSize"&i)/48)>0 then
		tmp3=int(Request.Form("larTextFontSize"&i)/48) &" "
	end if
	Select Case (Request.Form("larTextFontSize"&i) mod 48)
		Case 6 :tmp3=""& tmp3 & "1/8"""
		Case 12:tmp3=""& tmp3 & "1/4"""
		Case 18:tmp3=""& tmp3 & "3/8"""
		Case 24:tmp3=""& tmp3 & "1/2"""
		Case 30:tmp3=""& tmp3 & "5/8"""
		Case 36:tmp3=""& tmp3 & "3/4"""
		Case 42:tmp3=""& tmp3 & "7/8"""
		Case Else: tmp3=""& tmp3 & """"
	End Select
		
		arr=Array(Cstr(i),Cstr(Request.Form("larText"&i)),Cstr(tmp),Cstr(tmp3),Cstr(tmp1),Cstr(tmp2))
		For z=Lbound(arr) to Ubound(arr)
			tmp=arr(z)
			imageqwerty.TextOut tmp, imageqwerty.X, imageqwerty.Y, false
			j=j+arr1(z)
			imageqwerty.X=j
		next
		imageqwerty.y=imageqwerty.y+ins_h
		imageqwerty.X=2
		j=6
	Next
end if
		imageqwerty.FileName = Server.MapPath(mClsFolder&"images/test3.jpg")
		imageqwerty.Saveimage

		Randomize
%>
<div align="right"><a href="" onClick="window.print();return false;">Print</a> | <a name="lar" href="" onClick="window.close();return false;">Close Window</a></div>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" Bordercolor="#000000"><tr><td align="center"><hr>
	<table cellpadding="0" cellspacing="0"><tr>
		<td align="center" valign="middle" bgcolor="#99CCFF"><img src="<%=mClsFolder%>images/test3.jpg?<%=RND(Time)%>" style="margin-left:10px; margin-top:10px; margin-bottom:10px; margin-right:10px" border="0"></td>
	</table><hr>
</td></tr></table>
<div align="right"><a href="" onClick="window.print();return false;">Print</a> | <a href="#lar">Top</a></div><%

	End Sub
	Public Sub Play()
		if Request.Form("larForm")="FirstForm" then
			WriteSecondForm
		elseif Request.Form("larForm")="SecondForm" then
			WriteThirdForm
		elseif Request.Form("larForm")="ThirdForm" then
			DrawImage
			WriteLastForm
		elseif Request.Form("larForm")="LastForm" then
			DrawImage
			WriteLastForm
		Else
			WriteFirstForm
		End if
	End Sub
	
	Private Sub DrawImage()
		Dim Image,i,j,x,y,z
		Dim ins_w,ins_h,drw_w,drw_h,alltxt_h
		Dim imagecolor,borderthick,maxtext,tmp,tmp1
		Set Image=Server.CreateObject("AspImage.Image")
		Image.Autosize=false
		Image.PadSize=0
		Select Case mBackGroundName
		Case "red" : Image.BackgroundColor = RGB(&hCC,&h00,&h00) 'vbred
		Case "green" : Image.BackgroundColor = RGB(&h00,&hCC,&h00) 'vbgreen
		Case "blue" : Image.BackgroundColor = RGB(&h00,&h00,&hCC) 'vbblue
		Case "white" : Image.BackgroundColor = RGB(&hff,&hff,&hff)
		Case "yellow" : Image.BackgroundColor = RGB(&hff,&hff,&h00)
		Case "black" : Image.BackgroundColor = RGB(&h00,&h00,&h00)
		End Select
		Image.ClearImage
		Image.MaxX = CDBL(Request.Form("larWidth")) *72
		Image.MaxY = CDbl(Request.Form("larHeight")) *72
		Select Case mBackGroundName
		Case "red","green","blue","white","yellow","black"
		Case else :
			Set ImageClip=Server.CreateObject("AspImage.Image")
			ImageClip.LoadImage Server.MapPath(mClipArtFolder&mBackGroundName)
			ImageClip.ResizeR Image.MaxX,Image.MaxY
			ImageClip.FileName = Server.MapPath(mClipArtFolder&"test4.jpg")
			ImageClip.SaveImage
			Image.AddImage  Server.MapPath(mClipArtFolder&"test4.jpg"),1,1
		End Select
		x=0
		y=0
		z=0
		ins_w=0
		ins_h=0
		alltxt_h=1
		drw_w=Image.MaxX
		drw_h=Image.MaxY
		borderthick=0
		maxtext=0
		Select Case mTextColorName
		Case "red" : imagecolor = RGB(&hCC,&h00,&h00) 'vbred
		Case "green" : imagecolor = RGB(&h00,&hCC,&h00) 'vbgreen
		Case "blue" : imagecolor = RGB(&h00,&h00,&hCC) 'vbblue
		Case "white" : imagecolor = RGB(&hff,&hff,&hff)
		Case "yellow" : imagecolor= RGB(&hff,&hff,&h00)
		Case "black" : imagecolor = RGB(&h00,&h00,&h00)
		Case else : imagecolor = RGB(&h00,&h00,&h00) 'vbblack
		End Select
		If int(Request.Form("larNumTextLines"))>0 then
			For i=1 to Int(Request.Form("larNumTextLines"))
				Image.FontSize=int(Request.Form("larTextFontSize"&i))
				if int(Request.Form("larTextFontStyle"&i))=1 then
					Image.Bold=True
					Image.Italic=False
				elseif int(Request.Form("larTextFontStyle"&i))=2 then
					Image.Bold=False
					Image.Italic=True
				elseif int(Request.Form("larTextFontStyle"&i))=3 then
					Image.Bold=True
					Image.Italic=True
				else
					Image.Bold=False
					Image.Italic=False
				end if
				ins_h=Image.TextHeight ("M")
				alltxt_h=alltxt_h+1+ins_h+1
			Next
			y=(drw_h-alltxt_h)/2
			Image.Y=y
		End if
		If int(Request.Form("larNumTextLines"))>0 then
			Image.FontColor=imagecolor
			For i=1 to Int(Request.Form("larNumTextLines"))
				Select Case int(Request.Form("larTextFont"&i))
					Case 1:Image.FontName="Times New Roman"
					Case 2:Image.FontName="Courier"
					Case 3:Image.FontName="Comic Sans MS"
					Case Else:Image.FontName="Arial"
				End Select
				Image.FontSize=int(Request.Form("larTextFontSize"&i))
				if int(Request.Form("larTextFontStyle"&i))=1 then
					Image.Bold=True
					Image.Italic=False
				elseif int(Request.Form("larTextFontStyle"&i))=2 then
					Image.Bold=False
					Image.Italic=True
				elseif int(Request.Form("larTextFontStyle"&i))=3 then
					Image.Bold=True
					Image.Italic=True
				else
					Image.Bold=False
					Image.Italic=False
				end if
				ins_w=Image.TextWidth (Request.Form("larText"&i))
				If int(maxtext)<int(ins_w) then
					maxtext=int(ins_w)
				end if
				ins_h=Image.TextHeight ("M")
				Select Case int(Request.Form("larTextAlignment"&i))
					Case 0:'Image.TextAlign=6
						x=(drw_w/2) - (ins_w/2)
					Case 1:'Image.TextAlign=0
						x=0
					Case 2:'Image.TextAlign=2
						x=drw_w-ins_w
					Case Else:'Image.TextAlign=6
						x=(drw_w/2) - (ins_w/2)
				End Select
				Image.X=x
'				if IsNumeric(Request.Form("larTextSpaceAbove"&i)) then
				y=y+1'y=y+Int(Request.Form("larTextSpaceAbove"&i))
'				end if
				Image.Y=y
				y=1*y+ins_h
				Image.TextOut Request.Form("larText"&i), Image.X+borderthick, Image.Y, false
'				if IsNumeric(Request.Form("larTextSpaceBelow"&i)) then
				y=y+1'y=y+Int(Request.Form("larTextSpaceBelow"&i))
'				end if
			Next
		End if
		Image.Y=Image.MaxY/2
		If int(y)>int(Image.MaxY-borderthick) then
			rMessage=rMessage &"Image Elements exceeds max height.<br>"
		End if
		If int(maxtext)>int(Image.MaxX-borderthick) then
			rMessage=rMessage &"Image Elements exceeds max width.<br>"
		End if
		Image.FileName = Server.MapPath(mClsFolder&"images/test.jpg")
		if Image.SaveImage then
			if IsNumeric(Request.Form("larStampZoom")) and Request.Form("larStampZoom")<>"" then
				Image.LoadImage Server.MapPath(mClsFolder&"images/test.jpg")
				Image.ResizeR Image.MaxX*(int(REquest.Form("larStampZoom"))/100),Image.MaxY*(int(REquest.Form("larStampZoom"))/100)
				Image.FileName = Server.MapPath(mClsFolder&"images/test.jpg")
				Image.SaveImage
			elseif Request.Form("larStampZoom")="" then
				Image.LoadImage Server.MapPath(mClsFolder&"images/test.jpg")
				Image.ResizeR Image.MaxX*(50/100),Image.MaxY*(50/100)
				Image.FileName = Server.MapPath(mClsFolder&"images/test.jpg")
				Image.SaveImage
			end if
			Randomize%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" Bordercolor="#000000"><tr><td align="center"><hr>
	<table cellpadding="0" cellspacing="0"><tr>
		<td align="center" valign="middle" bgcolor="#99CCFF"><img src="<%=mClsFolder%>images/test.jpg?<%=RND(Time)%>" style="margin-left:10px; margin-top:10px; margin-bottom:10px; margin-right:10px" border="0"></td>
	</table><hr>
</td></tr></table><%
		else
			rMessage="<hr>"&Image.Error&"<hr>"
		end if
		if rMessage<>"" then
			Response.Write "<div align=center><font color=#990000 size=+2>"& rMessage &"</font></div>"
		end if
	End Sub

	Private Sub WriteOtherHiddenVar()
		For each i in Request.Form
			if Left(i,3)<>"lar" then
				Response.Write "<input type='hidden' name='"& i &"' value='"& Request.Form(i) &"'>"
			end if
		Next
	End Sub

	Private Sub WriteWidthHeight()%>
<table width="600" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
	<input type="hidden" name="larWidHei" id="larWidHei" value="<%=Request.Form("larWidHei")%>" readonly>
	<input type="hidden" name="larWidHei1" id="larWidHei1" value="<%=Request.Form("larWidHei1")%>" readonly>
<table width="280" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr><td bgcolor="#99CCFF">Width
<td width="97"><input name="larWidth" type="text" id="larWidth" value="<%=Request.Form("larWidth")%>" size="3" readonly> "
<tr>
  <td bgcolor="#99CCFF">Height
  <td><input name="larHeight" type="text" id="larHeight" value="<%=Request.Form("larHeight")%>" size="3" readonly> "
</table>
</td><td valign="top" align="center">
<%if Request.Form("larForm")="ThirdForm" or Request.Form("larForm")="LastForm" then%>
<table border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
  <tr>
<td width="50" bgcolor="#99CCFF">Zoom
<td nowrap width="97"><select name="larStampZoom">
  <option <%If Request.Form("larStampZoom")="25" then%>selected<%end if%>>25</option>
  <option <%If Request.Form("larStampZoom")="50" then%>selected<%elseif Request.Form("larStampZoom")="" then%>selected<%end if%>>50</option>
  <option <%If Request.Form("larStampZoom")="75" then%>selected<%end if%>>75</option>
  <option <%If Request.Form("larStampZoom")="100" then%>selected<%end if%>>100</option>
  <option <%If Request.Form("larStampZoom")="125" then%>selected<%end if%>>125</option>
  <option <%If Request.Form("larStampZoom")="150" then%>selected<%end if%>>150</option>
  <option <%If Request.Form("larStampZoom")="175" then%>selected<%end if%>>175</option>
  <option <%If Request.Form("larStampZoom")="200" then%>selected<%end if%>>200</option>
</select> %
</tr></table>
<%end if%>
	</td></tr>
</table>
<br><%
	End Sub
	
	Private Sub WriteFirstForm()%>
<form action="<%=mActionFileName%>" method="post" name="larFirstForm" id="larFirstForm">
<input type="hidden" name="larForm" value="FirstForm">
<table width="600" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
<%
dim i1,i2,i3,i4
i1=""
i2=""
i3=""
i4=""
if Session("larCustom")="Yes" then
	Dim clsCN,clsSQL,clsRS,i
	Set clsCN = Server.CreateObject("ADODB.Connection")
	clsCN.Open Conn
	clsSQL = "SELECT ID,[SortCode] FROM Options WHERE ProductCode='"& mProductID &"' AND Description='"& Session("larWidth") & """ x "& Session("larHeight") &"""" &"'"
	Set clsRS = Server.CreateObject("ADODB.Recordset")
	clsRS.Open clsSQL,clsCN,0,1
	if not clsRS.EOF then
		i1="Fld000-Select-"& mProductID
		i2=clsRS.Fields("SortCode")
		i3=Session("larWidth")
		i4=Session("larHeight")
	end if
end if%>
	<input type="hidden" name="larWidHei" id="larWidHei" value="<%=i1%>" readonly>
	<input type="hidden" name="larWidHei1" id="larWidHei1" value="<%=i2%>" readonly>
<table width="280" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr><td bgcolor="#99CCFF">Width
<td width="97"><input name="larWidth" type="text" id="larWidth" value="<%=i3%>" size="3" readonly> "
<tr>
  <td bgcolor="#99CCFF">Height
  <td><input name="larHeight" type="text" id="larHeight" value="<%=i4%>" size="3" readonly> "
</table>
</td><td valign="top" align="center">
	</td></tr>
</table>
<br>
<table align="center">
  <tr><td><input name="larContinue" type="submit" id="larContinue" value="Continue"></td></tr>
</table>
</form>
<script type="text/javascript">
function larExtract(obj){
	var x=document.forms["larFirstForm"];
	var y=obj.options[obj.selectedIndex].text;
	var z='0';
	if (y.indexOf('2" x') >=0) z='2'
	else if (y.indexOf('4" x') >=0) z='4'
	else if (y.indexOf('6" x') >=0) z='6'
	else if (y.indexOf('7" x') >=0) z='7'
	else if (y.indexOf('8" x') >=0) z='8'
	else if (y.indexOf('10" x') >=0) z='10'
	x.elements["larWidth"].value=z
	z='0'
	if (y.indexOf('x 1"') >=0) z='1'
	else if (y.indexOf('x 2"') >=0) z='2'
	else if (y.indexOf('x 3"') >=0) z='3'
	else if (y.indexOf('x 4"') >=0) z='4'
	else if (y.indexOf('x 5"') >=0) z='5'
	else if (y.indexOf('x 6"') >=0) z='6'
	x.elements["larHeight"].value=z
	x.elements["larWidHei"].value=obj.name
	x.elements["larWidHei1"].value=obj.selectedIndex
}
function do_onload(){
	var x=document.forms["larFirstForm"];
<%if Session("larCustom")="Yes" then%>
	document.location.href("#larSCW");
	document.getElementById("Fld000-Select-<%=mProductID%>").selectedIndex=<%
Set clsCN = Server.CreateObject("ADODB.Connection")
clsCN.Open Conn
clsSQL = "SELECT ID,[SortCode] FROM Options WHERE ProductCode='"& mProductID &"' AND Description='"& Session("larWidth") & """ x "& Session("larHeight") &"""" &"'"
Set clsRS = Server.CreateObject("ADODB.Recordset")
clsRS.Open clsSQL,clsCN,0,1
if not clsRS.EOF then
	Response.Write clsRS.Fields("SortCode") &";"
end if
%>
<%end if%>
}
if (window.addEventListener) window.addEventListener("load", do_onload, false)
else if (window.attachEvent) window.attachEvent("onload", do_onload)
else if (document.getElementById) window.onload=do_onload
</script>
<%WriteOtherHiddenVar%>
</form><%
Session("larCustom")=""
	End Sub
	Private Sub WriteSecondForm()%>
<form action="<%=mActionFileName%>" method="post" name="larSecondForm" id="larSecondForm">
<input type="hidden" name="larForm" value="SecondForm">
<%WriteWidthHeight%>
<table width="600" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
	<table width="280" border=1 align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#FFFFFF">
	<tr><td bgcolor="#99CCFF">Number of text lines: </td>
	<td width="97"><select name="larNumTextLines"><%
	For i = 1 to mMaxTextLines
		If i=int(Request.Form("larNumTextLines")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%></select></td></tr>
	</table>
	</td></tr>
</table>
<table align="center">
    <tr><td><input name="larContinue" type="submit" id="larContinue" value="Continue"></td></tr>
</table>
</form>
<script type="text/javascript">
function larExtract(obj){
	var x=document.forms["larSecondForm"];
	var y=obj.options[obj.selectedIndex].text;
	var z='0';
	if (y.indexOf('2" x') >=0) z='2'
	else if (y.indexOf('4" x') >=0) z='4'
	else if (y.indexOf('6" x') >=0) z='6'
	else if (y.indexOf('8" x') >=0) z='8'
	else if (y.indexOf('10" x') >=0) z='10'
	x.elements["larWidth"].value=z
	z='0'
	if (y.indexOf('x 1"') >=0) z='1'
	else if (y.indexOf('x 2"') >=0) z='2'
	else if (y.indexOf('x 3"') >=0) z='3'
	else if (y.indexOf('x 4"') >=0) z='4'
	else if (y.indexOf('x 5"') >=0) z='5'
	else if (y.indexOf('x 6"') >=0) z='6'
	x.elements["larHeight"].value=z
	x.elements["larWidHei"].value=obj.name
	x.elements["larWidHei1"].value=obj.selectedIndex
}
function do_onload(){
	var x=document.forms["larSecondForm"];
	document.location.href("#larSCW");
	document.getElementById(x.elements["larWidHei"].value).selectedIndex=x.elements["larWidHei1"].value
}
if (window.addEventListener) window.addEventListener("load", do_onload, false)
else if (window.attachEvent) window.attachEvent("onload", do_onload)
else if (document.getElementById) window.onload=do_onload
</script>
<%WriteOtherHiddenVar%>
</form><%
	End Sub
	Private Sub WriteThirdForm()%>
<form action="<%=mActionFileName%>" method="post" name="larThirdForm" id="larThirdForm">
<input type="hidden" name="larForm" value="ThirdForm">
<%WriteWidthHeight%>
<input type='hidden' name='larNumTextLines' value='<%=Request.Form("larNumTextLines")%>'>
<table width="401" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#000000"><%
If int(Request.Form("larNumTextLines"))>0 then%>
  <tr><td colspan=6 bgcolor='#99CCFF'><strong>Text Information</strong></td></tr>
	<tr><td bgcolor='#99CCFF' >#</td><td bgcolor='#99CCFF'>Text</td><td bgcolor='#99CCFF'>Align</td></tr><%
	For i = 1 to int(Request.Form("larNumTextLines"))%>
    <tr>
      <td><%=i%></td>
      <td><input maxLength=255 size=15 name="larText<%=i%>" value="<%=Request.Form("larText"&i)%>"></td>
      <td>
      <select name="larTextAlignment<%=i%>">
      <option value=0 <%If Request.Form("larTextAlignment"&i)="0" then%>selected<%end if%>>Center</option>
      <option value=1 <%If Request.Form("larTextAlignment"&i)="1" then%>selected<%end if%>>Left</option>
			<option value=2 <%If Request.Form("larTextAlignment"&i)="2" then%>selected<%end if%>>Right</option>
      </select>
			<input type="hidden" name="larTextFont<%=i%>" value="0">
			<input type="hidden" name="larTextFontSize<%=i%>" value="12">
			<input type="hidden" name="larTextFontStyle<%=i%>" value="0">
			<input type="hidden" name="larTextSpaceAbove<%=i%>" value="1">
			<input type="hidden" name="larTextSpaceBelow<%=i%>" value="1">
      </td>
    </tr><%
	Next%>
<%
End if%>
</table>
<br>
<table align="center">
    <tr><td><input name="larContinue" type="submit" id="larContinue" value="Continue"></td></tr>
</table>
<%WriteOtherHiddenVar%>
</form>
<script type="text/javascript">
function larExtract(obj){
	var x=document.forms["larThirdForm"];
	var y=obj.options[obj.selectedIndex].text;
	var z='0';
	if (y.indexOf('2" x') >=0) z='2'
	else if (y.indexOf('4" x') >=0) z='4'
	else if (y.indexOf('6" x') >=0) z='6'
	else if (y.indexOf('8" x') >=0) z='8'
	else if (y.indexOf('10" x') >=0) z='10'
	x.elements["larWidth"].value=z
	z='0'
	if (y.indexOf('x 1"') >=0) z='1'
	else if (y.indexOf('x 2"') >=0) z='2'
	else if (y.indexOf('x 3"') >=0) z='3'
	else if (y.indexOf('x 4"') >=0) z='4'
	else if (y.indexOf('x 5"') >=0) z='5'
	else if (y.indexOf('x 6"') >=0) z='6'
	x.elements["larHeight"].value=z
	x.elements["larWidHei"].value=obj.name
	x.elements["larWidHei1"].value=obj.selectedIndex
}
function do_onload(){
	var x=document.forms["larThirdForm"];
	document.location.href("#larSCW");
	document.getElementById(x.elements["larWidHei"].value).selectedIndex=x.elements["larWidHei1"].value
}
if (window.addEventListener) window.addEventListener("load", do_onload, false)
else if (window.attachEvent) window.attachEvent("onload", do_onload)
else if (document.getElementById) window.onload=do_onload
</script>
<%
	End Sub

	Private Sub WriteLastForm()%>
<form action="<%=ActionFileName%>&larID=<%=Request.QueryString("larID")%>&larEdit=<%=Request.QueryString("larEdit")%>" name="larLastForm" id="larLastForm" method="post">
<input type="hidden" name="larForm" id="larForm" value="LastForm">
<table align="center">
  <tr><td><input name="larContinue" type="submit" value="Continue"></td></tr>
</table>
<%WriteWidthHeight%>
<input type='hidden' name='larNumTextLines' value='<%=Request.Form("larNumTextLines")%>'>
<%
Dim i,j
dim tmp
tmp=""
if Request.Form("larNumTextLines")="" then
	tmp="0"
else
	tmp=Request.Form("larNumTextLines")
end if
If int(tmp)>0 then
%>
<table width="600" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000" align="center">
    <tr bgcolor="#99CCFF"><td colspan=8><strong>Text Information</strong></td>
    </tr>
    <tr bgcolor="#99CCFF">
      <td>#</td>
      <td>Text</td><td>Font</td><td>Size</td><td>Style</td><!-- <td>Space<BR>Above</td><td>Space<BR>Below</td> --><td>Align</td>
    </tr><%
	For i = 1 to int(Request.Form("larNumTextLines"))%>
    <tr>
      <td><%=i%></td>
      <td><input maxLength=255 size=15 name="larText<%=i%>" value="<%=Request.Form("larText"&i)%>"></td>
      <td><input type=hidden name="larTextFont<%=i%>" value=0>&nbsp;Arial</td>
      <td><select name="larTextFontSize<%=i%>"><%
			
For j=6 to 288 Step 6
	if j=int(Request.Form("larTextFontSize"&i)) then%><option selected <%
	else%><option <%
	end if%> value="<%=j%>"><%
	if int(j/48)>0 then%><%=int(j/48)%><%end if
	Select Case (j mod 48)
		Case 6 :%> 1/8<%
		Case 12:%> 1/4<%
		Case 18:%> 3/8<%
		Case 24:%> 1/2<%
		Case 30:%> 5/8<%
		Case 36:%> 3/4<%
		Case 42:%> 7/8<%
	End Select%>"<%
Next%>
        </select>
      </td>
      <td><select name="larTextFontStyle<%=i%>">
          <option value=0 <%If Request.Form("larTextFontStyle"&i)="0" then%>selected<%end if%>>Plain</option>
          <option value=1 <%If Request.Form("larTextFontStyle"&i)="1" then%>selected<%end if%>>Bold</option>
          <option value=2 <%If Request.Form("larTextFontStyle"&i)="2" then%>selected<%end if%>>Italic</option>
          <option value=3 <%If Request.Form("larTextFontStyle"&i)="3" then%>selected<%end if%>>Bold Italic</option>
        </select>
      </td>
      <td><input type="hidden" maxLength=3 size=2 name="larTextSpaceAbove<%=i%>" value="<%=Request.Form("larTextSpaceAbove"&i)%>">
      <!-- <td> --><input type="hidden" maxLength=3 size=2 name="larTextSpaceBelow<%=i%>" value="<%=Request.Form("larTextSpaceBelow"&i)%>">
      <!-- </td> -->
      <!-- <td> --><select name="larTextAlignment<%=i%>">
          <option value=0 <%If Request.Form("larTextAlignment"&i)="0" then%>selected<%end if%>>Center</option>
          <option value=1 <%If Request.Form("larTextAlignment"&i)="1" then%>selected<%end if%>>Left</option>
					<option value=2 <%If Request.Form("larTextAlignment"&i)="2" then%>selected<%end if%>>Right</option>
        </select>
      </td>
    </tr><%
	Next%>
</table>
<br><%
End if%>
<table align="center">
    <tr><td><input name="larContinue" type="submit" value="Continue"></td></tr>
</table>
</td>
  </tr>
</table>
<%WriteOtherHiddenVar%>
</form>
<script type="text/javascript">
function larExtract(obj){
	var x=document.forms["larLastForm"];
	var y=obj.options[obj.selectedIndex].text;
	var z='0';
	if (y.indexOf('2" x') >=0) z='2'
	else if (y.indexOf('4" x') >=0) z='4'
	else if (y.indexOf('6" x') >=0) z='6'
	else if (y.indexOf('8" x') >=0) z='8'
	else if (y.indexOf('10" x') >=0) z='10'
	x.elements["larWidth"].value=z
	z='0'
	if (y.indexOf('x 1"') >=0) z='1'
	else if (y.indexOf('x 2"') >=0) z='2'
	else if (y.indexOf('x 3"') >=0) z='3'
	else if (y.indexOf('x 4"') >=0) z='4'
	else if (y.indexOf('x 5"') >=0) z='5'
	else if (y.indexOf('x 6"') >=0) z='6'
	x.elements["larHeight"].value=z
	x.elements["larWidHei"].value=obj.name
	x.elements["larWidHei1"].value=obj.selectedIndex
}
function do_onload(){
	var x=document.forms["larLastForm"];
	document.location.href("#larSCW");
	document.getElementById(x.elements["larWidHei"].value).selectedIndex=x.elements["larWidHei1"].value
}
if (window.addEventListener) window.addEventListener("load", do_onload, false)
else if (window.attachEvent) window.attachEvent("onload", do_onload)
else if (document.getElementById) window.onload=do_onload
</script>
<%
	Dim larrycart',tmp
	larrycart=""
	larrycart=Request.Form("larNumTextLines") &";0;0;0"
	larrycart=larrycart &";0;0;100;;;"
	larrycart=larrycart &"<lar><lar>"& rClipArtFile
	tmp=""
	if int(Request.Form("larNumTextLines"))>0 then
		For i=1 to int(Request.Form("larNumTextLines"))
			if tmp="" then
				tmp=Request.Form("larText"&i) &"<y>0:"& Request.Form("larTextFontSize"&i) &":"& Request.Form("larTextFontStyle"&i) &":"& Request.Form("larTextSpaceAbove"&i) &":"& Request.Form("larTextSpaceBelow"&i) &":"& Request.Form("larTextAlignment"&i)
			else
				tmp=tmp &"<r>"& Request.Form("larText"&i) &"<y>0:"& Request.Form("larTextFontSize"&i) &":"& Request.Form("larTextFontStyle"&i) &":"& Request.Form("larTextSpaceAbove"&i) &":"& Request.Form("larTextSpaceBelow"&i) &":"& Request.Form("larTextAlignment"&i)
			end if
		Next
	end if
	larrycart=larrycart &"<lar>"& tmp
	larrycart=larrycart &"<lar>"& mProductID &"<nameplate>"& Request.Form("larWidHei") &"<tql>"& Request.Form("larWidHei1") &"<tql>"& Request.Form("larWidth") &"<tql>"& Request.Form("larHeight")
	Session.Contents("larrytmpcart")=larrycart
	End Sub
	
End Class%>