rstemp fejl ?
<%'Åbn databasen
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/data/data.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
response.write "<HTML><HEAD><TITLE>Nyhedsoversigt</TITLE><LINK rel=""stylesheet"" type=""text/css"" href=""style.css""></HEAD><BODY bgcolor=""#FFFFFF"">"
response.write "<DIV align=""center""><TABLE width=""70%"" cellspacing=""0"" cellpadding=""5"" BORDER=""0"" height=""80%""><TR><TD style=""BORDER: #FFFFFF 1px solid"" bgcolor=""#FFFFFF"" valign=""top"">"
mode=request("mode")
' ********************************* Tilføj nyhed
if mode="news" and request("functions") = "add" then
If Request.Form("Add") <> "" Then
'Indsæt i databasen
SQL = "INSERT INTO [Nyheder] (Dato,Overskrift,kommentar,Navn,link,vis) VALUES ('" & request("Dato") & "', '" & request("Overskrift") & "', '" & request("kommentar") & "', '" & request("Navn") & "', '" & request("link") & "', true)"
conntemp.execute(sql)
response.write "<FONT face=""Verdana"" size=""2""><B>Nyheden er nu oprettet!, klik <a href=""admin.asp""><B>her</B></a> for at gå tilbage til nyhedsoversigten</FONT>"
Else
response.write "<FORM action=""admin.asp?mode=news&functions=add"" method=""post""><FONT face=""Verdana"" size=""2"">"
response.write "<B>Dato:<br></B><input name=""dato"" size=""35"" class=""oneline""><br><br>"
response.write "<B>Overskrift:<br></B><input name=""overskrift"" size=""35"" class=""oneline""><br><br>"
response.write "<B>Kommentar:<br></B><input name=""kommentar"" size=""35"" class=""oneline""><br><br>"
response.write "<B>Navn:<br></B><input name=""navn"" size=""35"" class=""oneline""><br><br>"
response.write "<B>Link:<br></B><TEXTAREA name=""link"" cols=""35"" rows=""8"" class=""box""></TEXTAREA><br><br>"
response.write "<input type=""submit"" name=""add"" class=""box"" value=""OPRET NYHED""></FORM>"
End if
' ********************************* Slet nyhed
Elseif mode="news" and request("nr") <> "" then
SQL = "DELETE FROM nyheder WHERE ID=" & request("nr")
conntemp.execute(sql)
response.write "<FONT face=""Verdana"" size=""2""><B>Nyheden er nu slettet!, klik <a href=""admin.asp""><B>her</B></a> for at gå tilbage til nyhedsoversigten</FONT>"
' ********************************* Vis nyhed
Elseif mode="news" and request("id") <> "" then
If Request.Form("update") <> "" Then
'Opdater nyheden
SQL = "UPDATE Nyheder SET dato ='" & request("Dato") & "', overskrift ='" & request("overskrift") & "', kommentar ='" & request("kommentar") & "', navn ='" & request("navn") & "', link ='" & request("link") & "', vis ='" & request("vis") & "' WHERE id="& request("id")&" "
conntemp.execute(sql)
response.write "<FONT face=""Verdana"" size=""2""><B>Nyheden er nu opdateret!, klik <a href=""admin.asp""><B>her</B></a> for at gå tilbage til nyhedsoversigten</FONT>"
Else
sql = "SELECT * from Nyheder WHERE id="& request("id") &" "
set rstemp = conntemp.execute(sql)
response.write "<FORM action=""admin.asp?mode=news&id="&request("id")&""" method=""post""><FONT face=""Verdana"" size=""2"">"
response.write "<B>Dato:<br></B><input name=""navn"" size=""35"" class=""oneline"" value="""& rstemp("dato") &"""><br><br>"
response.write "<B>Overskrift:<br></B><input name=""mail"" size=""35"" class=""oneline"" value="""& rstemp("overskrift") &"""><br><br>"
response.write "<B>kommentar:<br></B><input name=""emne"" size=""35"" class=""oneline"" value="""& rstemp("kommentar") &"""><br><br>"
response.write "<B>Navn:<br></B><input name=""emne"" size=""35"" class=""oneline"" value="""& rstemp("navn") &"""><br><br>"
response.write "<B>Link:<br></B><TEXTAREA name=""kommentar"" cols=""35"" rows=""8"" class=""box"">"& rstemp("link") &"</TEXTAREA><br><br>"
response.write "<B>Vis</B><br>"
if rstemp("vis") = true then
response.write "<select size=""1"" class=""box"" name=""vis""><option selected value=""-1"">Ja</option><option value=""0"">Nej</option></select><br><br>"
else
response.write "<select size=""1"" class=""box"" name=""vis""><option selected value=""0"">Nej</option><option value=""-1"">Ja</option></select><br><br>"
end if
response.write "<input type=""submit"" name=""update"" class=""box"" value=""OPDATER NYHEDEN""></FORM>"
rstemp.close
End if
' ********************************* Vis alle nyheder
else
sql = "SELECT * from [Nyheder] where vis=0 ORDER BY overskrift"
set rstemp=conntemp.execute(sql)
response.write "<FONT face=""Verdana"" size=""2""><B>Ikke godkendte nyheder:</B><BR>"
do while not (rstemp.eof or rstemp.bof)
response.write "<a href=""admin.asp?mode=news&id=" & rstemp("id") & """>" & rstemp("overskrift") & " (" & rstemp("dato") & " " & rstemp("tid") & ") <a href=""admin.asp?mode=news&nr=" & rstemp("id") & "&functions=delete""><B>(slet)</B></a></a><br>"
rstemp.movenext
loop
rstemp.close
response.write "<br><br>"
sql = "SELECT * from Nyheder where vis=-1 ORDER BY overskrift"
set rstemp = conntemp.execute(sql)
response.write "<FONT face=""Verdana"" size=""2""><B>Godkendte nyheder:</B><BR>"
do while not (rstemp.eof or rstemp.bof)
response.write "<a href=""admin.asp?mode=news&id=" & rstemp("id") & """>" & rstemp("overskrift") & " (" & rstemp("dato") & " " & rstemp("tid") & ") <a href=""admin.asp?mode=news&nr=" & rstemp("id") & "&functions=delete""><B>(slet)</B></a></a><br>"
rstemp.movenext
loop
rstemp.close
response.write "<br><br>Klik <a href=""admin.asp?mode=news&functions=add""><B>her</B></a> for at tilføje en nyhed..</FONT>"
end if
response.write "</TD></TR></TABLE></DIV>"
response.write "</BODY></HTML>"
'Luk databasen
conntemp.close
set conntemp=nothing
%>
For denne fejl http://www.aqua-world.dk/admin.asp
