<%
Class clsLarry1
	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 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/ClipArt/"
		mClsFolder="stamps/"
		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("ProductCode")<>"" then
				mProductID=Request.Form("ProductCode")
			Else
				mProductID = 21
			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")
			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 ActionFileName(strN)' = 0
		mActionFileName=strN
	End Property
	Public Property Let ClipArtFolder(strN)
		mClipArtFolder=strN
	End Property
	Public Property Let ClsFolder(strN)' = 0
		mClsFolder=strN
	End Property
	Public Sub Play()
		if Request.Form("larForm")="FirstForm" then
			if int(Request.Form("larImageAlignment2"))>0 then
				WriteClipOrUpload2
			elseif int(Request.Form("larImageAlignment"))>0 then
				WriteClipOrUpload
			else
				WriteSecondForm
			end if
		elseif Request.Form("larForm")="SecondForm" then
			DrawImage
			WriteLastForm
		elseif Request.Form("larForm")="ClipOrUpload" then
			if Request.Form("larContinue")="Select" then
				WriteClipForm
			elseif Request.Form("larContinue")="Upload" then
				WriteUploadForm
			end if
		elseif Request.Form("larForm")="ClipOrUpload2" then
			if Request.Form("larContinue")="Select" then
				WriteClipForm2
			elseif Request.Form("larContinue")="Upload" then
				WriteUploadForm2
			end if
		elseif Request.Form("larForm")="ClipForm" then
			if Request.Form("larClipLoop")="0" and Request.Form("larPrev")="ClipOrUpload" then
				WriteSecondForm
			elseif Request.Form("larClipLoop")="0" and Request.Form("larPrev")="LastForm" then
				DrawImage
				WriteLastForm
			else
				WriteClipForm
			end if
		elseif Request.Form("larForm")="ClipForm2" then
			if Request.Form("larClipLoop")="0" and Request.Form("larPrev")="ClipOrUpload2" then
				if int(Request.Form("larImageAlignment"))>0 then
					WriteClipOrUpload
				else
					WriteSecondForm
				end if
			elseif Request.Form("larClipLoop")="0" and Request.Form("larPrev")="LastForm" then
				DrawImage
				WriteLastForm
			else
				WriteClipForm
			end if
		elseif Request.Form("larForm")="UploadForm" then
			if Request.Form("larPrev")="ClipOrUpload" then
				WriteSecondForm
			elseif Request.Form("larPrev")="ClipOrUpload2" then
				WriteSecondForm
			elseif Request.Form("larPrev")="LastForm" then
				DrawImage
				WriteLastForm
			end if
		elseif Request.Form("larForm")="UploadForm2" then
			if Request.Form("larPrev")="ClipOrUpload2" then
				if int(Request.Form("larImageAlignment"))>0 then
					WriteClipOrUpload
				else
					WriteSecondForm
				end if
			elseif Request.Form("larPrev")="LastForm" then
				DrawImage
				WriteLastForm
			end if
		elseif Request.Form("larForm")="LastForm" then
			if Request.Form("larContinue2")="Select" then
				WriteClipForm2
			elseif Request.Form("larContinue2")="Upload" then
				WriteUploadForm2
			elseif Request.Form("larContinue")="Select" then
				WriteClipForm
			elseif Request.Form("larContinue")="Upload" then
				WriteUploadForm
			else
				DrawImage
				WriteLastForm
			end if
		Else
			WriteFirstForm
		End if
	End Sub
	Private Sub DrawBlockDie()
Dim X,ImageBlock,tmp,tmp2
		Set ImageBlock=Server.CreateObject("AspImage.Image")
		ImageBlock.Autosize=false
		ImageBlock.PadSize=0
		ImageBlock.ClearImage
		ImageBlock.MaxX = CDBL(mBlockWidth)
		ImageBlock.MaxY = CDbl(mBlockHeight)
If mBlockContent <> "" Then
	If Instr(1,mBlockContent,"YY",1) OR Instr(1,mBlockContent,"BLACK",1) OR mBlockContent = "BLUE" Then
		X = UCASE(MonthName(Month(Date)))
		X = Mid(X,1,3) & " "
		If Len(Day(Date)) = 1 Then
			X = X & "0" & Day(Date)
		Else
			X = X & Day(Date)
		End If
		If mBlockContent = "YY" Then
			X = X & " " & Mid(Year(Date),3,2)
		Else
			X = X & " " & Year(Date)
		End If
'		mBlockContent = X
	Else
		X=mBlockContent
	End If
	ImageBlock.PenColor = RGB(&hCC,&hCC,&hCC)
	ImageBlock.PenStyle = 1
	ImageBlock.PenWidth = 1
	ImageBlock.BackgroundColor = RGB(&hCC,&hCC,&hCC)
	ImageBlock.Rectangle 1,1,ImageBlock.MaxX,ImageBlock.MaxY
	If X <> "" Then
		ImageBlock.FontColor = vbBlack
		ImageBlock.Bold = False
		ImageBlock.Italic = False
		ImageBlock.FontName = "Courier New"
		ImageBlock.FontSize = 10
		tmp=ImageBlock.TextWidth(Trim(X))
		if tmp>ImageBlock.MaxX then
			tmp=ImageBlock.MaxX
		end if
		tmp1=ImageBlock.TextHeight(X)
		ImageBlock.TextOut X,(ImageBlock.MaxX-tmp)/2,(ImageBlock.MaxY-tmp1)/2,false
		ImageBlock.FileName = Server.MapPath(mClsFolder&"images/test2.jpg")
		ImageBlock.SaveImage
	End If
