---
title: "Ta bort inlägg!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13095-ta-bort-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-12-08T20:13:00.000Z"
updated: "2001-12-09T13:54:00.000Z"
replies: 8
views: 174
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13095-ta-bort-inlägg"
---

# Ta bort inlägg!

## #1 — graf, 2001-12-08T20:13Z

Har laddat ner en gästbok från hemsidan och vill ta bort inlägg i gästboken.
Tänkte använda mig av denna kod: \<A HREF="delete.asp?id=\<%= recset("id") %\>" onClick="return confirm('Vill du verkligen radera inlägget?');"\>Ta bort\</A\>

Men vart ska jag sätta in koden för att det ska fungera?
Såhär ser scriptet ut för gästboken:

\<!-- #include file="adovbs.inc" --\>

\<HEAD\>
\<SCRIPT LANGUAGE="JavaScript"\>

\<!-- DRT
function doscriptwin(path) {
window.open(path, "\_blank", "scrollbars,width=820,height=550,resizable=yes,left=150,top=80");
}
// DRT--\>

\</SCRIPT\>

\</HEAD\>
  \<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<style type="text/css"\>
\<!--
a:link { text-decoration: none; color: #000000}
a:visited { text-decoration: none; color: #000000}
a:active { text-decoration: none; color: #330000}

BODY { 
scrollbar-face-color: #FFFFFF; 
scrollbar-shadow-color: #CCCCCC; 
scrollbar-highlight-color: #CCCCCC; 
scrollbar-3dlight-color: #CCCCCC; 
scrollbar-darkshadow-color: #CCCCCC; 
scrollbar-track-color: #FFFFFF; 
scrollbar-arrow-color: #CCCCCC;
}
\--\>
\</style\>

\<%
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\>")

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("db/gb97.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("IP") = Request.ServerVariables("REMOTE_ADDR")
	RecSet("DATUM") = NOW()
	
	RecSet.UPDATE
	
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "gb.asp"

END IF
%\>

\<html\>
\<head\>
\<title\>Graf\</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\>\</b\>\<br\>
  \<br\>
  \<br\>
  \<a href=javaScript:window.self.close()\>\<IMG SRC="stang_fonster.gif" border="0"\>\</a\>\<br\>
  \<br\>
  \</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="50"\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>Användarnamn\<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"\>E-mail 
          \</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="" 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"\>text\<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="Spara" 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("db/gb97.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 9
			RecSet.MOVENEXT
		NEXT
	NEXT
	
'#### KLAR ####

Z=0
DO UNTIL RecSet.EOF OR Z=10
Z=Z+1
%\>
  \<br\>
  \<br\>
  \</font\> 
  \<table width="400" border="0" cellspacing="0" cellpadding="1"\>
    \<tr\> 
      \<td bgcolor="#F5F5F5"\> 
        \<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: \<%session.lcid=1053%\>
\<%=dateadd("h",6,cdate(RecSet("DATUM")))%\>
              \</font\>\</td\>
          \</tr\>
          \<tr\> 
            \<td bgcolor="#FFFFFF"\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
              \<b\>\<%=RecSet("HEMSIDA")%\>\</B\>\<p\>\<%=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
%\>

              \<% END IF %\>
              &#0124; 
              \<%
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\>\<%End If%\>
  \</font\>\</div\>
\</body\>
\</html\>

Tack på förhand!

Permalänk: https://www.webforum.nu/p/13095

## #2 — dahlgren, 2001-12-08T22:34Z

Länkan kan du lägga var som helst men det är nog kganka klokt att skydda den med lösenord på nått sätt. Har du gjort delete.asp eller behöver du hjälp med den?

Permalänk: https://www.webforum.nu/p/300241

## #3 — graf, 2001-12-08T22:37Z

delete.asp filen har jag gjort, ska prova med att lägga in det...
Tack!

Permalänk: https://www.webforum.nu/p/300242

## #4 — graf, 2001-12-08T22:53Z

hmm var visst nåt fel i delete.asp filen.

Såhär ser den ut:
\<%
\<!-- #include file="adovbs.inc" --\> 
 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"
 
SQL = "DELETE FROM asp WHERE ID = " & Request.Querystring("id")
Connect.Execute(SQL),,128
Connect.Close
Response.Write "\<HTML\>\<BODY\>Inlägget raderat!\</BODY\>\</HTML\>"
%\>

Och jag får det här felmeddelandet när jag ska ta bort ett inlägg:

Microsoft OLE DB Provider for ODBC Drivers error '80040e37' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] The Microsoft Jet database engine cannot find the input table or query 'asp'. Make sure it exists and that its name is spelled correctly. 

/graf/delete.asp, line 8 

Vad ska jag göra?

Permalänk: https://www.webforum.nu/p/300243

## #5 — LarsG, 2001-12-08T23:01Z

På andra ställen i koden så används tabellnamnet gb.

```
SQL = "DELETE FROM gb WHERE ID = " & Request.Querystring("id")
```

Permalänk: https://www.webforum.nu/p/300244

## #6 — graf, 2001-12-08T23:14Z

Fan vad schysta ni är!!!
Det fungera som ni kanske förstod, nu är jag glad :D
Tack tack tack!

Permalänk: https://www.webforum.nu/p/300245

## #7 — graf, 2001-12-09T13:32Z

En till fråga bara:
Jag skulle vilja att man skulle behöva skriva in ett lösenord för att kunna radera ett inlägg, hur gör jag då?
Såhär ser själva texten ut då man klickar "Ta bort":
\<A HREF="delete.asp?id=\<%= recset("id") %\>" onClick="return confirm('Vill du verkligen radera inlägget?');"\>Ta bort\</A\>

Tack!

Permalänk: https://www.webforum.nu/p/300246

## #8 — dahlgren, 2001-12-09T13:42Z

Mitt förslag är att du gör en helt ny sida som du länkar till på ändast ett ställe i gästboken på den sidan listar du alla inlägg och tar med din tabort länk. Fördelen är att folk blir mnindre frästade att knäcka ditt lösen om deet bara finns på ett ställe. Om du har en länk som heter tabort brevid varje inlägg så komnmer alla att pröva på om deet funkar. Sök här på wf om du behöver hjälp med lösen.

Permalänk: https://www.webforum.nu/p/300247

## #9 — graf, 2001-12-09T13:54Z

Jo det är väl bäst så...
Provade det och insåg att det är bästa sättet att göra på.

Tack!

Permalänk: https://www.webforum.nu/p/300248

---

Tråden på webben: https://www.webforum.nu/amne/asp/13095-ta-bort-inlägg
