---
title: "Länk tillbaka till startsida??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118330-länk-tillbaka-till-startsida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "daniel234"
published: "2004-12-19T14:45:28.000Z"
updated: "2004-12-19T16:04:48.000Z"
replies: 3
views: 245
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/118330-länk-tillbaka-till-startsida"
---
# Länk tillbaka till startsida??
## #1 — daniel234, 2004-12-19T14:45Z
Håller på med ett nyhetsbrev. Man fyller i sin mailadress och trycker på submit, då visas texten "du är registrerad" i samma fönster. Går det att göra så att man efter exempelvis 3 sekunder automatiskt kommer tillbaka till startsida?
Tacksam för hjälp!
/Daniel
Permalänk: https://www.webforum.nu/p/118330
## #2 — Impact, 2004-12-19T15:12Z
Lägg det här bland metataggarna så blir det nog bra.
\
Permalänk: https://www.webforum.nu/p/1509097
## #3 — daniel234, 2004-12-19T15:24Z
Nej det fungerar inte om vi lägger in den metataggen i subscribe.asp......
här är kod:
\
```
<%
Dim con, rs, strSql
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request
'Connect to the database
Set con = GetDBConnection()
'Verify that the email address does not already exist in the database
strSql = "SELECT Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If rs.EOF Then
'The email address does not already exist, so add it
rs.AddNew()
rs("Email") = Request.Form("txtEmail")
rs.Update()
'The email address has been added, show confirmation.
'MODIFY the text below is displayed when an email is added to the newsletter
%>
Du är nu registrerad.
<%
Else
'Din mailadress finns redan.
'MODIFY the text below is displayed when a person tries to enter the same email address
' a second time.
%>
Du är redan registrerad.
<%
End If
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
<%
End If
%>
```
Permalänk: https://www.webforum.nu/p/1509100
## #4 — G8, 2004-12-19T16:04Z
```
MYMESSAGE = Server.URLEncode("Du är nu registrerad...
Vänligen vänta...")
Response.Redirect ("delay.asp?DELAY_TIME=3&DELAY_MESSAGE=" & MYMESSAGE & "&REDIRECT_URL=startsidan.asp")
```
skapa sedan en sida som heter delay.asp där du lägger in...
```
<%
DELAY_TIME = Request("DELAY_TIME")
REDIRECT_URL = Request("REDIRECT_URL")
DELAY_MESSAGE = Request("DELAY_MESSAGE")
%>
<% =DELAY_MESSAGE %>
```
...på önskat ställe
Permalänk: https://www.webforum.nu/p/1509112
---
Tråden på webben: https://www.webforum.nu/amne/asp/118330-länk-tillbaka-till-startsida