Skrive til database - rettelser

Hej eksperter

Jeg har mange gange lavet filer, som kan rette direkte i en database, men nu vil det pludselig ikke !!!!!

Jeg har naturligvis en side, som sender nogle parametre videre, som via denne kildekode skal ændre i databasen:

<%
SQLserveradr="xxxxx"
SQLdatabase="xxxxx"
SQLlogin="xxxx"
SQLpassword="xxx"

Set Conn = Server.CreateObject("ADODB.Connection")

conStr = "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase
conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386"

Conn.Open conStr
%>

<%Response.Expires = -1 %>

<%
Id = Session("hid")
Klientnr= Request.form("Klientnr")
Navn= Request.form("Navn")
Adresse= Request.form("Adresse")
Post= Request.form("Post")
Tlf= Request.form("Tlf")
Tlf2= Request.form("Tlf2")
Email= Request.form("Email")
Hjemmeside= Request.form("Hjemmeside")
Kontaktperson= Request.form("Kontaktperson")
Vilkaar= Request.form("Vilkaar")
Kommentarer= Request.form("Kommentarer")

strSQL = "UPDATE Klienter set Klientnr ='" & Klientnr & "'"
strSQL = strSQL & ", Navn = '" & Navn & "'"
strSQL = strSQL & ", Adresse = '" & Adresse & "'"
strSQL = strSQL & ", Post = '" & Post & "'"
strSQL = strSQL & ", Tlf = '" & Tlf & "'"
strSQL = strSQL & ", Tlf2 = '" & Tlf2 & "'"
strSQL = strSQL & ", Email = '" & Email & "'"
strSQL = strSQL & ", Hjemmeside = '" & Hjemmeside & "'"
strSQL = strSQL & ", Kontaktperson = '" & Kontaktperson & "'"
strSQL = strSQL & ", Vilkaar = '" & Vilkaar & "'"
strSQL = strSQL & ", Kommentarer = '" & Kommentarer & "'"
strSQl = StrSQL & "  Where id= " & ID

Set RS = conn.execute(strSQL)

Response.Redirect "visklient.asp"
%>

Det pudsige er, at den opdaterer godt nok i databasen, men sender ikke videre til "visklient.asp"?????????? Hvad har jeg lige overset?????

På forhånd tak.