Kostenlose Motive

<% 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 %>

	Bedspread Download zip file »»
	Hortensia Hoop: 240 x 150 mm Colors: 1209 Yellow 1177 Green 1176 Dark Green 1068 Pink 1225 Light Purple 1117 Purple Download zip file »»
	Bordüre Stickrahmen: Endless Embroidery Hoop Farben: 1028 Blau 1076 Dunkelblau zip-Datei herunterladen: border.zip »»
	Orange Orange Stickrahmen: 100 x 100 mm Farben: 1238 Orange 1001 Weiß zip-Datei herunterladen: orange.zip »»
	Skater Stickrahmen: 100 x 100 mm Farben: 1079 Dunkelgrün 1039 Rot zip-Datei herunterladen: skater.zip »»
	Blatt von Kerstin Widell Stickrahmen: 100 x 100 mm Farben: 1149 Gold zip-Datei herunterladen: leaf.zip »»
	Große Blüten von Lena Mattsson Stickrahmen: 360 x 150 mm Farben: 1159 Dunkelgelb 1039 Rot 1169 Dunkelrot 1168 Orange 1159 Dunkelgelb zip-Datei herunterladen: megaflower.zip »»
	Stern von Kerstin Widell Stickrahmen: 100 x 100 mm Farben: Mit Sulky-Garn nähen: 1184 Orange 1238 Hellorange 1181 Dunkelorange 1177 Grün zip-Datei herunterladen: stjarna.zip »»
	Krone Stickrahmen: 100 x 100 mm Farben: 1167 Hellgelb 1535 Dunkelblau 1194 Purpur zip-Datei herunterladen: crown.zip »»
	Tulpe Stickrahmen: 240 x 150 mm Farben: 1209 Hellgrün 1156 Dunkelgrün 1117 Hellrosa 1119 Rosa 1190 Dunkelrosa 1005 Schwarz zip-Datei herunterladen: tulip.zip »»
	Phantasieblume Stickrahmen: 170 x 100 mm Farben: 1109 Rosa 1191 Dunkelrosa 1101 Grün 1208 Dunkelgrün zip-Datei herunterladen: fantasy_flower.zip »»
	Teddybär Stickrahmen: 240 x 150 mm Farben: 1236 Hellgrau 1196 Blau 1017 Rosa 1238 Orange 1005 Schwarz 1017 Rosa 1126 Hellbraun 1058 Braun 1002 Weiß 1196 Blau 1510 Hellgrün 1005 Schwarz teddybear.zip »»
	Walderdbeere von Kerstin Widell Stickrahmen: 170 x 100 mm Farben: 1147 Rot 1177 Grün 1002 Weiß 1176 Dunkelgrün 1023 Gelb zip-Datei herunterladen: Wild_Strawberry.zip »»
	Blütenecke Stickrahmen: 70,80 x 70,80 mm Farben: 1177 Grün 1511 Rosa 1185 Gelb 1011 Grau zip-Datei herunterladen: flower_corner.zip »»
	Blütenherz von Kerstin Widell Stickrahmen: 100 x 100 mm Farben: 1177 Grün 1148 Rosa 1169 Dunkelrosa zip-Datei herunterladen: flower_heart.zip »»
	Halloween von Kerstin Widell Stickrahmen: 100 x 100 mm Farben: 1023 Gelb 1002 Weiß 1011 Hellgrau 1131 Dunkelbraun 1005 Schwarz 1078 Orange zip-Datei herunterladen: Halloween.zip »»
	Frühlingsblume Stickrahmen: 100 x 100 mm Farben: 1177 Hellgrün 1023 Gelb 1137 Dunkelgelb 1176 Dunkelgrün tussilago.zip »»
	Leuchtturm Stickrahmen: 100 x 100 mm Farben: 1143 Blau 1147 Rot 1167 Hellgelb 1219 Dunkelgrau 1218 Hellgrau 1059 Dunkelbraun 1170 Braun 1128 Hellbraun 1002 Weiß 1005 Schwarz 1219 Dunkelgrau 1218 Hellgrau zip-Datei herunterladen: lighthouse.zip »»
	Sonnenbrille Stickrahmen: 100 x 100 mm Farben: 1076 Blau 1074 Hellblau 1170 Braun 1232 Grün 1039 Rot 1023 Gelb 1071 Weiß sunglasses.zip »»