|
|
|
»
Gästboken
Välkommen till min gästbok! Typ de e lixom tvång att
skirva så GÖR DET. Positivt
som negativt vill jag höra. Men du, konstruktiv
kritik isf...
<% Do Until RecSet.EOF %>
 " height="15" width="15"> |
»
<%=Server.HTMLEncode(RecSet("rubrik"))%>
<%=Server.HTMLEncode(RecSet("medelande"))%> |
|
skrev: <%=Server.HTMLEncode(RecSet("namn"))%> - <%=RecSet("datum")%>
Ta
bort |
|
<%
RecSet.MoveNext
Loop
RecSet.Close %>
Tar bara med så långt det är nån asp...
```
Permalänk: https://www.webforum.nu/p/275923
## #13 — @nders, 2001-06-26T11:01Z
byt ut detta avsnitt:
```
<%IF (Request.Querystring("delete")="true") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
ID = request.querystring("ID")
strSQL = "DELETE FROM gastboken WHERE id = " & ID
Conn.Execute(strSQL)
Response.Redirect "gbokradera666.asp"
RecSet.Close
Conn.Close
END IF%>
```
till
```
<%
IF (Request.Querystring("delete")="true") THEN
ID = request.querystring("ID")
strSQL = "DELETE FROM gastboken WHERE id = " & ID
Connect.Execute(strSQL)
RecSet.Close
Connect.Close
Response.Redirect "gbokradera666.asp"
END IF
%>
```
du måste stänga objekten innan redirect, annars stängs de aldrig.
testa detta. får du fortfarande fel?
Permalänk: https://www.webforum.nu/p/275924
## #14 — MoonCow, 2001-06-26T11:01Z
oj kanske för svårt att läsa...
```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gastboken ORDER BY datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%IF (Request.Querystring("delete")="true") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastboken.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
ID = request.querystring("ID")
strSQL = "DELETE FROM gastboken WHERE id = " & ID
Conn.Execute(strSQL)
Response.Redirect "gbokradera666.asp"
RecSet.Close
Conn.Close
END IF%>
Untitled Document
 |
|
|
|
|
|
|
| | |
