Springer noget asp script over???

Hey !

Jeg er ved at lave en fonktion sådan at man kan opdatere databasen, men det springer opdaterings scriptet over???

Den kommer ikke med nogen fejlmedselse, men den opdatere ikke noget sm helst?

jeg ved navne på tabelerne osv. er rigtige da de er kopieret fra databasen.

Koden ser sådan her ud:

<%
SystemNavn = Trim(Replace(Request.Querystring("SystemNavn"),"'","" ))
AntalBeskeder = Request.Querystring("AntalBeskeder")
OverskriftFarve = Request.Querystring("OverskriftFarve")
OverskriftBagrund = Request.Querystring("OverskriftBagrund")
BeskederBagrund = Request.Querystring("BeskederBagrund")
BeskederFarve = Request.Querystring("BeskederFarve")
BeskederNavnFarve = Request.Querystring("BeskederNavnFarve")
SkrivBagrund = Request.Querystring("SkrivBagrund")
SkrivTekstFarve = Request.Querystring("SkrivTekstFarve")
SkrivBeskedBagrund = Request.Querystring("SkrivBeskedBagrund")
SkrivBeskedFarve = Request.Querystring("SkrivBeskedFarve")
Bagrund = Request.Querystring("Bagrund")

If Systemnavn <> "" Then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/db.mdb")
Conn.Open DSN

strSQL = "Update CommentsSystems set "
strSQL = strSQL & "Systemnavn= '" & Systemnavn & "', "
strSQL = strSQL & "AntalBeskeder= '" & AntalBeskeder & "', "
strSQL = strSQL & "OverskriftFarve= '" & OverskriftFarve & "', "
strSQL = strSQL & "OverskriftBagrund= '" & OverskriftBagrund & "', "
strSQL = strSQL & "BeskederBagrund= '" & BeskederBagrund & "', "
strSQL = strSQL & "BeskederFarve= '" & BeskederFarve & "', "
strSQL = strSQL & "BeskederNavnFarve= '" & BeskederNavnFarve & "', "
strSQL = strSQL & "SkrivBagrund= '" & SkrivBagrund & "', "
strSQL = strSQL & "SkrivTekstFarve= '" & SkrivTekstFarve & "', "
strSQL = strSQL & "SkrivBeskedBagrund= '" & SkrivBeskedBagrund & "', "
strSQL = strSQL & "SkrivBeskedFarve= '" & SkrivBeskedFarve & "', "
strSQL = strSQL & "Bagrund= '" & Bagrund & "' "
strSQL = strSQL & " Where Id = " & Session("Id") & ";"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

ting = "Opdateret!<br>"

End If
%>
          <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
      <HTML>
    <HEAD>
      <TITLE>Firehat.dk</TITLE>
    </HEAD>
    <BODY bgcolor="#FFBB2D">
   
    <p align="center"><font size="1">&nbsp;</font><br>
    <font size="6" color="#8D663C" face="Tahoma">Rediger comments-system</font></p>
    <p align="center"><font face="Courier" size="4">
    <b><% Response.Write ting %></b>
    <b>Denne del af siden er under opbygning!</b>
<%
Id = session("Id")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/db.mdb")
Conn.Open DSN

strSQL = "Select * From CommentsSystems Where BrugersId = '" & Id & "'"
Set rs = Conn.Execute(strSQL)
%>
<form action("rediger.asp")>
    <table>
<tr>
    <td>Comments-systems navn:</td>
    <td><input name="SystemNavn" value="<% Response.Write rs("SystemNavn") %>"></td>
</tr>
<tr>
    <td>Antal beskeder der skal vises:</td>
    <td><input name="AntalBeskeder" value="<% Response.Write rs("AntalBeskeder") %>">*</td>
</tr>
<tr>
    <td>Overskriftens farve:</td>
    <td><input name="OverskriftFarve" value="<% Response.Write rs("OverskriftFarve") %>">**</td>
</tr>
<tr>
    <td>Overskriftens bagrundsfarve:</td>
    <td><input name="OverskriftBagrund" value="<% Response.Write rs("OverskriftBagrund") %>">**</td>
</tr>
<tr>
    <td>Beskedernes bagrundsfarve:</td>
    <td><input name="BeskederBagrund" value="<% Response.Write rs("BeskederBagrund") %>">**</td>
</tr>
<tr>
    <td>Beskeder tekstfarve:</td>
    <td><input name="BeskederFarve" value="<% Response.Write rs("BeskederFarve") %>">**</td>
</tr>
<tr>
    <td>Navnendes tekstfarve:</td>
    <td><input name="BeskederNavnFarve" value="<% Response.Write rs("BeskederNavnFarve") %>">**</td>
</tr>
<tr>
    <td>Skriv-bagrund:</td>
    <td><input name="SkrivBagrund" value="<% Response.Write rs("SkrivBagrund") %>">**</td>
</tr>
<tr>
    <td>SkrivTekstFarve:</td>
    <td><input name="SkrivTekstFarve" value="<% Response.Write rs("SkrivTekstFarve") %>">**</td>
</tr>
<tr>
    <td>SkrivBeskedBagrund:</td>
    <td><input name="SkrivBeskedBagrund" value="<% Response.Write rs("SkrivBeskedBagrund") %>">**</td>
</tr>
<tr>
    <td>SkrivBeskedFarve:</td>
    <td><input name="SkrivBeskedFarve" value="<% Response.Write rs("SkrivBeskedFarve") %>">**</td>
</tr>
<tr>
    <td>Bagrunds farve:</td>
    <td><input name="Bagrund" value="<% Response.Write rs("Bagrund") %>">**</td>
</tr>
<tr>
    <td></td>
    <td><input value="Opdater comments-system" type="Submit"></td>
</tr>
</table>
</form>
* <i>SKAL</i> være et, eller flere tal!<br><br>
** Farverne kan skrives på følgende måder:<br>1) Man kan bruge farve-kode (ex. #C0C0C0 = Grå = Gray)<br>2) Man kan skrive farvens navn på engelsk (ex. Red = Rød = #FF0000)<br>
<!-- Få mere hjælp til farve-koderne her! -->
<%
Conn.Close
Set Conn = Nothing
%>
<br><br>
<b>Din Comments-system kode er:</b><br>
<textarea></textarea>
<br>
Denne kode skal være der på din side hvor du vil have dit comments-system.
    </font></p>
</body>
</html>

/Firehat