---
title: "response.redirect"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12710-response-redirect"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-17T18:05:00.000Z"
updated: "2001-11-18T21:35:00.000Z"
replies: 8
views: 228
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/12710-response-redirect"
---

# response.redirect

## #1 — jboy_87, 2001-11-17T18:05Z

hjälp nån funkar inte??

```
Response.Redirect "read_gb.asp?tillid=" & Session("id")""
```

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

## #2 — LarsG, 2001-11-17T18:16Z

Response.Redirect "read_gb.asp?tillid=" & Session("id")

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

## #3 — MoonCow, 2001-11-17T19:17Z

attans... EN fråga som jag hade kunna svara på å så kom du först ;)

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

## #4 — jboy_87, 2001-11-17T21:56Z

tackar!!

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

## #5 — jboy_87, 2001-11-17T21:57Z

två onödiga fnuttar vad dum jag e

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

## #6 — sgtpepper, 2001-11-18T00:39Z

> ASP är bäst fuck the rest!!!

Mmmm, visst. Tillåt mig att asflabba väldigt länge.. HAHAHAHAHA.

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

## #7 — spango, 2001-11-18T00:58Z

sgtpepper - the man, the myth, the otroliga taktkänsla! :e Härmed nomineras schassen till månadens medlem.

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

## #8 — jboy_87, 2001-11-18T19:06Z

:-)

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

## #9 — jboy_87, 2001-11-18T21:35Z

jag har gjort så att alla medlemmar får en egen gästbok och lagt in så att användaren kan ta bort inläggen fast andra användare kan också ta bort inlägg. Hur gör jag så bara den som e inloggad kan ta bort inläggen??

**do_delete2.asp**

```

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

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

Addera = "Select * From gb Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "read_gb.asp?tillid=" & session("id")

Connect.close
%>
```

read_gb.asp

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

<%

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

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

Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<LINK REL=stylesheet HREF="style.css" TYPE="text/css">

</head>

<body bgcolor="#FFFFFF" text="#000000" background="start(1)-filer/contentbck.gif" link="#000000" vlink="#000000" alink="#000000">
<table width="466" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
  <tr>
    <td valign="top" bgcolor="#999999" width="702">
      <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>&nbsp;</b></font><b><font face="Verdana, Arial, Helvetica, sans-serif">L&auml;s 
      / Skriv i g&auml;stboken</font></b></p>
    </td>
  </tr>
  <tr>
          <td width="702" bgcolor="#CCCCCC">
            <p align="center"><font face="Verdana" size="2">Visa kompisar
            - Dagbok
            - <a href="read_gb.asp?tillid=<%=Request.QueryString("checkid")%>">Gästbok</a>
            - <a href="add_friend.asp?id2=<%=Request.QueryString("checkid")%>" target="rightFrame">Lägg
            till som kompis</a></font></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" width="702"> 
      <table width="456" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
        <% Do Until RecSet.EOF %>
        <tr>
    <td valign="top" bgcolor="#FFFFFF" width="919"> 
      <table width="392" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="10">
        <tr> 
          <td height="1" width="681">
            <table border="0" width="449" cellspacing="0" cellpadding="0" height="36">
              <tr>
                <td height="5" width="821"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#000000"><a href="read_gb.asp?tillid=<%=Request.QueryString("tillid")%>"><%=RecSet("namn")%> 
                  </a> 
            - <font color="#FF0000"><%=RecSet("datum")%></font></font></b></font></td>
                <td width="63" rowspan="2" height="36">
                  <p align="center"><img border="0" width="61" height="71" src="Bilder/medlemmar/ingen.gif"></td>
              </tr>
              <tr>
                <td height="31" width="821"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"<br>")%></font></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="21" width="681"> 
            .................................................................................................................<br>
            <a href="do_delete2.asp?delID=<%=RecSet("id")%>">
            <font size="1" face="Verdana">Radera</font></a><br>
&nbsp;</td>
        </tr>
        <%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
      </table>
      <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>Skriv 
      i g&auml;stboken</b><br>
      </font> 
      <form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>">
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
        <textarea name="text" cols="45" rows="4" class ="table" style="background-image: url('Bilder/Bakgrund_rutig.gif'); font-family: Verdana; font-size: 10px; border: 1px solid #000000; "></textarea>
        <br>
        <br>
        <input type="submit" name="Submit" value="Skicka" class="knapp">
        ( Ditt namn registreras automatiskt ) </font> 
      </form>
    </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);">Tillbaka</a> 
  </font> </p>
</body>
</html>
```

**write_gb.asp**

```
<%
If Request.Form("text") = "" Then

Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid")
end if
%>

<%

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

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

Addera = "Select * From gb where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew

	RecSet("namn") = Session("namn")
	RecSet("datum") = Date
	RecSet("text") = Request.Form("text")
	RecSet("tillID") = Request.QueryString("tillid")

	RecSet.Update
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

Response.Redirect "read_gb.asp?tillid=" &Request.QueryString("tillid")

%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12710-response-redirect
