17. oktober 2004 - 18:28Der er
3 kommentarer og 2 løsninger
Update med aspSmartUpload
Hej Hvad gør jeg forkert. Jeg har et script hvor jeg laver en insert med aspSmart, men når jeg vil lave en update vil den ikke skrive til databasen, men den vil gerne uploade billedet til mappen. Når jeg udskriver min SQL-string se den således ud:
UPDATE billede SET tekst = 'Mere pop', SET billede = 'begynder2.jpg' WHERE id = 7
Upload script: <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
On Error Resume Next ' Object creation Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
For each file In upload.Files filnavn = file.FileName ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs(server.mappath("Pic/" & file.FileName)) Next ' Trap errors If Err Then Response.Write("<b>Wrong selection : </b>" & Err.description) End If
'Gem filnanvet i databasen if filnavn <> "" then Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db.mdb") Conn.Open DSN SQL = "UPDATE billede SET tekst = '" & strTekst & "', SET billede = '" & filnavn & "' WHERE id = " & sId Conn.Execute(SQL)
Conn.Close Set Conn = Nothing end if end if 'Response.Redirect("index.asp") %>
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Jeg kan godt splitte DSN-stregen op på den måde. Der kommer ingen fejlbeskeder. Når jeg udskriver min SQL ser den således ud: UPDATE billede SET tekst = 'poppopo', SET billede = 'dias31.jpg' WHERE id = 7
Jeg bruger det samme script til at lave en insert ril databasen og det virker. insert script: <%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
On Error Resume Next ' Object creation Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
'Upload filerne til memory upload.Upload
strTekst = upload.form("tekst")
For each file In upload.Files filnavn = file.FileName ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs(server.mappath("Pic/" & file.FileName)) Next ' Trap errors If Err Then Response.Write("<b>Wrong selection : </b>" & Err.description) End If
'Gem filnanvet i databasen if filnavn <> "" then Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("db.mdb") Conn.Open DSN SQL = "INSERT INTO billede (tekst, billede) VALUES ( '" & strTekst & "','" & filnavn & "')" Conn.Execute(SQL)
Conn.Close Set Conn = Nothing end if end if Response.Redirect("index.asp") %> Så hvad gør jeg forkert.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.