End If
	End Sub
	Private Sub DrawImage()
		Dim Image,i,j,x,y,z
		Dim ins_w,ins_h,lin_w,lin_h,drw_w,drw_h
		Dim imagecolor,borderthick,maxtext,tmp,tmp1
		Set Image=Server.CreateObject("AspImage.Image")
		Image.Autosize=false
		Image.PadSize=0
		If int(mStampShape)=1 then
			Image.BackgroundColor= RGB(&hCC,&hCC,&hCC)
		else
			Image.BackgroundColor= RGB(&hff,&hff,&hff)
		end if
		Image.ClearImage
		Image.MaxX = CDBL(mWidthMaxMM) *96
		Image.MaxY = CDbl(mHeightMaxMM) *96
		x=0
		y=0
		z=0
		ins_w=0
		ins_h=0
		lin_w=0
		lin_h=0
		drw_w=Image.MaxX
		drw_h=Image.MaxY
		borderthick=0
		maxtext=0
		Select Case int(Request.Form("larStampColor"))
		Case 1 : imagecolor = RGB(&hCC,&h00,&h00) 'vbred
		Case 2 : imagecolor = RGB(&h00,&hCC,&h00) 'vbgreen
		Case 3 : imagecolor = RGB(&h00,&h00,&hCC) 'vbblue
		Case 4 : imagecolor = RGB(&hCC,&h00,&hCC)
		Case else : imagecolor = RGB(&h00,&h00,&h00) 'vbblack
		End Select
		If int(mStampShape)=1 then 'if round draw white circle background
			Image.BackgroundColor= RGB(&hff,&hff,&hff)
		  Image.BrushStyle= 0
		  Image.PenColor= vbWhite
			Image.Ellipse borderthick/2,borderthick/2,Image.MaxX-(borderthick/2),Image.MaxY-(borderthick/2)
			Image.BrushStyle= 1
		end if
		If int(Request.Form("larBorder"))>0 or int(Request.Form("larBorderThickness"))>0 then'if has border draw border
			Image.PenColor=imagecolor
			Image.PenWidth=int(Request.Form("larBorderThickness"))
			borderthick=int(Request.Form("larBorderThickness"))
			if borderthick<>0 then
				drw_w=drw_w-(borderthick*2)
				drw_h=drw_h-(borderthick*2)
				y=y+(borderthick)
			End if
		End if
		If int(mMaxSections)=1 and mBlockContent <> "" Then
			DrawBlockDie
			Select Case mBlockContent
				Case "BLACKR" 'AlignRight	NoBorder
					Image.AddImage Server.MapPath(mClsFolder&"images/test2.jpg"), borderthick+((drw_w-mBlockWidth)), borderthick+((drw_h-mBlockHeight)/2)
					drw_w=drw_w-mBlockWidth
				Case "YYYYR" 'AlignRight NoBorder
					Image.AddImage Server.MapPath(mClsFolder&"images/test2.jpg"), borderthick+((drw_w-mBlockWidth)), borderthick+((drw_h-mBlockHeight)/2)
					drw_w=drw_w-mBlockWidth
				Case "YYYYB" 'AlignBottom	NoBorder
					Image.AddImage Server.MapPath(mClsFolder&"images/test2.jpg"), borderthick+((drw_w-mBlockWidth)/2), borderthick+((drw_h-mBlockHeight))
					drw_h=drw_h-mBlockHeight
			End Select
		end if
		Dim ImageClip,XCLip,YClip, clsCN,clsRS,clsSQL
		If Request.Form("SuccessUpload")="success" then
			Set ImageClip=Server.CreateObject("AspImage.Image")
			ImageClip.LoadImage Server.MapPath(mClsFolder&"images/uploaded/"& Request.Form("rClipArtFile"))
			ImageClip.Contrast 75
			ImageClip.CreateBlackWhite
			ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
			ImageClip.SaveImage
			ImageClip.LoadImage Server.MapPath(mClsFolder&"images/uploaded/"& Request.Form("rClipArtFile"))
			ImageClip.PenColor = imagecolor
			ImageClip.PenStyle = 2
			ImageClip.PenWidth = 1
			ImageClip.BackgroundColor = imagecolor
			ImageClip.Rectangle 1,1,Image.MaxX,Image.MaxY
			ImageClip.AddImageTransparent Server.MapPath(mClsFolder&"images/test1.jpg"),1,1,VbBlack
				rClipArtFile=Request.Form("rClipArtFile")
			XClip=ImageClip.MaxX
			If int(ImageClip.MaxY)>int(Image.MaxY-borderthick) then
				ImagePercent=((drw_h-2-borderthick-borderthick)/ImageClip.MaxY)*100
				If Isnumeric(Request.Form("larImageSize")) and Request.Form("larImageSize")<>"" then
					ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize"))/100)
				Else
					ImageClip.ResizeR ImageClip.MaxX*(int(ImagePercent)/100),ImageClip.MaxY*(int(ImagePercent)/100)
					rMessage=rMessage &"Inserted Image exceeds max width/height. Reduced to "& FormatNumber(ImagePercent,0) &"%.<br>"
				End if
			else
				If int(REquest.Form("larImageSize"))>0 then
					ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize"))/100)
				End if
				ImagePercent=100
			End if
			XClip=ImageClip.MaxX
			YClip=ImageClip.MaxY
			ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
			ImageClip.SaveImage'rMessage=ImageClip.Error &"<br>"
			Select Case int(mMaxSections)
			Case 1:
				Select Case int(Request.Form("larImageAlignment"))
				Case 2:	Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+((drw_h-YClip)/2)
				Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+((drw_h-YClip)/2)
				End Select
			Case 2:
				Select Case int(Request.Form("larImageAlignment"))
				Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+( (drw_h-mBlockHeight-(2*YClip))/4)
				Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+( (drw_h-mBlockHeight-(2*YClip))/4)
				End Select
			End Select

		elseif Request.Form("larIDclip")<>"" and int(Request.Form("larImageAlignment"))<>0 then
			Set clsCN = Server.CreateObject("ADODB.Connection")
			clsCN.Open Conn
			clsSQL="Select ClipArtID,ClipArtName FROM [ClipArt] WHERE ClipArtID ="& int(Request.Form("larIDclip"))
			Set clsRS=Server.CreateObject("ADODB.Recordset")
			clsRS.Open clsSQL,clsCN,0,1
			If not clsRS.EOF then
				Set ImageClip=Server.CreateObject("AspImage.Image")
				ImageClip.LoadImage Server.MapPath(mClipArtFolder& Request.Form("larIDcategory") &"/"& clsRS.Fields("ClipArtName") &".jpg")
				ImageClip.Contrast 75
				ImageClip.CreateBlackWhite
				ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
				ImageClip.SaveImage
				ImageClip.LoadImage Server.MapPath(mClipArtFolder& Request.Form("larIDcategory") &"/"& clsRS.Fields("ClipArtName") &".jpg")
				ImageClip.PenColor = imagecolor
				ImageClip.PenStyle = 2
				ImageClip.PenWidth = 1
				ImageClip.BackgroundColor = imagecolor
				ImageClip.Rectangle 1,1,Image.MaxX,Image.MaxY
				ImageClip.AddImageTransparent Server.MapPath(mClsFolder&"images/test1.jpg"),1,1,VbBlack
					rClipArtFile=Request.Form("larIDcategory") &"/"& clsRS.Fields("ClipArtName") &".jpg"
				XClip=ImageClip.MaxX
				If int(ImageClip.MaxY)>int(Image.MaxY-borderthick) then
					ImagePercent=((drw_h-2-borderthick-borderthick)/ImageClip.MaxY)*100
					If int(REquest.Form("larImageSize"))>0 then
						ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize"))/100)
					Else
						ImageClip.ResizeR ImageClip.MaxX*(int(ImagePercent)/100),ImageClip.MaxY*(int(ImagePercent)/100)
						rMessage=rMessage &"Inserted Image exceeds max width/height. Reduced to "& FormatNumber(ImagePercent,0) &"%.<br>"
					End if
				else
					If int(REquest.Form("larImageSize"))>0 then
						ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize"))/100)
					End if
					ImagePercent=100
				End if
				XClip=ImageClip.MaxX
				YClip=ImageClip.MaxY
				ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
				ImageClip.SaveImage'rMessage=ImageClip.Error &"<br>"
				Select Case int(mMaxSections)
				Case 1:
					Select Case int(Request.Form("larImageAlignment"))
					Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+((drw_h-YClip)/2)
					Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+((drw_h-YClip)/2)
					End Select
				Case 2:
					Select Case int(Request.Form("larImageAlignment"))
					Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+( (drw_h-mBlockHeight-(2*YClip))/4)
					Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+( (drw_h-mBlockHeight-(2*YClip))/4)
					End Select
				End Select 'end of mMaxSections
			End if
		end if
