<%
Class clsLarry2
	Private rSessionUID '1
	Private rMessage '2
	Private rClipArtFile '3
	Private mActionFileName '4
	Private mClipArtFolder '5
	Private mClsFolder
	Private mCustomize
	Private mMaxTextLines '7
	Private mWidthMaxMM '8
	Private mHeightMaxMM '9
	Private mMaxFontSize '10
	Private mProductID '12
	Private mBackGroundName
	Private mTextColorName
	Private Conn
	Private Sub Class_Initialize()
		Dim arr,clsCN,clsRS,clsSQL
		arr=Array(12)
		rSessionUID=CStr(Session.SessionID)
		rMessage=""
		mActionFileName=""
		mClipArtFolder="stamps/images/nameplateimage/"
		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)
			mClsFolder=arr(6)
			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")
			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(6) = mClsFolder
		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.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")) *96
		Image.MaxY = CDbl(Request.Form("larHeight")) *96
		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
				y=y+1'y=y+Int(Request.Form("larTextSpaceAbove"&i))
				Image.Y=y
				y=1*y+ins_h
				Image.TextOut Request.Form("larText"&i), Image.X+borderthick, Image.Y, false
				y=y+1'y=y+Int(Request.Form("larTextSpaceBelow"&i))
			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 WriteLarExtract(formname)%>
function larExtract(obj){
	var x=document.forms["<%=formname%>"];
	var y=obj.options[obj.selectedIndex].text;
	var z='0';
	if (y.indexOf('12 3/4" x') >=0) z='12.75';
	else if (y.indexOf('12 1/2" x') >=0) z='12.5';
	else if (y.indexOf('12 1/4" x') >=0) z='12.25';
	else if (y.indexOf('12" x') >=0) z='12';
	else if (y.indexOf('11 3/4" x') >=0) z='11.75';
	else if (y.indexOf('11 1/2" x') >=0) z='11.5';
	else if (y.indexOf('11 1/4" x') >=0) z='11.25';
	else if (y.indexOf('11" x') >=0) z='11';
	else if (y.indexOf('10 3/4" x') >=0) z='10.75';
	else if (y.indexOf('10 1/2" x') >=0) z='10.5';
	else if (y.indexOf('10 1/4" x') >=0) z='10.25';
	else if (y.indexOf('10" x') >=0) z='10';
	else if (y.indexOf('9 3/4" x') >=0) z='9.75';
	else if (y.indexOf('9 1/2" x') >=0) z='9.5';
	else if (y.indexOf('9 1/4" x') >=0) z='9.25';
	else if (y.indexOf('9" x') >=0) z='9';
	else if (y.indexOf('8 3/4" x') >=0) z='8.75';
	else if (y.indexOf('8 1/2" x') >=0) z='8.5';
	else if (y.indexOf('8 1/4" x') >=0) z='8.25';
	else if (y.indexOf('8" x') >=0) z='8';
	else if (y.indexOf('5" x') >=0) z='5';
	else if (y.indexOf('5 1/4" x') >=0) z='5.25';
	else if (y.indexOf('5 1/2" x') >=0) z='5.5';
	else if (y.indexOf('5 3/4" x') >=0) z='5.75';
	else if (y.indexOf('7 3/4" x') >=0) z='7.75';
	else if (y.indexOf('7 1/2" x') >=0) z='7.5';
	else if (y.indexOf('7 1/4" x') >=0) z='7.25';
	else if (y.indexOf('7" x') >=0) z='7';
	else if (y.indexOf('6 3/4" x') >=0) z='6.75';
	else if (y.indexOf('6 1/2" x') >=0) z='6.5';
	else if (y.indexOf('6 1/4" x') >=0) z='6.25';
	else if (y.indexOf('6" x') >=0) z='6';
	else if (y.indexOf('4 3/4" x') >=0) z='4.75';
	else if (y.indexOf('4 1/2" x') >=0) z='4.5';
	else if (y.indexOf('4 1/4" x') >=0) z='4.25';
	else if (y.indexOf('4" x') >=0) z='4';
	else if (y.indexOf('3 3/4" x') >=0) z='3.75';
	else if (y.indexOf('3 1/2" x') >=0) z='3.5';
	else if (y.indexOf('3 1/4" x') >=0) z='3.25';
	else if (y.indexOf('3" x') >=0) z='3';
	else if (y.indexOf('2 3/4" x') >=0) z='2.75';
	else if (y.indexOf('2 1/2" x') >=0) z='2.5';
	else if (y.indexOf('2 1/4" x') >=0) z='2.25';
	else if (y.indexOf('2" x') >=0) z='2';
	else if (y.indexOf('1 3/4" x') >=0) z='1.75';
	else if (y.indexOf('1 1/2" x') >=0) z='1.5';
	else if (y.indexOf('1 1/4" x') >=0) z='1.25';
	else if (y.indexOf('1" x') >=0) z='1';
	else if (y.indexOf('3/4" x') >=0) z='0.75';
	else if (y.indexOf('1/2" x') >=0) z='0.5';
	else if (y.indexOf('1/4" x') >=0) z='0.25';
	x.elements["larWidth"].value=z;
	z='0';
	if (y.indexOf('x 6"') >=0) z='6';
	else if (y.indexOf('x 5 3/4"') >=0) z='5.75';
	else if (y.indexOf('x 5 1/2"') >=0) z='5.5';
	else if (y.indexOf('x 5 1/4"') >=0) z='5.25';
	else if (y.indexOf('x 5"') >=0) z='5';
	else if (y.indexOf('x 4 3/4"') >=0) z='4.75';
	else if (y.indexOf('x 4 1/2"') >=0) z='4.5';
	else if (y.indexOf('x 4 1/4"') >=0) z='4.25';
	else if (y.indexOf('x 4"') >=0) z='4';
	else if (y.indexOf('x 3 3/4"') >=0) z='3.75';
	else if (y.indexOf('x 3 1/2"') >=0) z='3.5';
	else if (y.indexOf('x 3 1/4"') >=0) z='3.25';
	else if (y.indexOf('x 3"') >=0) z='3';
	else if (y.indexOf('x 2 3/4"') >=0) z='2.75';
	else if (y.indexOf('x 2 1/2"') >=0) z='2.5';
	else if (y.indexOf('x 2 1/4"') >=0) z='2.25';
	else if (y.indexOf('x 2"') >=0) z='2';
	else if (y.indexOf('x 1 3/4"') >=0) z='1.75';
	else if (y.indexOf('x 1 1/2"') >=0) z='1.5';
	else if (y.indexOf('x 1 1/4"') >=0) z='1.25';
	else if (y.indexOf('x 1"') >=0) z='1';
	else if (y.indexOf('x 3/4"') >=0) z='0.75';
	else if (y.indexOf('x 1/2"') >=0) z='0.5';
	else if (y.indexOf('x 1/4"') >=0) z='0.25';
	x.elements["larHeight"].value=z;
	x.elements["larWidHei"].value=obj.name;
	x.elements["larWidHei1"].value=obj.selectedIndex;
}
<%
	End Sub

	Private Sub WriteWidthHeight()%>
