Jeg tror ikke på at det er noget med sql-sætningen, så nu prøver jeg at smide hele koden ud:
rediger.asp:
<!-- Minus AutoDato -->
<%
If Request.ServerVariables(\"CONTENT_LENGTH\") = 0 Then
Response.Write \"<html>\"
Response.Write \"<TITLE>Redigeringsoversigt</TITLE>\"
Response.Write \"<head>\"
%>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\"><LINK HREF=\"titan.css\" REL=\"stylesheet\" TYPE=\"\'text/css\"></head><BODY>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"titan.mdb\")
Conn.Open DSN
strSQL = \"Select * from Spil Order by Titel\"
Set rs = Conn.Execute(strSQL)
Response.Write \"<CENTER><H1>Alle Spil</H1></Center>\"
%>
<FORM ACTION=\"rediger.asp\" METHOD=\"POST\" NAME=\"en\">
<%
Response.Write \"<TABLE BORDER=0 cellspacing=0 cellpadding=3 width=*>\"
Response.Write \"<TR bgcolor=black style=\'color:white\'><TD WIDTH=30>Type</TD><TD WIDTH=50>Genre</TD><TD WIDTH=65>Titel</TD><TD WIDTH=120>Pris</TD><TD WIDTH=70>Producent</TD><TD>Link</TD><TD>Rediger</TD></TR>\"
row_color = \"#DDDDDD\"
Do
IF row_color = \"#DDDDDD\" then
row_color = \"#FFFFFF\"
Else
row_color = \"#DDDDDD\"
End If
Response.Write \"<TR bgcolor=\" & row_color & \" style=\'color:black\'>\"
Response.Write \"<TD>\" & rs(\"Type\") & \"</TD>\"
Response.Write \"<TD>\" & rs(\"Genre\") & \"</TD>\"
Response.Write \"<TD>\" & rs(\"Titel\") & \"</TD>\"
Response.Write \"<TD>\" & rs(\"Pris\") & \"</TD>\"
Response.Write \"<TD>\" & rs(\"Producent\") & \"</TD>\"
Response.Write \"<TD>\" & rs(\"Link\") & \"</TD>\"
Response.Write \"<TD>\" & \"<INPUT TYPE=submit STYLE=font-size:9; VALUE=\" & rs(\"SpilID\") & \" NAME=\'Edit\'>\" & \"</TD></TR>\"
rs.MoveNext
Loop While Not rs.EOF
Response.Write \"</TABLE>\"
Response.Write \"</FORM>\"
Conn.Close
Set Conn = Nothing
%>
</body></html>
<% Else %>
<head><TITLE>Rediger en post</TITLE></HEAD><HTML><BODY>
<% strAid = Trim(Request.Form(\"Edit\"))
Response.Expires = 0
Dim strType, strGenre, klaus
Response.Write \"<H2>Rediger et spil</H2><BR><BR>\"
klaus=\"WHERE SpilID Like \" & strAid & \"\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"titan.mdb\")
Conn.Open DSN
strSQL = \"Select * from Spil \" & klaus
Set rs = Conn.Execute(strSQL)
Response.Write \"<FORM ACTION=opdater.asp METHOD=POST NAME=Opdatering>\"
Response.Write \"<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2>\"
Response.Write \"<TR><TD>ID</TD><TD><INPUT TYPE=text NAME=SpilID Value=\" & rs(\"SpilID\") & \"></TD></TR>\"
Response.Write \"<TR><TD>Type</TD><TD>\" & rs(\"Type\") & \"</TD></TR>\"
Response.Write \"<TR><TD>Genre</TD><TD>\" & rs(\"Genre\") & \"</TD></TR>\"
Response.Write \"<TR><TD>Titel</TD><TD><INPUT TYPE=text NAME=Titel value=\'\" & rs(\"Titel\") & \"\'></TD></TR>\"
Response.Write \"<TR><TD>Pris</TD><TD><INPUT TYPE=text NAME=Pris value=\'\" & rs(\"Pris\") & \"\'></TD></TR>\"
Response.Write \"<TR><TD>Producent</TD><TD><INPUT TYPE=text NAME=Producent value=\'\" & rs(\"Producent\") & \"\'></TD></TR>\"
Response.Write \"<TR><TD>Link</TD><TD><INPUT TYPE=text NAME=Link value=\'\" & rs(\"Link\") & \"\'></TD></TR>\"
Response.Write \"</TABLE>\"
%>
<INPUT TYPE=\"submit\" VALUE=\"Send\" NAME=\"Send\"><INPUT TYPE=\"reset\" VALUE=\"Fortryd\" NAME=\"Fortryd\"></FORM></BODY></HTML>
<% End If %>
Og herefter opdater.asp:
<html><!-- Minus AutoDato --><title>Spilredigering</title><head>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
<META HTTP-EQUIV=\"Refresh\" CONTENT=\"6;URL=http://195.231.192.125/sa/rediger.asp\">
<LINK REL=\"stylesheet\" HREF=\"titan.css\" TYPE=\"text/css\">
</head><body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"titan.mdb\")
Conn.Open DSN
strSQL = \"Update Spil set [Titel]=\'\" & Request.Form(\"Titel\") & \"\', [Pris]=\" & Request.Form(\"Pris\") & \", [Producent]=\'\" & Request.Form(\"Producent\") & \"\', [Link]=\'\" & Request.Form(\"Link\") & \"\' WHERE ID = \" & Request.Form(\"SpilID\") & \"\"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%><BR><BR><BR><BR><h4><CENTER>Det var det</CENTER></h4></body></html>
