Fejl i Opdaterig Af Databese
Hej...Jeg får en fjelmedlese når jeg opdater min database hvis tegnet \' er i. Hvordan kommer jeg uden om dette problem?
Her er min ASP kode
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../data2.mdb\")
\' SQL sætning opbygges
strSQL = \"Update koder set \"
strSQL = strSQL & \"konsol = \'\" & Request.form(\"konsol\") & \"\',\"
If Request.Form(\"c_start_tekst\") = \"true\" Then
strSQL = strSQL & \"start_tekst = \'\" & Request.form(\"start_tekst\") & \"\',\"
End if
If Request.Form(\"c_punkt_tekst\") = \"true\" Then
strSQL = strSQL & \"punkt_tekst = \'\" & Request.form(\"punkt_tekst\") & \"\',\"
End If
If Request.Form(\"c_tabel\") = \"true\" Then
strSQL = strSQL & \"tabel1 = \'\" & Request.form(\"tabel1\") & \"\',\"
strSQL = strSQL & \"tabel2 = \'\" & Request.form(\"tabel2\") & \"\',\"
End If
If Request.Form(\"c_Slut_tekst\") = \"true\" Then
strSQL = strSQL & \"Slut_tekst = \'\" & Request.form(\"Slut_tekst\") & \"\',\"
End if
strSQL = strSQL & \"spilnavn = \'\" & Request.form(\"spilnavn\") & \"\'\"
strSQL = strSQL & \" Where Id=\" & Request.Querystring(\"id\")
\' SQL sætning eksekveres
Conn.Execute(strSQL)
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
response.redirect (\"liste.asp?konsol=\" & Request.Querystring(\"Konsol\") & \"&konsolname=\" & Request.Querystring(\"Konsolname\"))
