hm.. bifogar hela koden:
<%
Dim Namn, Kostnad, Bild, Kategori, kort_beskrivning, Stor_beskrivning, Veri, error, fel(6), rakna, SQL, q
Namn = Request.Form("Namn")
Kostnad = Request.Form("Kostnad")
Bild = Request.Form("Bild")
Kategori = Request.Form("Kategori")
kort_beskrivning = Request.Form("kort_beskrivning")
Stor_beskrivning = Request.Form("Stor_beskrivning")
Status = Request.Form("Status")
q = Request.form("q")
With Response
.Write "<html>"
.Write "<head>"
.Write "<Style>"
.Write "<!--"
.Write ".face {font-family:Tahoma,Verdana; font-size:12px;color:#ffffff;}"
.Write ".dot {color:#ffffff;}"
.Write "-->"
.Write "</style>"
.Write "</head>"
.Write ""
.Write "<body bgcolor=""#666666"">"
.Write "<center>"
.Write "<table width=""600"" border=""1"" bordercolor=""#000000"" cellpadding=""4"" cellspacing=""0"">"
.write "<tr>"
.write "<td>"
.Write "<br>"
.Write "<br>"
.Write "<a class=""face"" href=""javascript:self.history.go(-1)"">Tillbaka</a>"
.Write "</ul>"
.write "</td>"
.write "</tr>"
.Write "</table>"
.Write "</center>"
.Write "</body>"
.Write "</html>"
End With
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
Set con = Server.Createobject("ADODB.Connection")
Con.open "DSN"
sqlString = "UPDATE Produkter SET Namn='" & fixQuotes( Namn ) & "',kostnad=" & fixQuotes( kostnad ) & ", Bild='" & fixQuotes( Bild ) & "', kategori='" & fixQuotes( kategori ) & "', kort_beskrivning='" & fixQuotes( kort_beskrivning ) & "', Stor_beskrivning='" & fixQuotes( Stor_beskrivning ) & "', Veri=" & Status & " WHERE id=" & id
'sqlString = "UPDATE Produkter SET " &_
' "Namn='" & fixQuotes( Namn ) & "'," &_
' "kostnad=" & fixQuotes( kostnad ) & "," &_
' "Bild='" & fixQuotes( Bild ) & "'," &_
' "kategori='" & fixQuotes( kategori ) & "'," &_
' "kort_beskrivning='" & fixQuotes( kort_beskrivning ) & "'," &_
' "Stor_beskrivning='" & fixQuotes( Stor_beskrivning ) & "'," &_
' "Status=" & Status & " WHERE " &_
' "id=" & id
Con.Execute sqlString
With Response
'.write "<font class=""face"">Produkten " & Namn & " har laggts till</font>"
'.write "<br>"
'.write "<a href=""lagg_till_produkt.asp"" class=""face"">Tillbaka</a>"
.write "</td>"
.write "</tr>"
.Write "</table>"
.Write "</center>"
.Write "</body>"
.Write "</html>"
End With
%>