Radera inlägg? — webForum

suddenMedlem sedan okt. 2002341 inlägg
Frågan4 dec. 2002 10:50#1
Har en gästbok som ser ut så här:
<!-- #include file="adovbs.inc" -->

<%
IF Request.QueryString("DO") = "SKICKA" THEN

'###### LITE KONTROLLER ######

IF Trim(Request.Form("namn")) = "" THEN
	Session("fel")= "Du måste fylla i NAMN"
ElseIF Trim(Request.Form("kommentar")) = "" THEN
	Session("fel")= "Du måste fylla i en KOMMENTAR"
END IF

IF Session("fel") <> "" Then
	Response.Redirect "gb.asp?DO=SKRIV"
END IF

'##### SLUT KONTROLLERAT #####

'####### FIXAR SMILEYS OCH ANNAT ######

text = Request.Form("kommentar")
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""smily-smajl.gif"">")
text = Replace(text,":(","<img src=""smily-sur.gif"">")
text = Replace(text,":-(","<img src=""smily-sur.gif"">")
text = Replace(text,":-)","<img src=""smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""smily-blink.gif"">")
text = Replace(text,";)","<img src=""smily-blink.gif"">")

namn = server.HTMLEncode(Request.Form("namn"))   'Så slipper man jobbigt folk!
epost = server.HTMLEncode(Request.Form("epost"))     'Så slipper man jobbigt folk!
hemsida = server.HTMLEncode(Request.Form("hemsida"))       'Så slipper man jobbigt folk!

'################ SLUT ################

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.ADDNEW

	RecSet("NAMN") = namn
	RecSet("EPOST") = epost
	RecSet("HEMSIDA") = hemsida
	RecSet("KOMMENTAR") = text
	RecSet("DATUM") = NOW()
	
	RecSet.UPDATE
	
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "gb.asp"

END IF
%>

<html>
<head>
<title>G&auml;stboken &auml;r h&auml;mtad fr&aring;n [url]www.kross.nu/aspsidan/[/url]</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="6" color="#000000"><b> 
  <% IF Request.QueryString("DO") <> "READ" THEN %>
  </b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><br>
  <b>V&auml;lkommen till g&auml;stboken!</b><br>
  <br>
  <br>
  <a href="gb.asp?DO=READ">L&Auml;S VAD ANDRA HAR SKRIVIT</a><br>
  <br>
  <font color="#993300">*</font> = M&aring;ste fylla i!!</font></p>
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b> 
  <% 
			IF Session("fel") <> "" THEN
			Response.Write Session("fel")
			Session("fel") = ""
			End IF
			%>
  </b> </font> </div>
<form name="form1" method="post" action="gb.asp?DO=SKICKA">
  <div align="left">
    <table width="400" border="0" cellspacing="0" cellpadding="2">
      <tr> 
        <td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"> 
          <input type="text" name="namn" size="25" maxlength="25">
          </font></td>
        <td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">NAMN<font color="#993300">*</font></font></td>
      </tr>
      <tr> 
        <td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"> 
          <input type="text" name="epost" size="25" maxlength="50">
          </font></td>
        <td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">EPOST 
          </font></td>
      </tr>
      <tr> 
        <td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"> 
          <input type="text" name="hemsida" size="25" value="http://" maxlength="50">
          </font></td>
        <td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">HEMSIDA</font></td>
      </tr>
      <tr> 
        <td colspan="2"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"> 
          <textarea name="kommentar" rows="5" cols="40"></textarea>
          </font><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">KOMMENTAR<font color="#993300">*</font></font></td>
      </tr>
      <tr> 
        <td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"> 
          <input type="submit" name="Submit" value="Skriv" alt="Posta ditt inl&auml;gg" border = "0">
          </font></td>
        <td width="249">&nbsp;</td>
      </tr>
    </table>
  </div>
</form>
<p align="center"> 
  <% END IF %>
  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
  <% IF Request.QueryString("DO") = "READ" THEN 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gb.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'#### Räknar ut antal sidor ####

COUNT = 0
DO UNTIL RecSet.EOF
	COUNT = COUNT +1
	RecSet.MOVENEXT
LOOP

IF int(COUNT/5) = COUNT/5 THEN
antal_sidor = COUNT/5
ELSE
antal_sidor = int(COUNT/5)+1
END IF

RecSet.Close
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'##### SLUT PÅ RÄKNANDET #####
%>
  </font></p>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>
  Antal sidor: 
  <% FOR X=1 TO antal_sidor %>
  <a href="gb.asp?DO=READ&skipp=<%=(X-1)%>"><%=X%></a> 
  <% NEXT %>
  <%
IF Request.QueryString("skipp") = "" THEN
skipp = 0
ELSE
skipp = Request.QueryString("skipp")
END IF
'### Hoppar fram till rätt inlägg ###

	FOR X=1 TO skipp
		FOR Y=1 TO 5
			RecSet.MOVENEXT
		NEXT
	NEXT
	
'#### KLAR ####

Z=0
DO UNTIL RecSet.EOF OR Z=5
Z=Z+1
%>
  <br>
  <br>
  </font> 
  <table width="400" border="0" cellspacing="0" cellpadding="1">
    <tr> 
      <td bgcolor="#CCCCCC"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="2">
          <tr> 
            <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Skrivet 
              av:<font color="#993300"> <%=RecSet("NAMN")%> </font> den: <%=RecSet("DATUM")%> 
              </font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
              <%=RecSet("KOMMENTAR")%> <br>
              <br>
              </font> 
              <hr width="100%" size="1" align="center">
            </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
              <%
IF RecSet("HEMSIDA") = "" OR RecSet("HEMSIDA") = "http://" THEN
Response.Write "Ingen hemsida"
ELSE
%>
              <a href="<%=RecSet("HEMSIDA")%>" target="_blank"><%=RecSet("HEMSIDA")%></a> 
              <% END IF %>
              | 
              <%
IF RecSet("EPOST") = "" THEN
Response.Write "Ingen epost"
ELSE
%>
              <a href="mailto:<%=RecSet("EPOST")%>"><%=RecSet("EPOST")%></a> 
              <% END IF %>
              </font></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
  <%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.CLose
%>
  <br>
  <a href="gb.asp?DO=SKRIV">Skriv ett inl&auml;gg</a> 
  <%End If%>
  </font></div>
</body>
</html>
Nu skulle jag vilja radera ett inlägg.
Hur skulle koden se ut då??
Tacksam för svar :e