Ilmaisia kuvioita

<% 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 »»
	Boordikuvio Kehä: Boordikehä Värit: 1028 Sininen 1076 Tummansininen Lataa zip-tiedosto: border.zip »»
	Appelsiini Kehä: 100 x 100 mm Värit: 1238 Oranssi 1001 Valkoinen Lataa zip-tiedosto: orange.zip »»
	Skeittaaja Kehä: 100 x 100 mm Värit: 1079 Tummanvihreä 1039 Punainen Lataa zip-tiedosto: skater.zip »»
	Lehti (Kerstin Widell) kehä: 100 x 100 mm Väri: 1149 Kullankeltainen Lataa zip-tiedosto: leaf.zip »»
	Megakukat (Lena Mattsson) Kehä: 360 x 150 mm Värit: 1159 Tummankeltainen 1039 Punainen 1169 Tummanpunainen 1168 Oranssi 1159 Tummankeltainen Lataa zip-tiedosto: megaflower.zip »»
	Tähti (Kerstin Widell) Kehä: 100 x 100 mm Värit: 1184 Oranssi 1238 Vaalea oranssi 1181 Tumma oranssi 1177 Vihreä Lataa zip-tiedosto: stjarna.zip »»
	Kruunu Kehä: 100 x 100 mm Värit: 1167 Vaaleankeltainen 1535 Tummansininen 1194 Violetti Lataa zip-tiedosto: crown.zip »»
	Tulppaani Kehä: 240 x 150 mm Värit: 1209 Vaaleanvihreä 1156 Tummanvihreä 1117 Kalpea vaaleanpunainen 1119 Vaaleanpunainen 1190 Pinkki 1005 Musta Lataa zip-tiedosto: tulip.zip »»
	Fantasiakukka Kehä: 170 x 100 mm Värit: 1109 Vaaleanpunainen 1191 Pinkki 1101 Vihreä 1208 Tummanvihreä Lataa zip-tiedosto: fantasy_flower.zip »»
	Nalle Kehä: 240 x 150 mm Värit: 1236 Vaaleanvihreä 1196 Sininen 1017 Vaaleanpunainen 1238 Oranssi 1005 Musta 1017 Vaaleanpunainen 1126 Vaaleanruskea 1058 Ruskea 1002 Valkoinen 1196 Sininen 1510 Vaaleanvihreä 1005 Musta   Lataa zip-tiedosto: teddybear.zip »»
	Metsämansikat (Kerstin Widell) Kehä: 170 x 100 mm Värit: 1147 Punainen 1177 Vihreä 1002 Valkoinen 1176 Tummanvihreä 1023 Keltainen Lataa zip-tiedosto: Wild_Strawberry.zip »»
	Kukka Kehä: 70,80 x 70,80 mm Värit: 1177 Vihreä 1511 Vaaleanpunainen 1185 Keltainen 1011 Harmaa Lataa zip-tiedosto: flower_corner.zip »»
	Kukkasydän (Kerstin Widell) Kehä: 100 x 100 mm Värit: 1177 Vihreä 1148 Vaaleanpunainen 1169 Pinkki Lataa zip-tiedosto: flower_heart.zip »»
	Halloween (Kerstin Widell) Kehä: 100 x 100 mm Värit: 1023 Keltainen 1002 Valkoinen 1011 Vaaleanharmaa 1131 Tummanruskea 1005 Musta 1078 Oranssi Lataa zip-tiedosto: Halloween.zip »»
	Kevätkukka Kehä: 100 x 100 mm Värit: 1177 Vaaleanvihreä 1023 Keltainen 1137 Tumma keltainen 1176 Tummanvihreä Lataa zip-tiedosto: tussilago.zip »»
	Majakka Kehä: 100 x 100 mm Värit: 1143 Sininen 1147 Punainen 1167 Vaaleankeltainen 1219 Tummanharmaa 1218 Vaaleanharmaa 1059 Tummanruskea 1170 Ruskea 1128 Vaaleanruskea 1002 Valkoinen 1005 Musta 1219 Tummanharmaa 1218 Vaaleanharmaa Lataa zip-tiedosto: lighthouse.zip »»
	Aurinkolasit Kehä: 100 x 100 mm Värit: 1076 Sininen 1074 Vaaleansininen 1170 Ruskea 1232 Vihreä 1039 Punainen 1023 Keltainen 1071 Valkoinen Lataa zip-tiedosto: sunglasses.zip »»