value virker ikke

Her er koden
<%@ LANGUAGE=\"VBSCRIPT\"
%>
    <HTML>
    <HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft FrontPage 4.0\">
<META HTTP-EQUIV=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<TITLE>index</TITLE>
<%If Session(\"Adgang\") = \"Godkendt\" Then
strMose = \"ja\"
Else
response.write \"[Du er ikke logget ind!!!!!!]\"
End if
If strMose = \"ja\" Then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"databaser/andet.mdb\")
Conn.Open DSN
strSQL = \"Select * From news where id = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)

response.Write \"<p>\"
response.Write rs(\"oprettet\")
response.write \"<br>\"
response.write rs(\"lang\")
response.write \"<br>\"
If Session(\"Admin\") = \"ja\" Then
With response
.Write \"<form action=\"\"rediger.asp\"\" method=\"\"post\"\">\"
.Write \"Rediger nyhed!\"
.Write \"<br><h1>kort</h1><br>\"
.Write \"<input type=\"\"text\"\" name=\"\"kort\"\" value=\"\"\"
.Write rs(\"tekst\")
.Write \"\"\">\"
.Write \"<br><h1>mere</h1><br>\"
.Write \"<input type=\"\"text\"\" name=\"\"langt\"\" value=\"\"\"
.Write rs(\"lang\")
.Write \"\"\">\"
.Write \"<input type=\"\"submit\"\" name=\"\"rediger\"\" value=\"\"Submit\"\">\"
.Write \"</form>\"
end with
Conn.Close
Set Conn = Nothing
Else



End if
End If%>

</BODY>
   
</HTML>

Den er nok lidt rodet men pyt.
Den vil godt skrive vaule i et tekstfelt med rs(\"tekst\"), men ikke i et andet rs(\"lang\")


Hjælp hurtigt!!!!!!