tmp=""
Select Case Request.Form("larImageAlignment2")
Case "": tmp="0"
Case else: tmp=Request.Form("larImageAlignment2")
end Select
		If Request.Form("SuccessUpload2")="success" then
			Set ImageClip=Server.CreateObject("AspImage.Image")
			ImageClip.LoadImage Server.MapPath(mClsFolder&"images/uploaded/"& Request.Form("rClipArtFile2"))
			ImageClip.Contrast 75
			ImageClip.CreateBlackWhite
			ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
			ImageClip.SaveImage
			ImageClip.LoadImage Server.MapPath(mClsFolder&"images/uploaded/"& Request.Form("rClipArtFile2"))
			ImageClip.PenColor = imagecolor
			ImageClip.PenStyle = 2
			ImageClip.PenWidth = 1
			ImageClip.BackgroundColor = imagecolor
			ImageClip.Rectangle 1,1,Image.MaxX,Image.MaxY
			ImageClip.AddImageTransparent Server.MapPath(mClsFolder&"images/test1.jpg"),1,1,VbBlack
				rClipArtFile2=Request.Form("rClipArtFile2")
			XClip=ImageClip.MaxX
			If int(ImageClip.MaxY)>int(Image.MaxY-borderthick) then
				ImagePercent2=((drw_h-2-borderthick-borderthick)/ImageClip.MaxY)*100
				If Isnumeric(Request.Form("larImageSize2")) and Request.Form("larImageSize2")<>"" then
					ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize2"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize2"))/100)
				Else
					ImageClip.ResizeR ImageClip.MaxX*(int(ImagePercent2)/100),ImageClip.MaxY*(int(ImagePercent2)/100)
					rMessage=rMessage &"Inserted below Image exceeds max width/height. Reduced to "& FormatNumber(ImagePercent2,0) &"%.<br>"
				End if
			else
				If int(REquest.Form("larImageSize2"))>0 then
					ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize2"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize2"))/100)
				End if
				ImagePercent2=100
			End if
			XClip=ImageClip.MaxX
			YClip=ImageClip.MaxY
			ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
			ImageClip.SaveImage'rMessage=ImageClip.Error &"<br>"
			Select Case int(mMaxSections)
			Case 1:
				Select Case int(Request.Form("larImageAlignment2"))
				Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+((drw_h-YClip)/2)
				Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+((drw_h-YClip)/2)
				End Select
			Case 2:
				Select Case int(Request.Form("larImageAlignment2"))
				Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+( ((3*drw_h)+mBlockHeight-(2*YClip))/4 )'((drw_h-mBlockHeight)/2)+mBlockHeight+1
				Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+( ((3*drw_h)+mBlockHeight-(2*YClip))/4 )'((drw_h-mBlockHeight)/2)+mBlockHeight+1
				End Select
			end Select 'end of mMaxSections

		elseif Request.Form("larIDclip2")<>"" and int(tmp)<>0 then
			Set clsCN = Server.CreateObject("ADODB.Connection")
			clsCN.Open Conn
			clsSQL="Select ClipArtID,ClipArtName FROM [ClipArt] WHERE ClipArtID ="& int(Request.Form("larIDclip2"))
			Set clsRS=Server.CreateObject("ADODB.Recordset")
			clsRS.Open clsSQL,clsCN,0,1
			If not clsRS.EOF then
				Set ImageClip=Server.CreateObject("AspImage.Image")
				ImageClip.LoadImage Server.MapPath(mClipArtFolder& Request.Form("larIDcategory2") &"/"& clsRS.Fields("ClipArtName") &".jpg")
				ImageClip.Contrast 75
				ImageClip.CreateBlackWhite
				ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
				ImageClip.SaveImage
				ImageClip.LoadImage Server.MapPath(mClipArtFolder& Request.Form("larIDcategory2") &"/"& clsRS.Fields("ClipArtName") &".jpg")
				ImageClip.PenColor = imagecolor
				ImageClip.PenStyle = 2
				ImageClip.PenWidth = 1
				ImageClip.BackgroundColor = imagecolor
				ImageClip.Rectangle 1,1,Image.MaxX,Image.MaxY
				ImageClip.AddImageTransparent Server.MapPath(mClsFolder&"images/test1.jpg"),1,1,VbBlack
					rClipArtFile2=Request.Form("larIDcategory2") &"/"& clsRS.Fields("ClipArtName") &".jpg"
				XClip=ImageClip.MaxX
				If int(maxtext)<int(XClip) then
				end if
				If int(ImageClip.MaxY)>int(Image.MaxY-borderthick) then
					ImagePercent2=((drw_h-2-borderthick-borderthick)/ImageClip.MaxY)*100
					If int(REquest.Form("larImageSize2"))>0 then
						ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize2"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize2"))/100)
					Else
						ImageClip.ResizeR ImageClip.MaxX*(int(ImagePercent2)/100),ImageClip.MaxY*(int(ImagePercent2)/100)
						rMessage=rMessage &"Inserted Image exceeds max width/height. Reduced to "& FormatNumber(ImagePercent2,0) &"%.<br>"
					End if
				else
					If int(REquest.Form("larImageSize2"))>0 then
						ImageClip.ResizeR ImageClip.MaxX*(int(REquest.Form("larImageSize2"))/100),ImageClip.MaxY*(int(REquest.Form("larImageSize2"))/100)
					End if
					ImagePercent2=100
				End if
				XClip=ImageClip.MaxX
				YClip=ImageClip.MaxY
				ImageClip.FileName = Server.MapPath(mClsFolder&"images/test1.jpg")
				ImageClip.SaveImage'rMessage=ImageClip.Error &"<br>"
				Select Case int(mMaxSections)
				Case 1:
					Select Case int(Request.Form("larImageAlignment2"))
					Case 2:	Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+((drw_h-YClip)/2)
					Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+((drw_h-YClip)/2)
					End Select
				Case 2:
					Select Case int(Request.Form("larImageAlignment2"))
					Case 2: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+(drw_w-XClip)-1, borderthick+( ((3*drw_h)+mBlockHeight-(2*YClip))/4 )'((drw_h-mBlockHeight)/2)+mBlockHeight+1
					Case Else: Image.AddImage Server.MapPath(mClsFolder&"images/test1.jpg"), borderthick+1, borderthick+( ((3*drw_h)+mBlockHeight-(2*YClip))/4 )'((drw_h-mBlockHeight)/2)+mBlockHeight+1
					End Select
				End Select 'end of mMaxSections
			End if
		end if
		If (int(Request.Form("larBorder"))>0 or int(Request.Form("larBorderThickness"))>0) and (mBlockContent <> "BLACKR" and mBlockContent <> "YYYYR" and mBlockContent <> "YYYYB") then
			Image.PenColor=imagecolor
			Image.PenWidth=int(Request.Form("larBorderThickness"))
			Image.BrushStyle= 1
			if borderthick=0 then
			elseif int(mStampShape)=0 then
				if borderthick>1 then
					Image.Rectangle borderthick/2,borderthick/2,Image.MaxX-(borderthick/2)+1,Image.MaxY-(borderthick/2)+1
				else
					Image.Rectangle borderthick/2,borderthick/2,Image.MaxX-(borderthick/2),Image.MaxY-(borderthick/2)
				end if
			elseif int(mStampShape)=1 then
				if borderthick>1 then
					Image.Ellipse borderthick/2,borderthick/2,Image.MaxX-(borderthick/2)+1,Image.MaxY-(borderthick/2)+1
				else
					Image.Ellipse borderthick/2,borderthick/2,Image.MaxX-(borderthick/2),Image.MaxY-(borderthick/2)
				end if
			End if
		End if
		If int(Request.Form("larNumTextLines"))>0 or int(Request.Form("larNumHorizontalLines"))>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))
				Select Case int(Request.Form("larTextFontStyle"&i))
				Case 1: Image.Bold=True
					      Image.Italic=False
				Case 2: Image.Bold=False
					      Image.Italic=True
				Case 3: Image.Bold=True
					      Image.Italic=True
				Case else: Image.Bold=False
					         Image.Italic=False
				end Select
				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:	x=(drw_w/2) - (ins_w/2)
					Case 1:	x=0
					Case 2:	x=drw_w-ins_w
					Case Else: x=(drw_w/2) - (ins_w/2)
				End Select
				Image.X=x
				For j=1 to int(Request.Form("larNumHorizontalLines"))
					z=0
					if i-1<=int(Request.Form("larLineLocation"&j)) and int(Request.Form("larLineLocation"&j))< i then
						lin_w=drw_w * (int(Request.Form("larLineWidth"&j))/100)'-(borderthick+1)
						lin_h=int(Request.Form("larLineThickness"&j))+0.1
						Select Case int(Request.Form("larLineAlignment"&j))
							Case 0:	z=(drw_w/2) - (lin_w/2)
							Case 1:	z=0
							Case 2:	z=drw_w-lin_w
							Case Else: z=(drw_w/2) - (lin_w/2)
						End Select
						if IsNumeric(Request.Form("larLineSpaceAbove"&j)) then
							y=y+Int(Request.Form("larLineSpaceAbove"&j))
						end if
						Image.BrushStyle= 1
						Image.BrushColor=imagecolor
						Image.FillRect z+borderthick,y,z+borderthick+lin_w,y+lin_h
						y=y+lin_h
						if IsNumeric(Request.Form("larLineSpaceBelow"&j)) then
							y=y+Int(Request.Form("larLineSpaceBelow"&j))
						end if
					end if
				Next
				if IsNumeric(Request.Form("larTextSpaceAbove"&i)) then
					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+Int(Request.Form("larTextSpaceBelow"&i))
				end if
			Next
			For j=1 to int(Request.Form("larNumHorizontalLines"))
				if i-1<=int(Request.Form("larLineLocation"&j)) and int(Request.Form("larLineLocation"&j))< i then
					lin_w=drw_w * (int(Request.Form("larLineWidth"&j))/100)'-(borderthick+1)
					lin_h=int(Request.Form("larLineThickness"&j))+0.1
					Select Case int(Request.Form("larLineAlignment"&j))
						Case 0:	z=(drw_w/2) - (lin_w/2)
						Case 1:	z=0
						Case 2:	z=drw_w-lin_w
						Case Else: z=(drw_w/2) - (lin_w/2)
					End Select
					if IsNumeric(Request.Form("larLineSpaceAbove"&j)) then
						y=y+Int(Request.Form("larLineSpaceAbove"&j))
					end if
					Image.BrushStyle= 1
					Image.BrushColor=imagecolor
					Image.FillRect z+borderthick,y,z+lin_w+borderthick,y+lin_h
					y=y+lin_h
					if IsNumeric(Request.Form("larLineSpaceBelow"&j)) then
						y=y+Int(Request.Form("larLineSpaceBelow"&j))
					end if
				end if
			Next
		End if
		If int(mMaxSections)=2 then
			DrawBlockDie
			Image.AddImage Server.MapPath(mClsFolder&"images/test2.jpg"), borderthick+((drw_w-mBlockWidth)/2), borderthick+((drw_h-mBlockHeight)/2)
			y=((drw_h-mBlockHeight)/2)+mBlockHeight+1
			Image.Y=y
		end if