<table width="600" align="center" cellpadding="0" cellspacing="0">
  <tr><td align="center">
	<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
Dim tmp2
tmp2=""
tmp1=""
tmp=""
For i=1 to Len(Session("larWidth")&"")
	if Mid(Session("larWidth")&"",i,1)="." then
		tmp=Left(Session("larWidth")&"",i-1)
		if tmp="0" then
			tmp=""
		end if
		tmp2="1"
		Exit for
	end if
Next
if tmp2<>"1" then
	tmp=Session("larWidth")&""
end if
Select Case (Session("larWidth")*100)mod 100
	Case 25: tmp2=" 1/4"" x "
	Case 50: tmp2=" 1/2"" x "
	Case 75: tmp2=" 3/4"" x "
	Case ELse: tmp2=""" x "
end Select
if tmp="" then
	tmp=Right(tmp2,Len(tmp2)-1)
else
	tmp=tmp&tmp2
end if
'Response.Write(tmp&"<br>")
tmp1=""
For i=1 to Len(Session("larHeight")&"")
	if Mid(Session("larHeight")&"",i,1)="." then
		tmp1=Left(Session("larHeight")&"",i-1)
		if tmp1="0" then
			tmp1=""
		end if
		tmp2="1"
		Exit for
	end if
Next
if tmp2<>"1" then
	tmp1=Session("larHeight")&""
end if
Select Case (Session("larHeight")*100)mod 100
	Case 25: tmp2=" 1/4"""
	Case 50: tmp2=" 1/2"""
	Case 75: tmp2=" 3/4"""
	Case ELse: tmp2=""""
end Select
if tmp1="" then
	tmp1=Right(tmp2,Len(tmp2)-1)
else
	tmp1=tmp1&tmp2
end if
'Response.Write tmp1&"<br>"
%>
	<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">
<%WriteLarExtract("larFirstForm")%>
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 Options.ID, Options.SortCode, Options.Width, Products.HeightInches FROM Options INNER JOIN Products ON Options.ProductCode = Products.ProductCode WHERE Products.ProductCode='"& mProductID &"' AND Options.Description='"&tmp&tmp1&"'"
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">
<%WriteLarExtract("larSecondForm")%>
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">
<%WriteLarExtract("larThirdForm")%>
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">
<%WriteLarExtract("larLastForm")%>
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%>