<% if cint(Request.QueryString("e")) = 1 then dim apa dim mySmartUpload Set Upload = Server.CreateObject("Persits.Upload") apa = Upload.SaveVirtual("/pic") 'apa = Upload.Form("/pic") Response.write("
") Response.write("Bilden " &file1& " är nu uppladdad:
") Response.write("Det det gick bra.!") Response.write("

Back") else %> Upload Picture:

<%end if%> <% End If%>