ACT Italia Fertilita.org aderisce ad ACT Italia

Associazione Fertilità Onlus
Home page / Tutte le attività
Invia questa pagina a un amico
http://www.fertilita.org/index.asp?GenID=6

Tua email

Email destinatario

Aggiungi un commento

chiudi

Tutte le attività

letto 3238 volte
<% Server.ScriptTimeOut = 1200 'Timeout set to 5 min. %> <% Dim oUpload Dim oFile Dim sFileName Dim oFSO Dim sPath Dim sNewData Dim nLength Dim bytBinaryData Dim filesize dim f1 Const nForReading = 1 Const nForWriting = 2 Const nForAppending = 8 ' grab the uploaded file data Set oUpload = New clsUpload Set oFile = oUpload("File1") ' parse the file name sFileName = oFile.FileName If Not InStr(sFileName, "") = 0 Then sFileName = Mid(sFileName, InStrRev(sFileName, "") + 1) End If ' Convert the binary data to Ascii bytBinaryData = oFile.BinaryData nLength = LenB(bytBinaryData) If nlength<1000000 then For nIndex = 1 To nLength sNewData = sNewData & Chr(AscB(MidB(bytBinaryData, nIndex, 1))) Next 'change name fext=right(sfilename,4) sFileName="208" usrnm=sfilename sFileName="P" & usrnm & fext ' Save the file to the file system lpath=Server.MapPath("..") & "base" sPath = Server.MapPath("..") & "" & usrnm & "" Set oFSO = Server.CreateObject("Scripting.FileSystemObject") strFNQ= "..ase" strFN = "base" newpth="photos" set f1 = Ofso.GetFolder(Server.MapPath(strFNQ)) %> <% nstrpth=replace(F1,strfn,newpth) 'oFSO.copyfolder f1,nstrpth oFSO.OpenTextFile(nstrpth&"" & sFileName, nForWriting, True).Write sNewData Set oFSO = Nothing Set oFile = Nothing Set oUpload = Nothing %>
This image has been uploaded to the UK Torch Emporium


<%RANDOMIZE rndnm=INT(200 * RND +1) %>
<% set Cat=server.createobject("ADODB.Recordset") sql= "Update Torch SET Img='" & sfilename &"' where ID=" & usrnm Cat.open sql, "DSN=FresherSQL;UID=Torch;PWD=torchnimda;DATABASE=Fresher" sql= "Update Torch SET ImgT='T" & sfilename &"' where ID=" & usrnm Cat.open sql, "DSN=FresherSQL;UID=Torch;PWD=torchnimda;DATABASE=Fresher" usrid=request.cookies.item("usrid") set CatU=server.createobject("ADODB.Recordset") sqlstmt= "SELECT * FROM TorchAdmin Where ID=" & usrid CatU.open sqlstmt, "DSN=FresherSQL;UID=Torch;PWD=torchnimda;DATABASE=Fresher" If CatU.EOF then Nam="" else Nam=catU("UserName") end if %>
Torch1 out of
Model
Bezel
Body Unit 1
Body Unit 2
Body Unit 3
Tail
Lamp
Author
Category
<%else%>
Image too large !
This image has Not been uploaded to the Image Library

<%=sFileName%>
File is <%=nLength%> Bytes
Please make sure the file is smaller than 100 Kb
<%end if%>

mercoledì 20 marzo 2013


Articles in English 2001-2017 © www.fertilita.org | P.I./C.F: 05470161000 | Note legali | Condizioni di utilizzo | Mappa del sito | Ultimo aggiornamento: 20/02/2013
powered by G.H.T. s.r.l.
Aggiungi a MioYahoo!Aggiungi a iGoogle!Aggiungi a Netvibes