tmp=""
tmp1=""
Select Case Request.Form("larNumTextLines2")
Case "": tmp="0"
Case else: tmp=Request.Form("larNumTextLines2")
End Select
Select Case Request.Form("larNumHorizontalLines2")
Case "": tmp1="0"
Case Else: tmp1=Request.Form("larNumHorizontalLines2")
End Select
		If int(tmp)>0 or int(tmp1)>0 then
			Image.FontColor=imagecolor
			For i=1 to Int(Request.Form("larNumTextLines2"))
				Select Case int(Request.Form("larTextFont2"&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("larTextFontSize2"&i))
				Select Case int(Request.Form("larTextFontStyle2"&i))
				Case 1: Image.Bold=True
					      Image.Italic=False
				Case 2: Image.Bold=False
					      Image.Italic=True
				Case 3: Image.Bold=True
					      Image.Italic=True
				Case else: Image.Bold=False
					         Image.Italic=False
				End Select
				ins_w=Image.TextWidth (Request.Form("larText2"&i))
				If int(maxtext)<int(ins_w) then
					maxtext=int(ins_w)
				end if
				ins_h=Image.TextHeight ("M")
				Select Case int(Request.Form("larTextAlignment2"&i))
					Case 0: x=(drw_w/2) - (ins_w/2)
					Case 1: x=0
					Case 2: x=drw_w-ins_w
					Case Else: x=(drw_w/2) - (ins_w/2)
				End Select
				Image.X=x
				For j=1 to int(tmp1)
					z=0
					if i-1<=int(Request.Form("larLineLocation2"&j)) and int(Request.Form("larLineLocation2"&j))< i then
						lin_w=drw_w * (int(Request.Form("larLineWidth2"&j))/100)'-(borderthick+1)
						lin_h=int(Request.Form("larLineThickness2"&j))+0.1
						Select Case int(Request.Form("larLineAlignment2"&j))
							Case 0: z=(drw_w/2) - (lin_w/2)
							Case 1: z=0
							Case 2: z=drw_w-lin_w
							Case Else: z=(drw_w/2) - (lin_w/2)
						End Select
						if IsNumeric(Request.Form("larLineSpaceAbove2"&j)) then
							y=y+Int(Request.Form("larLineSpaceAbove2"&j))
						end if
						Image.BrushStyle= 1
						Image.BrushColor=imagecolor
						Image.FillRect z+borderthick,y,z+borderthick+lin_w,y+lin_h
						y=y+lin_h
						if IsNumeric(Request.Form("larLineSpaceBelow2"&j)) then
							y=y+Int(Request.Form("larLineSpaceBelow2"&j))
						end if
					end if
				Next
				if IsNumeric(Request.Form("larTextSpaceAbove2"&i)) then
					y=y+Int(Request.Form("larTextSpaceAbove2"&i))
				end if
				Image.Y=y
				y=1*y+ins_h
				Image.TextOut Request.Form("larText2"&i), Image.X+borderthick, Image.Y, false
				if IsNumeric(Request.Form("larTextSpaceBelow2"&i)) then
					y=y+Int(Request.Form("larTextSpaceBelow2"&i))
				end if
			Next
			For j=1 to int(Request.Form("larNumHorizontalLines2"))
				if i-1<=int(Request.Form("larLineLocation2"&j)) and int(Request.Form("larLineLocation2"&j))< i then
					lin_w=drw_w * (int(Request.Form("larLineWidth2"&j))/100)'-(borderthick+1)
					lin_h=int(Request.Form("larLineThickness2"&j))+0.1
					Select Case int(Request.Form("larLineAlignment2"&j))
						Case 0: z=(drw_w/2) - (lin_w/2)
						Case 1: z=0
						Case 2: z=drw_w-lin_w
						Case Else: z=(drw_w/2) - (lin_w/2)
					End Select
					if IsNumeric(Request.Form("larLineSpaceAbove2"&j)) then
						y=y+Int(Request.Form("larLineSpaceAbove2"&j))
					end if
					Image.BrushStyle= 1
					Image.BrushColor=imagecolor
					Image.FillRect z+borderthick,y,z+lin_w+borderthick,y+lin_h
					y=y+lin_h
					if IsNumeric(Request.Form("larLineSpaceBelow2"&j)) then
						y=y+Int(Request.Form("larLineSpaceBelow2"&j))
					end if
				end if
			Next
		End if
		If int(mStampShape)=1 then
		  Image.BrushStyle= 1
			Image.PenWidth=1
		  Image.PenColor= RGB(&h99,&hcc,&hff)
			Image.Ellipse 1,1,Image.MaxX,Image.MaxY
		end if
		If int(mStampShape)=1 then
			Image.BackgroundColor= RGB(&h99,&hcc,&hff)
			Image.FloodFill 1,1,RGB(&h99,&hcc,&hff),1
			Image.FloodFill Image.MaxX-1,1,RGB(&h99,&hcc,&hff),1
			Image.FloodFill 1,Image.MaxY-1,RGB(&h99,&hcc,&hff),1
			Image.FloodFill Image.MaxX-1,Image.MaxY-1,RGB(&h99,&hcc,&hff),1
		end if
		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
			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 WriteFourHorseMen()%>
<input type='hidden' name='larNumTextLines' value='<%=Request.Form("larNumTextLines")%>'>
<input type='hidden' name='larNumTextLines2' value='<%=Request.Form("larNumTextLines2")%>'>
<input type='hidden' name='larImageAlignment' value='<%=Request.Form("larImageAlignment")%>'>
<input type='hidden' name='larImageAlignment2' value='<%=Request.Form("larImageAlignment2")%>'>
<input type='hidden' name='larNumHorizontalLines' value='<%=Request.Form("larNumHorizontalLines")%>'>
<input type='hidden' name='larNumHorizontalLines2' value='<%=Request.Form("larNumHorizontalLines2")%>'>
<%if int(REquest.Form("larborderthickness"))>0 then%><input type='hidden' name='larBorder' value='1'>
<%else%><input type='hidden' name='larBorder' value='<%=Request.Form("larBorder")%>'>
<%end if%><%
	End Sub

	Private Sub WriteClipIDs()%>
<input type='hidden' name='larIDcategory' value='<%=Request.Form("larIDcategory")%>'>
<input type='hidden' name='larIDclip' value='<%=Request.Form("larIDclip")%>'>
<input type='hidden' name='larIDcategory2' value='<%=Request.Form("larIDcategory2")%>'>
<input type='hidden' name='larIDclip2' value='<%=Request.Form("larIDclip2")%>'><%
	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 WriteFirstForm()%>
<form action="<%=mActionFileName%>" method="post">
<input type="hidden" name="larForm" value="FirstForm">
  <table width="612" border="1" align="center" cellpadding="0" cellspacing="0" Bordercolor="#000000">
    <tr>
      <td><table width="612" border="0" align="center" cellpadding="0" cellspacing="3"><%
If mMaxSections = 2 Then%>
        <tr>
          <td colspan="3">Please select how many text lines you want on your stamp.</td>
          <td width="200" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_01.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="150" align="left"><img src="<%=mClsFolder%>images/design/title_step1.gif" width="150" height="29"></td>
          <td colspan="2" align="right">
					Number of text lines above:
              <select name="larNumTextLines"><option value="0">No Text</option><%
	For i = 1 to mMaxTextLines
		If i=int(Request.Form("larNumTextLines")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%></select><br>
					Number of text lines below:
              <select name="larNumTextLines2"><option value="0">No Text</option><%
	For i = 1 to mMaxTextLines
		If i=int(Request.Form("larNumTextLines2")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%></select></td>
        </tr>
        <tr>
          <td align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td width="147" align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td width="78" align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
        </tr><%
ElseIf mMaxSections = 1 Then%>
        <tr>
          <td colspan="3">Please select how many text lines you want on your stamp.</td>
          <td width="200" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_01.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="150" align="left"><img src="<%=mClsFolder%>images/design/title_step1.gif" width="150" height="29"></td>
          <td colspan="2" align="right">Number of text lines:
              <select name="larNumTextLines"><option value="0">No Text</option><%
	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>
        <tr>
          <td align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td width="147" align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td width="78" align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
          <td align="right"><img src="<%=mClsFolder%>images/design/spacer.gif" width="1" height="1"></td>
        </tr><%
End if%>
      </table></td>
    </tr>
  </table><%
If mCustomize <> "3" Then'request%>
	<br>
  <table width="612" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
    <tr>
      <td><table width="612" border="0" align="center" cellpadding="0" cellspacing="3"><%  
If mMaxSections = 2 Then%>
        <tr>
          <td colspan="2">Would you like to include an image on your stamp? If so, where would you like it placed on the stamp?</td>
          <td width="201" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_03.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="125" align="left"><img src="<%=mClsFolder%>images/design/title_step2.gif" width="125" height="29"></td>
          <td width="266" align="right">
					Above Image location:
              <select name="larImageAlignment">
        <option value="0" <%If Request.Form("larImageAlignment")="0" then%>selected<%end if%>>No Image</option>
        <option value="1" <%If Request.Form("larImageAlignment")="1" then%>selected<%end if%>>Left Side</option>
        <option value="2" <%If Request.Form("larImageAlignment")="2" then%>selected<%end if%>>Right Side</option>
      </select><br>
					Below Image location:
              <select name="larImageAlignment2">
        <option value="0" <%If Request.Form("larImageAlignment2")="0" then%>selected<%end if%>>No Image</option>
        <option value="1" <%If Request.Form("larImageAlignment2")="1" then%>selected<%end if%>>Left Side</option>
        <option value="2" <%If Request.Form("larImageAlignment2")="2" then%>selected<%end if%>>Right Side</option>
      </select></td>
        </tr><%
ElseIf mMaxSections = 1 Then%>
        <tr>
          <td colspan="2">Would you like to include an image on your stamp? If so, where would you like it placed on the stamp?</td>
          <td width="201" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_03.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="125" align="left"><img src="<%=mClsFolder%>images/design/title_step2.gif" width="125" height="29"></td>
          <td width="266" align="right">Image location:
              <select name="larImageAlignment">
        <option value="0" <%If Request.Form("larImageAlignment")="0" then%>selected<%end if%>>No Image</option>
        <option value="1" <%If Request.Form("larImageAlignment")="1" then%>selected<%end if%>>Left Side</option>
        <option value="2" <%If Request.Form("larImageAlignment")="2" then%>selected<%end if%>>Right Side</option>
      </select></td>
        </tr><%
End if%>
      </table></td>
    </tr>
  </table><%
ELse%><input type="hidden" name="larImageAlignment" value="0"><input type="hidden" name="larImageAlignment2" value="0"><%
End if%>
  <br>
  <table width="612" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
    <tr>
      <td><table width="612" border="0" align="center" cellpadding="0" cellspacing="3"><% 
If mMaxSections = 2 Then%>
        <tr>
          <td colspan="2">Would you like to include horizontal lines under each line of text?<br>
      If so, how many?</td>
          <td width="200" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_02.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="150" align="left"><img src="<%=mClsFolder%>images/design/title_step3.gif" width="150" height="40"></td>
          <td width="250" align="right" valign="middle">
					Number of horizontal lines above:
              <select name="larNumHorizontalLines">
        <option value="0">No Lines</option><%
	For i = 1 to mMaxTextLines+1
		If i=int(Request.Form("larNumHorizontalLines")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%>
      </select><br>
					Number of horizontal lines below:
              <select name="larNumHorizontalLines2">
        <option value="0">No Lines</option><%
	For i = 1 to mMaxTextLines+1
		If i=int(Request.Form("larNumHorizontalLines2")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%>
      </select></td>
        </tr><%
ElseIf mMaxSections = 1 Then%>
        <tr>
          <td colspan="2">Would you like to include horizontal lines under each line of text?<br>
      If so, how many?</td>
          <td width="200" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_02.gif" width="200" height="90"></td>
        </tr>
        <tr>
          <td width="150" align="left"><img src="<%=mClsFolder%>images/design/title_step3.gif" width="150" height="40"></td>
          <td width="250" align="right" valign="middle">Number of horizontal lines:
              <select name="larNumHorizontalLines">
        <option value="0">No Lines</option><%
	For i = 1 to mMaxTextLines+1
		If i=int(Request.Form("larNumHorizontalLines")) then%><option selected><%=i%></option><%Else%><option><%=i%></option><%End if
	Next%>
      </select></td>
        </tr><%
End if%>
      </table></td>
    </tr>
  </table>
  <br>
  <table width="612" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
    <tr>
      <td><table width="612" border="0" align="center" cellpadding="0" cellspacing="3">
        <tr>
          <td colspan="2">Would you like to include a border on your stamp?</td>
          <td width="17" rowspan="2"><img src="<%=mClsFolder%>images/design/wizard_sample_04.gif" width="200" height="93"></td>
        </tr>
        <tr>
          <td width="126" align="left"><img src="<%=mClsFolder%>images/design/title_step4.gif" width="126" height="31"></td>
          <td width="445" align="right" valign="middle">Border:
              <select name="larBorder">
        <option value="0" <%If Request.Form("larBorder")="0" then%>selected<%end if%>>No Border</option>
        <option value="1" <%If Request.Form("larBorder")="1" then%>selected<%end if%>>Include Border</option>
      </select></td>
        </tr>
      </table></td>
    </tr>
  </table>
  <br>
  <table width="600" border="0" align="center" cellpadding="0" cellspacing="3">
    <tr align="center">
      <td colspan="3" scope="row"><input name="larContinue" type="submit" id="larContinue" value="Continue"></td>
    </tr>
  </table>
<%WriteOtherHiddenVar%>
</form><%
	End Sub

	Private Sub WriteLastForm()%>
<form action="<%=mActionFileName%>&larID=<%=Request.QueryString("larID")%>&larEdit=<%=Request.QueryString("larEdit")%>" name="larLastForm" id="larLastForm" method="post">
<input type="hidden" name="larForm" id="larForm" value="LastForm">
<input type="hidden" name="larPrev" id="larPrev" value="LastForm">
<%'if request.Form("larForm")="ClipForm" or Request.Form("larContinue1")="Select" then%>
<!-- <input type="hidden" name="larContinue1" id="larContinue1" value="Select"> -->
<%'end if%><%
WriteFourhorseMen
WriteClipIDs%>
<%Dim i,j%>
<table width="612" border="0" align="center" cellpadding="0" cellspacing="0" Bordercolor="#000000">
	<tr>
  	<td>
<table align="center"><tr><td><input name="larContinue" type="submit" value="Continue"></td></tr></table>
<table width="612" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
<table width="280" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr><td bgcolor="#99CCFF">Stamp Color
<td width="97"><select name="larStampColor">
        <option value="0" <%If Request.Form("larStampColor")="0" then%>selected<%end if%>>Black</option>
        <option value="1" <%If Request.Form("larStampColor")="1" then%>selected<%end if%>>Red</option>
        <option value="2" <%If Request.Form("larStampColor")="2" then%>selected<%end if%>>Green</option>
        <option value="3" <%If Request.Form("larStampColor")="3" then%>selected<%end if%>>Blue</option>
        <option value="4" <%If Request.Form("larStampColor")="4" then%>selected<%end if%>>Purple</option>
      </select>
<tr>
  <td bgcolor="#99CCFF">Stamp Border Thickness
  <td><select name="larBorderThickness"><%
	For i = 0 to 10%><option <%If int(Request.Form("larBorderThickness"))=i then%>selected<%end if%>><%=i%></option><%Next%>
      </select>
</table>
</td><td valign="top" align="center">
<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")="50" 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<%elseif Request.Form("larStampZoom")="" 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>
</td>
</tr></table>
<br><%
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">
    <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><select name="larTextFont<%=i%>">
          <option value=0 <%If Request.Form("larTextFont"&i)="0" then%>selected<%end if%>>Arial</option>
          <option value=1 <%If Request.Form("larTextFont"&i)="1" then%>selected<%end if%>>Times New Roman</option>
          <option value=2 <%If Request.Form("larTextFont"&i)="2" then%>selected<%end if%>>Courier</option>
          <option value=3 <%If Request.Form("larTextFont"&i)="3" then%>selected<%end if%>>Comic Sans</option>
        </select>
      </td>
      <td><select name="larTextFontSize<%=i%>"><%
		For j=6 to mMaxFontSize%><option <%If int(Request.Form("larTextFontSize"&i))=j then%>selected<%end if%>><%=j%></option><%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 maxLength=3 size=2 name="larTextSpaceAbove<%=i%>" value="<%=Request.Form("larTextSpaceAbove"&i)%>">
      <td><input 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%><%
tmp=""
if Request.Form("larNumTextLines2")="" then
	tmp="0"
else
	tmp=Request.Form("larNumTextLines2")%>
    <tr bgcolor="#99CCFF"><td colspan=8 align="center"><strong>Block Separator</strong></td>
<%
end if
	For i = 1 to int(tmp)%>
    <tr>
      <td><%=i%></td>
      <td><input maxLength=255 size=15 name="larText2<%=i%>" value="<%=Request.Form("larText2"&i)%>"></td>
      <td><select name="larTextFont2<%=i%>">
          <option value=0 <%If Request.Form("larTextFont2"&i)="0" then%>selected<%end if%>>Arial</option>
          <option value=1 <%If Request.Form("larTextFont2"&i)="1" then%>selected<%end if%>>Times New Roman</option>
          <option value=2 <%If Request.Form("larTextFont2"&i)="2" then%>selected<%end if%>>Courier</option>
          <option value=3 <%If Request.Form("larTextFont2"&i)="3" then%>selected<%end if%>>Comic Sans</option>
        </select>
      </td>
      <td><select name="larTextFontSize2<%=i%>"><%
		For j=6 to mMaxFontSize%><option <%If int(Request.Form("larTextFontSize2"&i))=j then%>selected<%end if%>><%=j%></option><%Next%>
        </select>
      </td>
      <td><select name="larTextFontStyle2<%=i%>">
          <option value=0 <%If Request.Form("larTextFontStyle2"&i)="0" then%>selected<%end if%>>Plain</option>
          <option value=1 <%If Request.Form("larTextFontStyle2"&i)="1" then%>selected<%end if%>>Bold</option>
          <option value=2 <%If Request.Form("larTextFontStyle2"&i)="2" then%>selected<%end if%>>Italic</option>
          <option value=3 <%If Request.Form("larTextFontStyle2"&i)="3" then%>selected<%end if%>>Bold Italic</option>
        </select>
      </td>
      <td><input maxLength=3 size=2 name="larTextSpaceAbove2<%=i%>" value="<%=Request.Form("larTextSpaceAbove2"&i)%>">
      <td><input maxLength=3 size=2 name="larTextSpaceBelow2<%=i%>" value="<%=Request.Form("larTextSpaceBelow2"&i)%>">
      </td>
      <td><select name="larTextAlignment2<%=i%>">
          <option value=0 <%If Request.Form("larTextAlignment2"&i)="0" then%>selected<%end if%>>Center</option>
          <option value=1 <%If Request.Form("larTextAlignment2"&i)="1" then%>selected<%end if%>>Left</option>
					<option value=2 <%If Request.Form("larTextAlignment2"&i)="2" then%>selected<%end if%>>Right</option>
        </select>
      </td>
    </tr><%
	Next%>
</table>
<br><%
End if
tmp=""
if Request.Form("larNumHorizontalLines2")="" then
	tmp="0"
else
	tmp=Request.Form("larNumHorizontalLines2")
end if
If int(Request.Form("larNumHorizontalLines"))>0 or int(tmp)>0 then%>
<table width="600" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr bgcolor="#99CCFF">
      <TD colspan=7><strong>Line Information - Adjust your horizontal Lines here </strong></td>
    </tr>
    <tr bgcolor="#99CCFF">
      <td>#</td>
      <td>Location</td>
      <td>Width</td>
      <td bgcolor="#99CCFF">Thickness</td>
      <td>Space<BR>
        Above</td>
      <td>Space<BR>
        Below</td>
      <td>Align</td>
    </tr><%
	For i = 1 to int(Request.Form("larNumHorizontalLines"))%>
    <tr>
      <td><%=i%></td>
      <td><select name="larLineLocation<%=i%>">
        <option value="0" <%If Request.Form("larLineLocation"&i)="0" then%>selected<%end if%>>Above text 1</option><%
		for j=1 to int(Request.Form("larNumTextLines"))%>
	<option value="<%=j%>" <%If int(Request.Form("larLineLocation"&i))=j then%>selected<%end if%>>Below text <%=j%></option><%
		next%>
        </select>
      </td>
      <td><input maxLength=3 size=3 name="larLineWidth<%=i%>" value="<%if Request.Form("larLineWidth"&i)<>"" then%><%=Request.Form("larLineWidth"&i)%><%else%>100<%end if%>">%</td>
			<td><select name="larLineThickness<%=i%>"><%
		For j=1 to 10%>
				<option <%If int(Request.Form("larLineThickness"&i))=j then%>selected<%end if%>><%=j%></option><%
		Next%>
        </select>
      </td>
      <td><input maxLength=3 size=2 name="larLineSpaceAbove<%=i%>" value="<%=Request.Form("larLineSpaceAbove"&i)%>">
      <td><input maxLength=3 size=2 name="larLineSpaceBelow<%=i%>" value="<%=Request.Form("larLineSpaceBelow"&i)%>">
      </td>
      <td><select name="larLineAlignment<%=i%>">
          <option value=0 <%If Request.Form("larLineAlignment"&i)="0" then%>selected<%end if%>>Center</option>
          <option value=1 <%If Request.Form("larLineAlignment"&i)="1" then%>selected<%end if%>>Left</option>
					<option value=2 <%If Request.Form("larLineAlignment"&i)="2" then%>selected<%end if%>>Right</option>
        </select>
      </td>
    </tr><%
	Next%><%
tmp=""
if Request.Form("larNumHorizontalLines2")="" then
	tmp="0"
else
	tmp=Request.Form("larNumHorizontalLines2")%>
    <tr bgcolor="#99CCFF"><td colspan=7 align="center"><strong>Block Separator</strong></td>
<%
end if
	For i = 1 to int(tmp)%>
    <tr>
      <td><%=i%></td>
      <td><select name="larLineLocation2<%=i%>">
        <option value="0" <%If Request.Form("larLineLocation2"&i)="0" then%>selected<%end if%>>Above text 1</option><%
		for j=1 to int(Request.Form("larNumTextLines2"))%>
	<option value="<%=j%>" <%If int(Request.Form("larLineLocation2"&i))=j then%>selected<%end if%>>Below text <%=j%></option><%
		next%>
        </select>
      </td>
      <td><input maxLength=3 size=3 name="larLineWidth2<%=i%>" value="<%if Request.Form("larLineWidth2"&i)<>"" then%><%=Request.Form("larLineWidth2"&i)%><%else%>100<%end if%>">%</td>
			<td><select name="larLineThickness2<%=i%>"><%
		For j=1 to 10%>
				<option <%If int(Request.Form("larLineThickness2"&i))=j then%>selected<%end if%>><%=j%></option><%
		Next%>
        </select>
      </td>
      <td><input maxLength=3 size=2 name="larLineSpaceAbove2<%=i%>" value="<%=Request.Form("larLineSpaceAbove2"&i)%>">
      <td><input maxLength=3 size=2 name="larLineSpaceBelow2<%=i%>" value="<%=Request.Form("larLineSpaceBelow2"&i)%>">
      </td>
      <td><select name="larLineAlignment2<%=i%>">
          <option value=0 <%If Request.Form("larLineAlignment2"&i)="0" then%>selected<%end if%>>Center</option>
          <option value=1 <%If Request.Form("larLineAlignment2"&i)="1" then%>selected<%end if%>>Left</option>
					<option value=2 <%If Request.Form("larLineAlignment2"&i)="2" then%>selected<%end if%>>Right</option>
        </select>
      </td>
    </tr><%
	Next%>
</table>
<br><%
End if
tmp=""
if Request.Form("larImageAlignment2")="" then
	tmp="0"
else
	tmp=Request.Form("larImageAlignment2")
end if
If int(Request.Form("larImageAlignment"))>0 or int(tmp)>0 then%>
<script type="text/javascript"><!--
function submitform1(){
	var x=document.larLastForm;
	x.larIDclip.value="";	x.submit();
}
function submitform2(){
	var x=document.larLastForm;
	x.larIDclip2.value="";	x.submit();
}//--></script>
<table width="600" border=1 cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr bgcolor="#99CCFF"><TD colspan=4><strong>Art Information</strong></td>
    </tr>
    <tr bgcolor="#99CCFF">
      <td>Image</td>
      <td>% Size</td>
       <td>Change</td>
    </tr>
<%
	If int(Request.Form("larImageAlignment"))>0 then
	dim tmp1
	If Request.Form("SuccessUpload")="success" then
		tmp1=mClsFolder&"images/uploaded/"& rClipArtFile
	else
		tmp1=mClsFolder&"images/ClipArt/"& rClipArtFile
	end if%>
		<tr><td><img src="<%=tmp1%>" border="0"></td>
		<td><input type="text" name="larImageSize" size="2" maxlength="3"	value=
"<%if Request.Form("larImageSize")<>"" then%>
<%=REquest.Form("larImageSize")%>
<%elseIf int(FormatNumber(ImagePercent,0))<>int(REquest.Form("larImageSize")) then%>
<%=FormatNumber(ImagePercent,0)%>
<%end if%>">%</td>
		<td>
			<table border="0"><tr>
			<td>Select from the ClipArt Gallery
			<td><input name="larContinue" type="submit" id="larContinue" value="Select">
			<td> or
			<td>Upload File
			<td><input name="larContinue" type="submit" value="Upload">
			</table>
		</td>
		</tr>
<%
	End if
tmp=""
if Request.Form("larImageAlignment2")="" then
	tmp="0"
else
	tmp=Request.Form("larImageAlignment2")
end if
	If int(tmp)>0 then
	dim tmp2
	If Request.Form("SuccessUpload2")="success" then
		tmp2=mClsFolder&"images/uploaded/"& rClipArtFile2
	else
		tmp2=mClsFolder&"images/ClipArt/"& rClipArtFile2
	end if%>
		<tr><td><img src="<%=tmp2%>" border="0"></td>
		<td><input type="text" name="larImageSize2" size="2" maxlength="3"	value=
"<%if Request.Form("larImageSize2")<>"" then%>
<%=REquest.Form("larImageSize2")%>
<%elseIf int(FormatNumber(ImagePercent2,0))<>int(REquest.Form("larImageSize2")) then%>
<%=FormatNumber(ImagePercent2,0)%>
<%end if%>">%</td>
		<td>
			<table border="0"><tr>
			<td>Select from the ClipArt Gallery
			<td><input name="larContinue2" type="submit" id="larContinue2" value="Select">
			<td> or
			<td>Upload File
			<td><input name="larContinue2" type="submit" value="Upload">
			</table>
		</td>
		</tr>
</table>
<br><%
	end if
End if%>
<table align="center">
    <tr><td><input name="larContinue" type="submit" value="Continue"></td></tr>
</table>
</td>
  </tr>
</table>
<%WriteOtherHiddenVar%>
</form><%
	Dim larrycart',tmp
	larrycart=""
	larrycart=Request.Form("larNumTextLines") &";"& Request.Form("larImageAlignment") &";"& Request.Form("larNumHorizontalLines") &";"& Request.Form("larBorder")
	larrycart=larrycart &";"& Request.Form("larStampColor") &";"& Request.Form("larBorderThickness") &";"& Request.Form("larImageSize") &";"& Request.Form("larIDcategory") &";"& Request.Form("larIDclip") &";"& Request.Form("SuccessUpload")
	tmp=""
	if int(Request.Form("larNumHorizontalLines"))>0 then
		For i=1 to int(Request.Form("larNumHorizontalLines"))
			if tmp="" then
				tmp=Request.Form("larLineLocation"&i) &":"& Request.Form("larLineWidth"&i) &":"& Request.Form("larLineThickness"&i) &":"& Request.Form("larLineSpaceAbove"&i) &":"& Request.Form("larLineSpaceBelow"&i) &":"& Request.Form("larLineAlignment"&i)
			else
				tmp=tmp &";"& Request.Form("larLineLocation"&i) &":"& Request.Form("larLineWidth"&i) &":"& Request.Form("larLineThickness"&i) &":"& Request.Form("larLineSpaceAbove"&i) &":"& Request.Form("larLineSpaceBelow"&i) &":"& Request.Form("larLineAlignment"&i)
			end if
		Next
	end if
	larrycart=larrycart &"<lar>"& tmp
	larrycart=larrycart &"<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>"& Request.Form("larTextFont"&i) &":"& 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>"& Request.Form("larTextFont"&i) &":"& 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
	Session.Contents("larrytmpcart")=larrycart
	larrycart=""
	larrycart=Request.Form("larNumTextLines2") &";"& Request.Form("larImageAlignment2") &";"& Request.Form("larNumHorizontalLines2") &";"& Request.Form("larBorder")
	larrycart=larrycart &";"& Request.Form("larStampColor") &";"& Request.Form("larBorderThickness2") &";"& Request.Form("larImageSize2") &";"& Request.Form("larIDcategory2") &";"& Request.Form("larIDclip2") &";"& Request.Form("SuccessUpload2")
	tmp=""
	tmp1=""
	if Request.Form("larNumHorizontalLines2")="" then
		tmp1="0"
	else
		tmp1=Request.Form("larNumHorizontalLines2")
	end if
	if int(tmp1)>0 then
		For i=1 to int(tmp1)
			if tmp="" then
				tmp=Request.Form("larLineLocation2"&i) &":"& Request.Form("larLineWidth2"&i) &":"& Request.Form("larLineThickness2"&i) &":"& Request.Form("larLineSpaceAbove2"&i) &":"& Request.Form("larLineSpaceBelow2"&i) &":"& Request.Form("larLineAlignment2"&i)
			else
				tmp=tmp &";"& Request.Form("larLineLocation2"&i) &":"& Request.Form("larLineWidth2"&i) &":"& Request.Form("larLineThickness2"&i) &":"& Request.Form("larLineSpaceAbove2"&i) &":"& Request.Form("larLineSpaceBelow2"&i) &":"& Request.Form("larLineAlignment2"&i)
			end if
		Next
	end if
	larrycart=larrycart &"<lar>"& tmp
	larrycart=larrycart &"<lar>"& rClipArtFile2
	tmp=""
	tmp1=""
	if Request.Form("larNumTextLines2")="" then
		tmp1="0"
	else
		tmp1=Request.Form("larNumTextLines2")
	end if
	if int(tmp1)>0 then
		For i=1 to int(tmp1)
			if tmp="" then
				tmp=Request.Form("larText2"&i) &"<y>"& Request.Form("larTextFont2"&i) &":"& Request.Form("larTextFontSize2"&i) &":"& Request.Form("larTextFontStyle2"&i) &":"& Request.Form("larTextSpaceAbove2"&i) &":"& Request.Form("larTextSpaceBelow2"&i) &":"& Request.Form("larTextAlignment2"&i)
			else
				tmp=tmp &"<r>"& Request.Form("larText2"&i) &"<y>"& Request.Form("larTextFont2"&i) &":"& Request.Form("larTextFontSize2"&i) &":"& Request.Form("larTextFontStyle2"&i) &":"& Request.Form("larTextSpaceAbove2"&i) &":"& Request.Form("larTextSpaceBelow2"&i) &":"& Request.Form("larTextAlignment2"&i)
			end if
		Next
	end if
	larrycart=larrycart &"<lar>"& tmp
	larrycart=larrycart &"<lar>"& mProductID
	Session.Contents("larrytmpcart")=Session.Contents("larrytmpcart") &"<lar>"& larrycart
	End Sub

	Private Sub WriteSecondForm()%>
<form action="<%=mActionFileName%>" method="post">
<input type="hidden" name="larForm" value="SecondForm"><%
If int(Request.Form("larBorder"))>0 then%>
	<input type="hidden" name="larStampColor" value="0">
	<input type="hidden" name="larBorderThickness" value="1"><%
End if
If int(Request.Form("larNumTextLines"))>0 then%>
<table width="401" border=1 align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr ><td colspan=8 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="10">
			<input type="hidden" name="larTextFontStyle<%=i%>" value="0">
			<input type="hidden" name="larTextSpaceAbove<%=i%>" value="0">
			<input type="hidden" name="larTextSpaceBelow<%=i%>" value="0">
      </td>
    </tr><%
	Next%>
</table>
<br><%
End if
dim tmp
tmp=""
if Request.Form("larNumTextLines2")="" then
	tmp="0"
else
	tmp=Request.Form("larNumTextLines2")
end if
If int(tmp)>0 then%>
<table width="401" border=1 align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr><td colspan=8 bgcolor=#99CCFF><strong>Text Information Below</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("larNumTextLines2"))%>
    <tr>
      <td><%=i%></td>
      <td><input maxLength=255 size=15 name="larText2<%=i%>" value="<%=Request.Form("larText2"&i)%>"></td>
      <td>
      <select name="larTextAlignment2<%=i%>">
      <option value=0 <%If Request.Form("larTextAlignment2"&i)="0" then%>selected<%end if%>>Center</option>
      <option value=1 <%If Request.Form("larTextAlignment2"&i)="1" then%>selected<%end if%>>Left</option>
			<option value=2 <%If Request.Form("larTextAlignment2"&i)="2" then%>selected<%end if%>>Right</option>
      </select>
			<input type="hidden" name="larTextFont2<%=i%>" value="0">
			<input type="hidden" name="larTextFontSize2<%=i%>" value="10">
			<input type="hidden" name="larTextFontStyle2<%=i%>" value="0">
			<input type="hidden" name="larTextSpaceAbove2<%=i%>" value="0">
			<input type="hidden" name="larTextSpaceBelow2<%=i%>" value="0">
      </td>
    </tr><%
	Next%>
</table>
<br><%
End if
If int(Request.Form("larNumHorizontalLines"))>0 then%>
<table width="401" border=1 align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr><TD colspan=7 bgcolor=#99CCFF><strong>Line Information</strong></td>
    </tr>
    <tr>
      <td bgcolor=#99CCFF>#</td><td bgcolor=#99CCFF>Location</td>
    </tr><%
	Dim j
	For i = 1 to int(Request.Form("larNumHorizontalLines"))%>
    <tr>
      <td><%=i%></td>
      <td><select name="larLineLocation<%=i%>">
        <option value="0" <%If Request.Form("larLineLocation"&i)="0" then%>selected<%end if%>>Above text 1</option><%
		for j=1 to int(Request.Form("larNumTextLines"))%>
	<option value="<%=j%>" <%If int(Request.Form("larLineLocation"&i))=j then%>selected<%end if%>>Below text <%=j%></option><%
		next%>
<!--        <option value="<%=int(Request.Form("larNumTextLines"))%>" <%If Request.Form("larLineLocation"&i)=Request.Form("larNumHorizontalLines") then%>selected<%end if%>>Below text <%=int(Request.Form("larNumHorizontalLines"))%></option>-->
        </select>
			<input type="hidden" name="larLineWidth<%=i%>" value="100">
			<input type="hidden" name="larLineThickness<%=i%>1" value="100">
			<input type="hidden" name="larLineSpaceAbove<%=i%>" value="1">
			<input type="hidden" name="larLineSpaceBelow<%=i%>" value="1">
			<input type="hidden" name="larLineAlignment<%=i%>" value="0">
      </td><%
	Next%>
</table><%
End if
tmp=""
if Request.Form("larNumHorizontalLines2")="" then
	tmp="0"
else
	tmp=Request.Form("larNumHorizontalLines2")
end if
If int(tmp)>0 then%>
<br>
<table width="401" border=1 align="center" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000">
    <tr><TD colspan=7 bgcolor=#99CCFF><strong>Line Information Below</strong></td>
    </tr>
    <tr>
      <td bgcolor=#99CCFF>#</td><td bgcolor=#99CCFF>Location</td>
    </tr><%
'	Dim j
	For i = 1 to int(Request.Form("larNumHorizontalLines2"))%>
    <tr>
      <td><%=i%></td>
      <td><select name="larLineLocation2<%=i%>">
        <option value="0" <%If Request.Form("larLineLocation2"&i)="0" then%>selected<%end if%>>Above text 1</option><%
		for j=1 to int(Request.Form("larNumTextLines2"))%>
	<option value="<%=j%>" <%If int(Request.Form("larLineLocation2"&i))=j then%>selected<%end if%>>Below text <%=j%></option><%
		next%>
<!--        <option value="<%=int(Request.Form("larNumTextLines2"))%>" <%If Request.Form("larLineLocation2"&i)=Request.Form("larNumHorizontalLines2") then%>selected<%end if%>>Below text <%=int(Request.Form("larNumHorizontalLines2"))%></option>-->
        </select>
			<input type="hidden" name="larLineWidth2<%=i%>" value="100">
			<input type="hidden" name="larLineThickness2<%=i%>1" value="100">
			<input type="hidden" name="larLineSpaceAbove2<%=i%>" value="1">
			<input type="hidden" name="larLineSpaceBelow2<%=i%>" value="1">
			<input type="hidden" name="larLineAlignment2<%=i%>" value="0">
      </td><%
	Next%>
</table><%
End if
%>
<br>
<table align="center">
    <tr><td><input name="larContinue" type="submit" id="larContinue" value="Continue"></td></tr>
</table><%
WriteOtherHiddenVar
WriteClipIDs
WriteFourhorseMen%>
</form><%
	End Sub
	
	Private Sub WriteClipOrUpload()%>
<form action="<%=mActionFileName%>" method="post">
<input type="hidden" name="larForm" value="ClipOrUpload">
<input type="hidden" name="larPrev" value="ClipOrUpload">
<table width="400" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000" >
  <tr>
    <td><table width="400" align="center" cellpadding="5" cellspacing="0">
      <tr>
        <td><img src="<%=mClsFolder%>images/design/title_choosing_img.gif" width="529" height="41"> </td>
      </tr>
      <tr>
        <td width="370" valign="middle"><img src="<%=mClsFolder%>images/design/choose_img_opt_a.gif" width="143" height="42"> &nbsp; </td>
      </tr>
      <tr>
        <td>Select from the online clip art library. This includes our standard images
            <input name="larContinue" type="submit" id="larContinue" value="Select"></td>
      </tr>
      <tr>
        <td valign="middle">&nbsp;</td>
      </tr>
      <tr>
        <td valign="middle"><img src="<%=mClsFolder%>images/design/choose_img_opt_b.gif" width="328" height="43"> &nbsp; </td>
      </tr>
      <tr>
        <td align="left">Upload File
            <input name="larContinue" type="submit" id="larContinue" value="Upload">
        </td>
      </tr>
    </table></td>
  </tr>
</table><%
For each i in Request.Form
	if i="larForm" or i="larContinue" or i="larNumTextLines" or i="larNumTextLines2" or i="larImageAlignment" or i="larImageAlignment2" or i="larNumHorizontalLines" or i="larNumHorizontalLines2" or i="larBorder" or i="" then
	elseif Left(i,3)="lar" then
		Response.Write "<input type='hidden' name='"& i &"' value='"& Request.Form(i) &"'>"
	end if
Next
WriteOtherHiddenVar
WriteFourhorseMen%>
</form><%
	End Sub
	Private Sub WriteClipOrUpload2()%>
<form action="<%=mActionFileName%>" method="post">
<input type="hidden" name="larForm" value="ClipOrUpload2">
<input type="hidden" name="larPrev" value="ClipOrUpload2">
<table width="400" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000" >
  <tr>
    <td><table width="400" align="center" cellpadding="5" cellspacing="0">
      <tr>
        <td><img src="<%=mClsFolder%>images/design/title_choosing_img.gif" width="529" height="41"> </td>
      </tr>
      <tr>
        <td width="370" valign="middle"><img src="<%=mClsFolder%>images/design/choose_img_opt_a.gif" width="143" height="42"> &nbsp; </td>
      </tr>
      <tr>
        <td>Select from the online clip art library. This includes our standard images
            <input name="larContinue" type="submit" id="larContinue" value="Select"></td>
      </tr>
      <tr>
        <td valign="middle">&nbsp;</td>
      </tr>
      <tr>
        <td valign="middle"><img src="<%=mClsFolder%>images/design/choose_img_opt_b.gif" width="328" height="43"> &nbsp; </td>
      </tr>
      <tr>
        <td align="left">Upload File
            <input name="larContinue" type="submit" id="larContinue" value="Upload">
        </td>
      </tr>
    </table></td>
  </tr>
</table><%
WriteOtherHiddenVar
WriteFourhorseMen%>
</form><%
	End Sub

	Private Sub WriteUploadForm()%>
<script type="text/javascript"><!--
function onSubmitForm(frm1) {
	if (frm1.elements["larfileupload"].value == '') {
	  alert("Please press the browse button and pick a file.")
		frm1.elements["larfileupload"].focus();
		return false;
	}
	else if (frm1.elements["larfileupload"].value.indexOf(".jpg") < 0 && frm1.elements["larfileupload"].value.indexOf(".jpeg") < 0 && frm1.elements["larfileupload"].value.indexOf(".JPG") < 0 && frm1.elements["larfileupload"].value.indexOf(".JPEG") < 0) {
		alert("Please select a file in .JPG format");
		frm1.elements["larfileupload"].focus();
		return false;
	}
	else return true;
}
//--></script>
<table width="545" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000" >
  <tr>
    <td>
<form name="UploadForm" id="UploadForm" action="<%=mClsFolder%>larUpload.asp" method="POST" enctype="multipart/form-data" onSubmit="return onSubmitForm(this);">
<div style="border-bottom: #A91905 2px solid; font-size:16; font-weight: bold;">Upload files to your server</div>
<br>Files:<input type="file" name="larfileupload" id="larfileupload" size=35><br><input type="submit" name="larUpload" value="Upload">
<div style="border-bottom: #A91905 2px solid;font-size:10"></div>
</form>
<p>&nbsp;</p></td>
  </tr>
</table><%
for each i in Request.Form
	Session.Contents("tequila"&i)=Request.Form(i)
next
Session.Contents("tequilarSessionUID")=rSessionUID
Session.Contents("tequilarMessage")=rMessage
Session.Contents("tequilarClipArtFile")=rClipArtFile
Session.Contents("tequilamActionFileName")=mActionFileName
Session.Contents("tequilamClipArtFolder")=mClipArtFolder
Session.Contents("tequilamClsFolder")=mClsFolder
Session.Contents("tequilamProductID")=mProductID
	End Sub
	Private Sub WriteUploadForm2()%>
<script type="text/javascript"><!--
function onSubmitForm(frm1) {
	if (frm1.elements["larfileupload2"].value == '') {
	  alert("Please press the browse button and pick a file.")
		frm1.elements["larfileupload2"].focus();
		return false;
	}
	else if (frm1.elements["larfileupload2"].value.indexOf(".jpg") < 0 && frm1.elements["larfileupload2"].value.indexOf(".jpeg") < 0) {
		alert("Please select a file in .JPG format");
		frm1.elements["larfileupload2"].focus();
		return false;
	}
	else return true;
}
//--></script>
<table width="545" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF"  bordercolordark="#FFFFFF" bordercolorlight="#000000" >
  <tr>
    <td>
<form name="UploadForm2" id="UploadForm2" action="<%=mClsFolder%>larUpload2.asp" method="POST" enctype="multipart/form-data" onSubmit="return onSubmitForm(this);">
<div style="border-bottom: #A91905 2px solid; font-size:16; font-weight: bold;">Upload files to your server</div>
<br>Files:<input type="file" name="larfileupload2" id="larfileupload2" size=35><br><input type="submit" name="larUpload" value="Upload">
<div style="border-bottom: #A91905 2px solid;font-size:10"></div>
</form>
<p>&nbsp;</p></td>
  </tr>
</table><%
for each i in Request.Form
	Session.Contents("tequila"&i)=Request.Form(i)
next
Session.Contents("tequilarSessionUID")=rSessionUID
Session.Contents("tequilarMessage")=rMessage
Session.Contents("tequilarClipArtFile")=rClipArtFile
Session.Contents("tequilarClipArtFile2")=rClipArtFile2
Session.Contents("tequilamActionFileName")=mActionFileName
Session.Contents("tequilamClipArtFolder")=mClipArtFolder
Session.Contents("tequilamClsFolder")=mClsFolder
Session.Contents("tequilamProductID")=mProductID
	End Sub

	Private Sub WriteClipForm()
	Dim clsCN,clsRS,clsSQL,i%>
<script type="text/javascript"><!--
function submitform(id){
	var x=document.larclipform;
	x.larForm.value=x.larPrev.value;
	x.larIDcategory.value=id;	x.submit();
}
function submitform1(id){
	var x=document.larclipform;
	x.larClipLoop.value='0';
	x.larIDclip.value=id;	x.submit();
}
//--></script>
<form name="larclipform" id="larclipform" action="<%=mActionFileName%>" method="post">
	<input type="hidden" name="larForm" id="larForm" value="ClipForm">
	<input type="hidden" name="larClipLoop" id="larClipLoop" value="1">
	<input type="hidden" name="larPrev" id="larPrev" value="<%=Request.Form("larForm")%>">
	<input type="hidden" name="larContinue" id="larContinue" value="Select">
	<input type="hidden" name="SuccessUpload" value="false">
	<input type="hidden" name="larIDcategory" id="larIDcategory" value="<%=Request.Form("larIDcategory")%>">
	<input type="hidden" name="larIDclip" id="larIDclip" value=""><%
	For each i in Request.Form
		if i="larForm" or i="larPrev" or i="larClipLoop" or i="larContinue" or i="SuccessUpload" or i="larIDcategory" or i="larIDclip" or i="larClipLoop" then
		elseif i="SuccessUpload2" then
		elseif i="larNumTextLines" or i="larImageAlignment" or i="larNumHorizontalLines" or i="larBorder" then
		elseif i="larNumTextLines2" or i="larImageAlignment2" or i="larNumHorizontalLines2" or i="larBorder" then
		elseif Left(i,3)="lar" then
			Response.Write "<input type='hidden' name='"& i &"' value='"& Request.Form(i) &"'>"
		end if
	Next
%>
<table align="center">
<tr><th align="left" valign="top">ClipArt Categories<br>
  <%
	Set clsCN = Server.CreateObject("ADODB.Connection")
	clsCN.Open Conn
	clsSQL = "SELECT * FROM [ClipArtCategories] ORDER BY ClipArtCategoryName"
	Set clsRS = Server.CreateObject("ADODB.Recordset")
	clsRS.Open clsSQL,clsCN,0,1
	Do While Not clsRS.EOF%>
	<a href="" onClick="submitform('<%= clsRS.Fields("ClipArtCategoryID")%>');return false;"><%= clsRS.Fields("ClipArtCategoryName")%></a><br><%
		clsRS.MoveNext
	Loop
	clsRS.Close
	Set RS = Nothing%>
<td valign="top">
	<table>
	<tr><th>ClipArt Images<%
	If Request.Form("larIDcategory")<>"" then
		clsSQL="Select ClipArtID,ClipArtName FROM [ClipArt] WHERE ClipArtCategoryID ="& int(Request.Form("larIDcategory"))
		Set clsRS=Server.CreateObject("ADODB.Recordset")
		clsRS.Open clsSQL,clsCN,0,1
		i = 1
		Do While Not clsRS.EOF
			If i = 1 Then%><tr><%End If%>
			<td><a href="#" onClick="submitform1('<%=clsRS.Fields("ClipArtID")%>');return false;"><IMG BORDER=0 ALT="<%=clsRS.Fields("ClipArtName")%>" SRC="<%=mClipArtFolder%><%=Request.Form("larIDcategory")%>/<%=clsRS.Fields("ClipArtName")%>.jpg"></a>
			<br><%=clsRS.Fields("ClipArtName")%></td><%
			i = i + 1
			If i = 5 Then%></tr><%
				i = 1
			End If
			clsRS.MoveNext
		Loop
		clsRS.Close
		Set clsRS=Nothing
	End if
	clsCN.Close
	Set clsCN= Nothing%>
	</table>
</tr>
</table>
<!--<table align="center"><tr><td><input type="submit" value="Continue"></td></tr></table>-->
<%WriteOtherHiddenVar
WriteFourhorseMen%>
</form><%
	End Sub
	Private Sub WriteClipForm2()
	Dim clsCN,clsRS,clsSQL,i%>
<script type="text/javascript"><!--
function submitform(id){
	var x=document.larclipform;
	x.larForm.value=x.larPrev.value;
	x.larIDcategory2.value=id;	x.submit();
}
function submitform1(id){
	var x=document.larclipform;
	x.larClipLoop.value='0';
	x.larIDclip2.value=id;	x.submit();
}
//--></script>
<form name="larclipform" id="larclipform" action="<%=mActionFileName%>" method="post">
	<input type="hidden" name="larForm" id="larForm" value="ClipForm2">
	<input type="hidden" name="larClipLoop" id="larClipLoop" value="1">
	<input type="hidden" name="larPrev" id="larPrev" value="<%=Request.Form("larForm")%>">
	<input type="hidden" name="larContinue" id="larContinue" value="Select">
	<input type="hidden" name="SuccessUpload2" value="false">
	<input type="hidden" name="larIDcategory2" id="larIDcategory2" value="<%=Request.Form("larIDcategory2")%>">
	<input type="hidden" name="larIDclip2" id="larIDclip2" value=""><%
	For each i in Request.Form
		if i="larForm" or i="larPrev" or i="larClipLoop" or i="larContinue" or i="SuccessUpload2" or i="larIDcategory2" or i="larIDclip2" or i="larClipLoop" then
		elseif i="larNumTextLines" or i="larImageAlignment" or i="larNumHorizontalLines" or i="larNumTextLines2" or i="larImageAlignment2" or i="larNumHorizontalLines2" or i="larBorder" then
		elseif Left(i,3)="lar" then
			Response.Write "<input type='hidden' name='"& i &"' value='"& Request.Form(i) &"'>"
		end if
	Next%>
<table align="center">
<tr><th align="left" valign="top">ClipArt Categories<br>
  <%
	Set clsCN = Server.CreateObject("ADODB.Connection")
	clsCN.Open Conn
	clsSQL = "SELECT * FROM [ClipArtCategories] ORDER BY ClipArtCategoryName"
	Set clsRS = Server.CreateObject("ADODB.Recordset")
	clsRS.Open clsSQL,clsCN,0,1
	Do While Not clsRS.EOF%>
	<a href="" onClick="submitform('<%= clsRS.Fields("ClipArtCategoryID")%>');return false;"><%= clsRS.Fields("ClipArtCategoryName")%></a><br><%
		clsRS.MoveNext
	Loop
	clsRS.Close
	Set RS = Nothing%>
<td valign="top">
	<table>
	<tr><th>ClipArt Images<%
	If Request.Form("larIDcategory2")<>"" then
		clsSQL="Select ClipArtID,ClipArtName FROM [ClipArt] WHERE ClipArtCategoryID ="& int(Request.Form("larIDcategory2"))
		Set clsRS=Server.CreateObject("ADODB.Recordset")
		clsRS.Open clsSQL,clsCN,0,1
		i = 1
		Do While Not clsRS.EOF
			If i = 1 Then%><tr><%End If%>
			<td><a href="#" onClick="submitform1('<%=clsRS.Fields("ClipArtID")%>');return false;"><IMG BORDER=0 ALT="<%=clsRS.Fields("ClipArtName")%>" SRC="<%=mClipArtFolder%><%=Request.Form("larIDcategory2")%>/<%=clsRS.Fields("ClipArtName")%>.jpg"></a>
			<br><%=clsRS.Fields("ClipArtName")%></td><%
			i = i + 1
			If i = 5 Then%></tr><%
				i = 1
			End If
			clsRS.MoveNext
		Loop
		clsRS.Close
		Set clsRS=Nothing
	End if
	clsCN.Close
	Set clsCN= Nothing%>
	</table>
</tr>
</table>
<!--<table align="center"><tr><td><input type="submit" value="Continue"></td></tr></table>-->
<%WriteOtherHiddenVar
WriteFourhorseMen%>
</form><%
	End Sub
End Class%>