Free designs

<% Function getDateString(ByVal theDate, ByVal strDateSeparator) Dim strDateString Dim strYear, strMonth, strDay If IsDate(theDate) Then strYear = Year(theDate) strMonth = Month(theDate) strDay = Day(theDate) If Len(strYear) = 2 Then strYear = "20" & strYear If Len(strMonth) = 1 Then strMonth = "0" & strMonth If Len(strDay) = 1 Then strDay = "0" & strDay strDateString = strYear & strDateSeparator & strMonth & strDateSeparator & strDay Else strDateString = theDate End If getDateString = strDateString End Function Function isValidKeys(ByVal sentkey1, ByVal sentkey2) Dim calldate, cy, cm, cd, ctot, pipart, random1,temp2 Dim sentkey2_1 Dim bOk : bOk = False temp2=sentkey2 If Not IsNumeric(temp2) Then temp2= 0 Else temp2= CDbl(temp2) sentkey2=temp2 ' random key generation random1=sentkey1 If Not IsNumeric(random1) Then random1 = 0 Else random1 = CDbl(random1) ' end random ' Date key generation calldate=FormatDateTime(now(),2) cy=year(calldate)-2001 cm=month(calldate) cd=day(calldate) ctot=(cint(cd)*501) + (cint(cm)*cint(cd)*700003) + (cint(cy)*cint(cd)* 113) ctot=ctot*10013 '/date key generation ' Pi generation pipart=left(replace(cstr(4*Atn(1)),".",""),16) ' end PI generation sentkey2_1 = (pipart-(sentkey2-ctot)) 'Response.Write "inside function ...
" 'Response.Write "
sentkey2:" & sentkey2 & ":" 'Response.Write "
sentkey2_1:" & sentkey2_1 & ":" 'Response.Write "
compare-result:" & (sentkey2 & "" = sentkey2_1 & "") & ":" 'Response.Write "
dateformat:" & calldate & ":" If cstr(sentkey2_1)=cstr(sentkey1) Then bOk = True End If isValidKeys = bOk End Function If Not isValidKeys(Request.QueryString("txtKey1"), Request.QueryString("txtKey2")) Then ' Do something if the keys isnt valid, redirect ... Response.Redirect "" 'Response.Write "redirect ...
" 'Response.Write "key1:" & Request.QueryString("txtKey1") 'Response.Write "

---

" 'Response.Write "key2:" & Request.QueryString("txtKey2") 'Response.End Else ' otherwise stay on this page and show content ... End If %>

	Hortensia Hoop: 240 x 150 mm Colors: 1209 Yellow 1177 Green 1176 Dark Green 1068 Pink 1225 Light Purple 1117 Purple Download zip file »»
	Border Hoop: Endless Embroidery Hoop Colours: 1028 Blue 1076 Dark Blue Download zip file border.zip »»
	Orange Hoop: 100 x 100 mm Colours: 1238 Orange 1001 White Download zip file orange.zip »»
	Skater Hoop: 100 x 100 mm Colours: 1079 Dark Green 1039 Red Download zip file skater.zip »»
	Leaf by Kerstin Widell Hoop: 100 x 100 mm Colours: 1149 Golden Download zip file leaf.zip »»
	Mega Flowers by Lena Mattsson Hoop: 360 x 150 mm Colours: 1159 Dark Yellow 1039 Red 1169 Dark Red 1168 Orange 1159 Dark Yellow Download zip file megaflower.zip »»
	Star by Kerstin Widell Hoop: 100 x 100 mm Colours: Sew with Sulky thread: 1184 Orange 1238 Light Orange 1181 Dark Orange 1177 Green Download zip file stjarna.zip »»
	Crown Hoop: 100 x 100 mm Colours: 1167 Light Yellow 1535 Dark Blue 1194 Purple Download zip file crown.zip »»
	Tulip Hoop: 240 x 150 mm Colours: 1209 Light Green 1156 Dark Green 1117 Light Pink 1119 Pink 1190 Dark Pink 1005 Black Download zip file tulip.zip »»
	Fantasy Flower Hoop: 170 x 100 mm Colours: 1109 Pink 1191 Dark Pink 1101 Green 1208 Dark Green Download zip file fantasy_flower.zip »»
	Teddybear Hoop: 240 x 150 mm Colours: 1236 Light Grey 1196 Blue 1017 Pink 1238 Orange 1005 Black 1017 Pink 1126 Light Brown 1058 Brown 1002 White 1196 Blue 1510 Light Green 1005 Black Download zip file teddybear.zip »»
	Wild Strawberry by Kerstin Widell Hoop: 170 x 100 mm Colours: 1147 Red 1177 Green 1002 White 1176 Dark Green 1023 Yellow Download zip file Wild_Strawberry.zip »»
	Flower Corner Hoop: 70,80 x 70,80 mm Colours: 1177 Green 1511 Pink 1185 Yellow 1011 Grey Download zip file flower_corner.zip »»
	Flowerheart by Kerstin Widell Hoop: 100 x 100 mm Colours: 1177 Green 1148 Pink 1169 Dark Pink Download zip file flower_heart.zip »»
	Halloween by Kerstin Widell Hoop: 100 x 100 mm Colours: 1023 Yellow 1002 White 1011 Light Grey 1131 Dark Brown 1005 Black 1078 Orange Download zip file Halloween.zip »»
	Spring flower Hoop: 100 x 100 mm Colours: 1177 Light Green 1023 Yellow 1137 Dark Yellow 1176 Dark green Download zip file tussilago.zip »»
	Lighthouse Hoop: 100 x 100 mm Colours: 1143 Blue 1147 Red 1167 Light Yellow 1219 Dark Grey 1218 Light Grey 1059 Dark Brown 1170 Brown 1128 Light Brown 1002 White 1005 Black 1219 Dark Grey 1218 Light Grey Download zip file lighthouse.zip »»
	Sunglasses Hoop: 100 x 100 mm Colours: 1076 Blue 1074 Light Blue 1170 Brown 1232 Green 1039 Red 1023 Yellow 1071 White Download zip file sunglasses.zip »»