Gratis ontwerpen

<% 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 Borduurring: 240 x 150 mm Kleuren: 1209 Geel 1177 Groen 1176 Donker Groen 1068 Rose 1225 Licht Paars 1117 Paars Download zip bestand »»
	Rand Borduurring: Endless Embroidery Hoop Kleuren: 1028 Blauw 1076 Donkerblauw Download zipbestand: border.zip »»
	Sinaasappel Borduurring: 100 x 100 mm Kleuren: 1238 Oranje 1001 Wit Download zipbestand orange.zip »»
	Skater Borduurring: 100 x 100 mm Kleuren: 1079 Donkergroen 1039 Rood Download zipbestand skater.zip »»
	Blad van Kerstin Widell Borduurring: 100 x 100 mm Kleuren: 1149 Goudgeel Download zipbestand: leaf.zip »»
	Mega Flowers van Lena Mattsson Borduurring: 360 x 150 mm Kleuren: 1159 Donkergeel 1039 Rood 1169 Donkerrood 1168 Oranje 1159 Donkergeel Download zipbestand: megaflower.zip »»
	Ster van Kerstin Widell Borduurring: 100 x 100 mm Kleuren: Naai met Sulky-garen: 1184 Oranje 1238 Licht-oranje 1181 Donker-oranje 1177 Groen Download zipbestand: stjarna.zip »»
	Kroon Borduurring:: 100 x 100 mm Kleuren: 1167 Lichtgeel 1535 Donkerblauw 1194 Paars Download zipbestand: crown.zip »»
	Tulp Borduurring: 240 x 150 mm Kleuren: 1209 Lichtgroen 1156 Donkergroen 1117 Lichtroze 1119 Roze 1190 Donkerroze 1005 Zwart Download zipbestand: tulip.zip »»
	Fantasiebloem Borduurring: 170 x 100 mm Kleuren: 1109 Roze 1191 Donkerroze 1101 Groen 1208 Donkergroen Download zip bestand: fantasy_flower.zip »»
	Teddybear Borduurring: 240 x 150 mm Kleuren: 1236 Lichtgrijs 1196 Blauw 1017 Roze 1238 Oranje 1005 Zwart 1017 Roze 1126 Lichtbruin 1058 Bruin 1002 Wit 1196 Blauw 1510 Lichtgroen 1005 Zwart Download zipbestand: teddybear.zip »»
	Wilde Aardbei van Kerstin Widell Borduurring: 170 x 100 mm Kleuren: 1147 Rood 1177 Groen 1002 Wit 1176 Donkergroen 1023 Geel Download zipbestand: Wild_Strawberry.zip »»
	Bloemenhoek Borduurring: 70,80 x 70,80 mm Kleuren: 1177 Groen 1511 Roze 1185 Geel 1011 Grijs Download zipbestand: flower_corner.zip »»
	Bloemenhart van Kerstin Widell Borduurring: 100 x 100 mm Kleuren: 1177 Groen 1148 Roze 1169 Donkerroze Download zipbestand: flower_heart.zip »»
	Halloween van Kerstin Widell Borduurring: 100 x 100 mm Kleuren: 1023 Geel 1002 Wit 1011 Lichtgrijs 1131 Donkerbruin 1005 Zwart 1078 Oranje Download zipbestand: Halloween.zip »»
	Lentebloem Borduurring: 100 x 100 mm Kleuren: 1177 Lichtgroen 1023 Geel 1137 Donkergeel 1176 Donkergroen Download zipbestand: tussilago.zip »»
	Vuurtoren Borduurring: 100 x 100 mm Kleuren: 1143 Blauw 1147 Rood 1167 Lichtgeel 1219 Donkergrijs 1218 Lichtgrijs 1059 Donkerbruin 1170 Bruin 1128 Lichtbruin 1002 Wit 1005 Zwart 1219 Donkergrijs 1218 Lichtgrijs Download zipbestand: lighthouse.zip »»
	Zonnebril Borduurring: 100 x 100 mm Kleuren: 1076 Blauw 1074 Lichtblauw 1170 Bruin 1232 Groen 1039 Rood 1023 Geel 1071 Wit Download zipbestand: sunglasses.zip »»