<% if request("terug") = "ja" then tekenplaatje = request("tekenplaatje") import = "http://www.kinderlines.nl/club/tekeningen/"&tekenplaatje&".jpg" else tekenplaatje = FormatDateTime(Now) tekenplaatje = replace(tekenplaatje," ","") tekenplaatje = replace(tekenplaatje,"/","") tekenplaatje = replace(tekenplaatje,":","") teken = "%" tekst = "" & vbcrlf tekst = tekst &"" & vbcrlf tekst = tekst &"<"&teken& vbcrlf tekst = tekst &"Set Uploader = New FileUploader" & vbcrlf tekst = tekst &"Uploader.Upload()" & vbcrlf tekst = tekst &"If Uploader.Files.Count > 0 Then" & vbcrlf tekst = tekst &" Uploader.Files(""image"").FileName = """&tekenplaatje&".jpg""" & vbcrlf tekst = tekst &" Uploader.Files(""image"").SaveToDisk Server.MapPath(""../club/tekeningen/"")" & vbcrlf tekst = tekst &" Response.Write ""#SHOWDOCUMENT=tekenform.asp?tekenplaatje="&tekenplaatje&"""" & vbcrlf tekst = tekst &"Else" & vbcrlf tekst = tekst &" Response.Write ""#SHOWSTATUS=Image is not found.""" & vbcrlf tekst = tekst &"end if" & vbcrlf tekst = tekst &""&teken&">" & vbcrlf Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject") MyFile = "e:\domains\kinderlines.nl\www\html\send"&tekenplaatje&".asp" Set MyOutStream=MyFileObj.CreateTextFile(MyFile, TRUE) MyOutStream.WriteLine(tekst) MyOutStream.Close import = "http://www.kinderlines.nl/html/load.gif" end if %>

\

 

 

 

 

 

 

 

 

Tekening klaar? Klik op Opslaan.

 

Kinderlines Tekenwedstrijd

 

 

 

 

 

 

 

 

Delen |

Logotr

Contact          Adverteren         Links

Home        Kinderlines Verhalen        Kinderlines Kleurplaten        Penvrienden        Dierentuinnieuws        Domeinen te koop     Spellen

Copyright 2016, Kinderlines Uitgeverij, alle rechten voorbehouden.