Gratis broderier

Klicka här för instruktioner om hur du laddar ner »»<% 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 Broderbåge: 240 x 150 mm Färger: 1209 Gul 1177 Grön 1176 Mörkgrön 1068 Rosa 1225 Ljuslila 1117 Lila Ladda ner zipfil »»
	Kant Broderbåge: Endless Embroidery Hoop Färger: 1028 Blå 1076 Mörkblå Ladda ner zipfil border.zip »»
	Apelsin Broderbåge: 100 x 100 mm Färger: 1238 Orange 1001 Vit Ladda ner zip-fil apelsin.zip »»
	Skateboardåkare Broderbåge: 100 x 100 mm Färger: 1079 Mörkgrön 1039 Röd Ladda ner zip-fil skateboardåkare.zip »»
	Löv av Kerstin Widell Broderbåge: 100 x 100 mm Färger: 1149 Guld Ladda ner zip-fil löv.zip »»
	Megablommor av Lena Mattsson Broderbåge: 360 x 150 mm Färger: 1159 Mörkgul 1039 Röd 1169 Mörkröd 1168 Orange 1159 Mörkgul Ladda ner zip-fil megablomma.zip »»
	Stjärna av Kerstin Widell Broderbåge: 100 x 100 mm Färger: Sy med Sulky-tråd: 1184 Orange 1238 Ljusorange 1181 Mörkorange 1177 Grön100 x 100 mm Ladda ner zip-fil stjärna.zip »»
	Krona Broderbåge: 100 x 100 mm Färger: 1167 Ljusgul 1535 Mörkblå 1194 Lila Ladda ner zip-fil krona.zip »»
	Tulpan Broderbåge: 240 x 150 mm Färger: 1209 Ljusgrön 1156 Mörkgrön 1117 Skär 1119 Rosa 1190 Mörkrosa 1005 Svart Ladda ner zip-fil tulpan.zip »»
	Fantasiblomma Broderbåge: 170 x 100 mm Färger: 1109 Rosa 1191 Mörkrosa 1101 Grön 1208 Mörkgrön Ladda ner zip-fil antasiblomma.zip »»
	Nallebjörn Broderbåge: 240 x 150 mm Färger: 1236 Ljusgrå 1196 Blå 1017 Rosa 1238 Orange 1005 Svart 1017 Rosa 1126 Ljusbrun 1058 Brun 1002 Vit 1196 Blå 1510 Ljusgrön 1005 Svart Ladda ner zip-fil nallebjörn.zip »»
	Smultron av Kerstin Widell Broderbåge: 170 x 100 mm Färger: 1147 Röd 1177 Grön 1002 Vit 1176 Mörkgrön 1023 Gul Ladda ner zip-fil Smultron.zip »»
	Blomsterhörn Hoop: Broderbåge: 70,80 x 70,80 mm Färger: 1177 Grön 1511 Rosa 1185 Gul 1011 Grå Ladda ner zip-fil blomsterhörn.zip »»
	Flowerheart av Kerstin Widell Broderbåge: 100 x 100 mm Färger: 1177 Grön 1148 Rosa 1169 Mörkrosa Download zip file flower_heart.zip »»
	Halloween av Kerstin Widell Broderbåge: 100 x 100 mm Färger: 1023 Gul 1002 Vit 1011 Ljusgrå 1131 Mörkbrun 1005 Svart 1078 Orange Download zip file Halloween.zip »»