12. april 2001 - 15:47
Der er
3 kommentarer og 1 løsning
Sa FileUp
Er der nogen der kan forklare ? <% Set upl = Server.CreateObject(\"SoftArtisans.FileUp\") upl.Path = server.mappath(\"/images1\") upl.save %> Jeg kan ikke få lortet til at virke.... Hvordan ved den hvilke formfelt den skal uploade fra ? (jeg har fulgt bogen <input type=\"file\" name=\"f1\">)
Annonceindlæg fra HPE
12. april 2001 - 15:48
#1
Her er hele min kode.... <%@ LANGUAGE=\"VBSCRIPT\" %> <html> <head> <title>Untitled Document</title> <meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\"> </head> <body bgcolor=\"#FFFFFF\"> <% Set upl = Server.CreateObject(\"SoftArtisans.FileUp\") upl.Path = server.mappath(\"/images1\") upl.save %> <% artikel = request.form(\"artid\") %> <% Function GetAName(DriveSpec) Dim fso Set fso = CreateObject(\"Scripting.FileSystemObject\") GetAName = fso.GetFileName(DriveSpec) End Function filnavn = replace(GetAName(request (\"billede\")),\",\",\"\") %> <% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"bebop.mdb\") SQLstmt = \"UPDATE DISTINCTROW presse SET billede = \'\" & filnavn & \"\' WHERE artikelid = \" & artikel & \"\" response.write sqlstmt Conn.Execute SQLstmt Set SQLstmt = nothing Conn.Execute objRS set objRS = nothing strConn.Close Set strConn = nothing conn.Close Set conn = nothing response.redirect(\"admin_hovedmenu.asp\") %>