Slette beskeder i gæstebøger
Hej eksperter!Jeg har denne her kode..
<!-- #include file = "andratext.asp" -->
<LINK REL=stylesheet HREF="forumdigital_mall.css" TYPE="text/css">
<LINK REL=stylesheet HREF="forumstyle.css" TYPE="text/css">
<LINK REL=stylesheet HREF="..\css\tema1.css" TYPE="text/css">
<script>
function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}
}
}
</script>
<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("xxxxxxxxxxxxxxxx")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' order by id desc"
rs.Open Addera, Connect, 3, 3
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&request.querystring("id")&"'"
rs1.Open Addera, Connect, 3, 3
if request.querystring("id") = session("id") then
Set rs5 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gb where gbid='"&request.querystring("id")&"' and last=0"
rs5.Open Addera, Connect, 3, 3
if not rs5.eof then
do until rs5.eof
rs5("last")=1
rs5.update
rs5.movenext
loop
response.redirect "visgb.asp?id="&session("id")
end if
end if
if request.querystring("action")="spara" then
if session("id") <> request.querystring("id") then
rs.addnew
rs("namn")=session("user")
rs("inlagg")=request.form("requiredinlagg")
rs("gbid")= request.querystring("id")
rs("namnid")=session("id")
rs("datum") = now
rs.update
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3
if rs("gast")&"" = "" then
gast = 0
else
gast = rs("gast")
end if
rs("gast") = gast + 1
rs("status") = rs("status") + poanggastbok
rs.update
response.redirect "visgb.asp?id="&request.querystring("id")
end if
end if
rs.PageSize = 5
if not rs.EOF then
rs.AbsolutePage = nextPage
%>
<% END IF %>
<center>
<table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="20" id="table34">
<tr>
<td height="19" bgcolor="#707E97" align="center" width="67">
<font color="#E9E9E9"><a href="visprofil.asp?id=<%=request.querystring("id")%>">
<font color="#E9E9E9"><span style="text-decoration: none">Profil</span></font></a></font></td>
<td height="19" bgcolor="#707E97" align="center" width="110">
<font color="#E9E9E9"><span style="font-weight:700">Gæstebog</span></font></td>
<td height="19" bgcolor="#707E97" align="center" width="98">
<font color="#E9E9E9"><a href="dagbog.asp?id=<%=request.querystring("id")%>">
<font color="#E9E9E9"><span style="text-decoration: none">Dagbog</span></font></a></font></td>
<td height="19" bgcolor="#707E97" align="center" width="123">
<font color="#FFFFFF"><a href="vis15spg.asp?id=<%=request.querystring("id")%>"><font color="#E9E9E9">
<span style="text-decoration: none">15 Spørgsmål</span></font></a></font></td>
<td height="19" bgcolor="#707E97" align="center" width="114">
<font color="#E9E9E9">Billedgalleri</font></td>
<td height="19" bgcolor="#707E97" align="center" width="154">
<font color="#E9E9E9"><a href="visstatistik.asp?id=<%=request.querystring("id")%>">
<font color="#E9E9E9"><span style="text-decoration: none">Statistik</span></font></a></font></td>
</tr>
</table>
<br>
<br>
<table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#000000">
<table width="671" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="667" bgcolor="#E9E9E9"> <br>
<br>
<%
Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
Set rs3= Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&rs("namnid")&"'order by id "
rs3.Open Addera, Connect, 3, 3
%>
<table width="152%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="25">
<% if rs("namnid")&""<> "" then%>
<% if rs3("bild")&""<>"" then%>
<% end if
end if %>
</td>
<td width="51">
<p align="center">
<img src="<%=rs3("bild")%>" width="33" height="50" border="1" alt="<%=rs("namn")%>"></td>
<td bgcolor="#E9E9E9"><B>
<% if rs("namnid")&""="" then%>
<%=rs("namn")%> </b> // <%=rs("datum")%>
<% else %>
<a href="visprofil.asp?id=<%=rs("namnid")%>"><%=rs("namn")%></a>
- <%=rs("datum")%>
<%end if%>
<% if request.querystring("id")= session("id") then %>
- <a href="visgb.asp?id=<%=rs("namnid")%>"><strong>Svar</strong>
</a>
<% end if %>
<a href="gbslet.asp?id=<%=rs("id")%>">slet</a><br>
</b> <%=byt(rs("inlagg"))%><br>
</td><br>
</tr>
</table>
<p align="center">
<%
rs.movenext
loop
%><br>
<%
IF rs.PageCount > 1 THEN
%>
Side:
<%
FOR a = 1 to rs.PageCount
IF a <> cINT( nextPage ) THEN %>
<a href="visgb.asp?nextPage=<%=a%>&id=<%=request.querystring("id")%>">
<font color="#000000"><%=a%></font></a>
<%
ELSE %>
(<%=a%>)
<%
END IF
NEXT
end if
%>
<br><br>
</td>
<td width="4" bgcolor="#E9E9E9">
<form name="form" method="post" action="visgb.asp?action=spara&id=<%=request.querystring("id")%>" onSubmit="submitonce(this)">
<div align="center"> </div>
</form></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="673" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="20" id="table33">
<tr>
<td width="673" bgcolor="#E9E9E9">
<div align="right"></div>
<form name="form" method="post" action="visgb.asp?action=spara&id=<%=request.querystring("id")%>" onSubmit="submitonce(this)">
<p align="center"><br><b>Ny besked i gæstebogen</b><br><br>
<textarea name="requiredinlagg" rows="6" cols="61"></textarea> </p>
<div align="center">
<input type="submit" name="Submit" value="Tilføj besked i <%=rs1("anv")%>'s gæstebog!">
</div>
</form></td>
</p>
<p> </p>
<p> </td>
</tr>
</table>
<p>
<br></p>
Nu vil jeg gerne ha så hver enkel bruger kan slette en besked i deres gæstebog via javascript måske?
Nogen der kan hjælpe?
