---
title: "Template med länk till olika sidor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/103920-template-med-länk-till-olika-sidor/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "joohn"
published: "2004-05-19T13:21:52.000Z"
updated: "2004-05-21T08:22:29.000Z"
replies: 36
views: 781
page: 2
pages: 2
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/103920-template-med-länk-till-olika-sidor"
---

# Template med länk till olika sidor

_Sida 2 av 2._

## #21 — @nders, 2004-05-20T12:57Z

I index.asp:

```
<div>
<%

If Request.Querystring("page") = "photo" Then
Server.Execute("photo.asp")
ElseIf Request.Querystring("page") = "aboutme" Then
Server.Execute("aboutme.asp")
ElseIf Request.Querystring("page") = "cv" Then
Server.Execute("cv.asp")
ElseIf Request.Querystring("page") = "photo" Then
Server.Execute("photo.asp")
ElseIf Request.Querystring("page") = "print" Then
Server.Execute("print.asp")
End If

%>
</div>
```

Mvh

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

## #22 — joohn, 2004-05-20T13:01Z

Nu vet jag vad och hur jag ska göra, ha index.asp och inkludera alla filer och sidan ska uppdateras varje gång man klickar på någon länk hur kan man göra det då?

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

## #23 — joohn, 2004-05-20T13:05Z

Så det är bara att ha den här koden i just den diven jag vill att alla sidor ska komma fram eller?
Eller måste man köra någon includekod? Hur gör man så att sidan uppdateras så fort man klickat på någon länk?

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

## #24 — @nders, 2004-05-20T13:05Z

Om du länkar allt till *index.asp?page=nånting*, och ser till att target på länkarna alltid är \_top, så borde sidan uppdateras? Jag är rädd att jag inte förstår din fråga dock.

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

## #25 — joohn, 2004-05-20T13:08Z

Nu ser det ut såhär -

top (menyn ska finnas här)

page - emailbox
	linkadder
footer

page (menu har döpt den diven fel)

i page ska alla sidor komma upp och allting runt ska finnas kvar.
det jag undrar är hur jag får alla sidor att komma upp i page-diven?

med att ha den där koden där räcker det så eller?

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

## #26 — @nders, 2004-05-20T13:13Z

Ok, vad är din fråga då?

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

## #27 — joohn, 2004-05-20T13:18Z

det jag undrar är hur jag får alla sidor att komma upp i page-diven?

med att ha den här koden

\<%

If Request.Querystring("page") = "photo" Then
Server.Execute("photo.asp")
ElseIf Request.Querystring("page") = "aboutme" Then
Server.Execute("aboutme.asp")
ElseIf Request.Querystring("page") = "cv" Then
Server.Execute("cv.asp")
ElseIf Request.Querystring("page") = "photo" Then
Server.Execute("photo.asp")
ElseIf Request.Querystring("page") = "print" Then
Server.Execute("print.asp")
End If

%\>

i pagediven räcker det så eller? för att få sidorna komma fram där? behövs det inte någon includekod?

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

## #28 — @nders, 2004-05-20T13:21Z

Lägg bara den koden i mellan \<div id="page"\> och \</div\>. Det är *Server.Execute* som är 'includekoden'.

Mvh

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

## #29 — joohn, 2004-05-20T13:52Z

nu verka det fungera :) tackar! 

fick ett errormeddelande :(
inte ändrat gästbokskoden något 

Provider error '80020005' 

Type mismatch. 

/portfolio/guestbook.asp, line 89 

indexkoden kommer här först

```

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

<%
Set com1 = Server.CreateObject("ADODB.Connection") 
com1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/lankar.mdb")&";"

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

If request.querystring("a")="alf" Then 
sql1 = "SELECT *, Format$([datum],'yymmdd') AS fDatum, Format$([datum],'hh:mm') AS fTid FROM lankar ORDER BY titel ASC" 
ElseIf request.querystring("a")="dat" Then 
sql1 = "SELECT *, Format$([datum],'yymmdd') AS fDatum, Format$([datum],'hh:mm') AS fTid FROM lankar ORDER BY datum DESC"
Else 
sql1 = "SELECT *, Format$([datum],'yymmdd') AS fDatum, Format$([datum],'hh:mm') AS fTid FROM lankar ORDER BY datum DESC"
End If

rs1.open sql1, com1, 3, 3

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html>
	<head>
		<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
		<title>mongo.nu </title>
		<link rel="stylesheet" href="css/mongo.css" type="text/css" />
	</head>
<body onload='showHot=true;self.focus();'>

	<div id="top"><br/>
	
	<ul style="list-style-type:none;">
		<li><a href="index.asp?page=index"><img src="menu.gif" /></a></li>
		<li><a href="index.asp?page=aboutme"><img src="aboutme.gif" /></a></li>
		<li><a href="index.asp?page=cv"><img src="cv.gif" /></a></li>
		<li><a href="index.asp?page=photo"><img src="photo.gif" /></a></li>
		<li><a href="index.asp?page=print"><img src="print.gif" /></a></li>
		<li><a href="index.asp?page=guestbook"><img src="guestbook.gif" /></a></li>
  		</ul>
				
	<div id="top-time"><script language="JavaScript" src="js/datum.js" type="text/javascript"></script>
	</div>
	</div>

	<div id="container">
		<div id="menu">
			<div id="menu-in">
<%

If Request.Querystring("page") = "index" Then
Server.Execute("index.asp")
ElseIf Request.Querystring("page") = "aboutme" Then
Server.Execute("aboutme.asp")
ElseIf Request.Querystring("page") = "cv" Then
Server.Execute("cv.asp")
ElseIf Request.Querystring("page") = "photo" Then
Server.Execute("photo.asp")
ElseIf Request.Querystring("page") = "print" Then
Server.Execute("print.asp")
ElseIf Request.Querystring("page") = "guestbook" Then
Server.Execute("guestbook.asp")
End If

%>			

</div></div>
		<div id="mail">
				<div class="mail-in">
				<form action="http://mail.mongo.nu/src/redirect.php" method="post" target="new" onSubmit="this.login_username.value += '@mongo.nu'; document.location.reload();">
				<input type="text" name="login_username" value="Login" onFocus="this.value='';" class="mailform" /><br /><br />
				<input type="password" name="secretkey" value="password" onFocus="this.value='';" class="mailform" />
				<input type="hidden" name="js_autodetect_results" value="SMPREF_JS_OFF" />
				<input type="hidden" name="just_logged_in" value="1" /><br /><br />
				<input name="submit" type="image" src="login.gif" value="Logga in" />
				</form>
				</div>
			</div>

			<br />
			<br />
			<br />

	<div id="linkadder">
		sortera efter:<a href="guestbook.asp?a=alf"> bokstav</a> - <a href="guestbook.asp?a=dat">datum</a> <br /> <br />

		<%
		rs1.movefirst
		If rs1.eof Then
		response.write		"listan är tom"
		Else
		Do Until rs1.eof
		%>

	<div class="linkadder-datetime">
		<div class="linkadder-datetime-in">
			<img src="pics/newsicon.gif" /><%=rs1("fDatum") & " - " & rs1("fTid")%>
		</div>
	</div>

	<div class="linkadder-linkmessage">
		<div class="linkadder-linkmessage-in">
			<b><a href=" <%=rs1("http")%> "  target="_blank"> <%=rs1("titel")%></a></b>
			<%=rs1("beskr")%><br /><br /><br />
		</div>
	</div>

	<%
	rs1.movenext
	Loop
	End If
	rs1.close
	com1.close
	%>

		</div>
	</div>
					
	<div id="footer">
		[url]www.mongo.nu&nbsp;&nbsp;[/url]|&nbsp;&nbsp;<a href="mailto:john@mongo.nu">john@mongo.nu</a>&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;<a title="Validates as XHTML 1.0 Transitional at W3C" href="http://validator.w3.org/check/referer" target="new">XHTML 
  		1.0</a>&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;<a href="http://jigsaw.w3.org/css-validator/validator?uri=http://www.mongo.nu/portfolio/css/mongo.css" target="new">CSS 
 		 2.0</a> 
	</div>

	</body>
</html>
```

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

## #30 — joohn, 2004-05-20T13:53Z

och gästbokskoden här

```

<% Response.Buffer = True %>
<!-- #include file="fkow3d32q.asp" -->

				<script type="text/javascript">
					function hidestatus(){
					window.status=''
					return true
					}
					if (document.layers)
					document.captureEvents(Event.MOUSEOVER | Event.MOUSEOUT)
					document.onmouseover=hidestatus
					document.onmouseout=hidestatus
				</script>

                       		<%If Request.Querystring("do")= "" Then%>

				<a href="guestbook.asp?do=admin" onFocus="this.blur()">Admin</a>

				<hr>

                    
                  		<form method="post" action="guestbook.asp?do=jepp" name="gastbok"  onsubmit="return tecken()">
                            

				Ditt namn:<b><br />
				<input type="text" name="namn" size="25" /></b>

				<br />

Hemsida:<b><br />
<input type="text" name="hemsida" size="25" /></b>

<br /><br />

Meddelande:<br /> 
<textarea name="Meddelande" cols="55" rows="6"></textarea><br />
                            
<input type="submit" name="Submit2" value="Skicka" /> 
<input type="reset" name="Submit3" value="Rensa" /> 

</form>
                            
<%
Set Conn	= Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

' Sidscriptet är nerladdat från [url]http://www.fatmilk.nu/[/url] 
' Skrivet av Ludvig "geek" Lindblom 
' [email]geek@fatmilk.nu[/email] 

Const perSida = 10 
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

SQL = "SELECT * From inlagg Order By Datum DESC"
Recset.Open SQL, Conn, 1, 2

If RecSet.EOF Then%>

<hr><br /> 
                      

<i>Ingen har skrivit i g&auml;stboken.</i>

<%
Else

RecSet.MoveFirst 
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count < RecSet.PageSize 
%>

<hr /><br /> 
                          
                          <%If Recset("Email") <> "" Then%>
                        
<b>Namn: <a href="mailto:<%=Recset("Email")%>" onfocus=this.blur()><%=Recset("Namn")%></a></b> 
                          
                          <%Else%>
                         
<b><%=Recset("Namn")%> | <%=Recset("Hemsida")%> | <%=FormatDateTime(Recset("Datum"),2)%>
<b> - <%=FormatDateTime(RecSet("datum"),4)%> - </b><a href="http://www.leissner.se/cgi/whois?text=<%=Recset("ip")%>&c=eu" target="blank"><%=Recset("ip")%></a> 
                              <%End If%>
                              </b><br />
                            <%=Replace(Server.HTMLEncode(RecSet("Meddelande")), vbCrLf, "<br />" )%> 
                         
                          <%
Count = Count + 1 
Recset.MoveNext
Loop
Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing

End If
%>
                      <hr />
                        
                              <% 
          If TotalPages <> 1 Then
          If (Int(page)) <> 1 Then
          %>
                              <a href="guestbook.asp?page=<%=(Int(page)-1)%>" onFocus="this.blur()"><b>« 
                              Bakåt</b></a> 
                              <%Else%>
                              <%End If%>
                              <%
          For Pages = 1 To TotalPages 
          %>
                              <%If (Int(Pages)) = (Int(page)) Then%>
                              <b><%=Pages%></b> 
                              <%Else%>
                              <a href="guestbook.asp?page=<%=Pages%>" onFocus="this.blur()"><b><%=Pages%></b></a> 
                              <%End If%>
                              <%Next%>
                              <%End If%>
                              <%
          If (Int(page)) <> (Int(TotalPages)) AND Count > 0 Then
          %>
                              <a href="guestbook.asp?page=<%=(Int(page)+1)%>" onFocus="this.blur()"><b>Framåt 
                              »</b></a> 
                              <%Else%>
                              <%End If%>
                          
                           <hr />

                        <%End If%>
                        <%If Request.QueryString("do")= "jepp" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

Namn		= Replace(Request.Form("namn"),"'","''")
Email		= Replace(Request.Form("email"),"'","''")
Hemsida   	= Replace(Request.Form("hemsida"),"'","''")
Meddelande	= Replace(Request.Form("meddelande"),"'","''")
Datum		= Now

If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If

SQL="Insert Into inlagg"
SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum, IP)" 
SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#, '" & Request.ServerVariables("REMOTE_ADDR") & "')"
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

Response.Redirect "guestbook.asp"

End If%>
                        <%
If Request.Querystring("do") = "loggaut" Then
Session.Abandon
Response.Redirect "guestbook.asp"
End If
%>
                        <%
If Request.Querystring("do")= "nej" Then
Response.Write "<table align='center'><font color='#ffffff'><b>Fel lösenord!</b> &nbsp;&nbsp;<a href='guestbook.asp?do=admin' onfocus='this.blur()'><b>Tillbaka</b></a></table>"
End If
%>
                        
<%If Request.Querystring("do")= "admin" Then%>

	<br />
		<br />
			<br />
                       
                     <form name="loggain" method="post" action="guestbook.asp?do=kolla">
                                <b>Namn:</b> 
                                <input type="password" name="password" size="15" />
                                &nbsp; <b>L&ouml;senord:</b> 
                                <input type="password" name="password2" size="15" />
                                &nbsp; 
                                <input type="submit" name="Submit" value="Logga in" />
                              </form>
                        <%End If%>
                        <%
If Request.Querystring("do") = "kolla" Then
  Session("koll") = Request.Form("password")
  Session("koll2") = Request.Form("password2")
    If Session("koll") = Losen And Session("koll2") = Losen2 Then
      Response.Redirect "guestbook.asp?do=ja"
    Else
      Response.Redirect "guestbook.asp?do=nej"
    End If
End If
%>
                        <%If Request.Querystring("do")= "ja" AND Session("koll") = Losen AND Session("koll2") = Losen2 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

Const perSida1 = 10 
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida1

SQL = "SELECT * From inlagg Order By Datum DESC"
Recset.Open SQL, Conn, 1, 2

If RecSet.EOF Then%>
                    Ingen har skrivit i g&auml;stboken!

<hr>
<a href=guestbook.asp?do=loggaut><b>Logga ut</b></a>
                        <%Else

RecSet.MoveFirst 
RecSet.PageSize = perSida1 

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count < RecSet.PageSize %>
```

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

## #31 — joohn, 2004-05-20T13:53Z

```

Inlägg: <b><%=Server.HTMLEncode(Left(RecSet("Meddelande"),40))%></b>
                            <a href="guestbook.asp?do=tabort&id=<%=RecSet("id")%>" onfocus=this.blur()><b>Ta 
                              bort</b></a>
                        <%
Count = Count + 1	
Recset.MoveNext

Loop

Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing%>
                    <hr />
                        
                              <% 
          If TotalPages <> 1 Then
          If (Int(page)) <> 1 Then
          %>
                              <a href="guestbook.asp?do=ja&page=<%=(Int(page)-1)%>" onFocus="this.blur()"><b>« 
                              Bakåt</b></a> 
                              <%Else%>
                              <%End If%>
                              <%
          For Pages = 1 To TotalPages 
          %>
                              <%If (Int(Pages)) = (Int(page)) Then%>
                              <b><%=Pages%></b> 
                              <%Else%>
                              <a href="guestbook.asp?do=ja&page=<%=Pages%>" onFocus="this.blur()"><b><%=Pages%></b></a> 
                              <%End If%>
                              <%Next%>
                              <%End If%>
                              <%
          If (Int(page)) <> (Int(TotalPages)) Then
          %>
                              <a href="guestbook.asp?do=ja&page=<%=(Int(page)+1)%>" onFocus="this.blur()"><b>Framåt 
                              »</b></a> 
                              <%Else%>
                              <%End If%>
                     <hr />
                            <a href=guestbook.asp><b>Logga ut</b></a>

                        <%End If
End If%>
                        <%
If Request.Querystring("do")= "tabort" AND Session("koll") = Losen AND Session("koll2") = Losen2 And IsNumeric(Request.Querystring("id")) Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

SQL="Delete * From inlagg Where ID=" & Request.Querystring("id")
Response.Write SQL
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

Response.Redirect "guestbook.asp?do=ja"

End If
%>
```

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

## #32 — @nders, 2004-05-20T15:06Z

Och rad 89 är??
Fungerar gästbokssidan om du går direkt på den, men inte när du exekverar den via index.asp?

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

## #33 — joohn, 2004-05-20T15:10Z

Anders: Ja precis

<http://tsn.dk/p/?id=3497>

89 är tom?

du kan se här att gästboken fungerar bra

<http://www.mongo.nu/portfolio/guestbook.asp>

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

## #34 — joohn, 2004-05-20T21:50Z

Nu har man fixat så att gästboken fungerar bättre.
Men det är ett litet fel kvar och det är när man ska klicka på framåt för att kolla de gamla inläggen. Då händer det ingenting
Koden har ni här

```

<% Response.Buffer = True %>
<!-- #include file="fkow3d32q.asp" -->

				<script type="text/javascript">
					function hidestatus(){
					window.status=''
					return true
					}
					if (document.layers)
					document.captureEvents(Event.MOUSEOVER | Event.MOUSEOUT)
					document.onmouseover=hidestatus
					document.onmouseout=hidestatus
				</script>

                       		<%If Request.Querystring("do")= "" Then%>

				<a href="index.asp?p=guestbook&do=admin" onFocus="this.blur()">Admin</a>

				<hr>

                    
                  		<form method="post" action="index.asp?p=guestbook&do=jepp" name="gastbok"  onsubmit="return tecken()">
                            

				Ditt namn:<b><br />
				<input type="text" name="namn" size="25" /></b>

				<br />

Hemsida:<b><br />
<input type="text" name="hemsida" size="25" /></b>

<br /><br />

Meddelande:<br /> 
<textarea name="Meddelande" cols="55" rows="6"></textarea><br />
                            
<input type="submit" name="Submit2" value="Skicka" /> 
<input type="reset" name="Submit3" value="Rensa" /> 

</form>
                            
<%
Set Conn	= Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

' Sidscriptet är nerladdat från [url]http://www.fatmilk.nu/[/url] 
' Skrivet av Ludvig "geek" Lindblom 
' [email]geek@fatmilk.nu[/email] 

Const perSida = 10 
If Request.QueryString("guestbook") = "" then 
page = 1 
Else 
page = Request.QueryString("guestbook") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

SQL = "SELECT * From inlagg Order By Datum DESC"
Recset.Open SQL, Conn, 1, 2

If RecSet.EOF Then%>

<hr><br /> 
                      

<i>Ingen har skrivit i g&auml;stboken.</i>

<%
Else

RecSet.MoveFirst 
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count < RecSet.PageSize 
%>

<hr /><br /> 
                          
                          <%If Recset("Email") <> "" Then%>
                        
<b>Namn: <a href="mailto:<%=Recset("Email")%>" onfocus=this.blur()><%=Recset("Namn")%></a></b> 
                          
                          <%Else%>
                         
<b><%=Recset("Namn")%> | <%=Recset("Hemsida")%> | <%=FormatDateTime(Recset("Datum"),2)%>
<b> - <%=FormatDateTime(RecSet("datum"),4)%> - </b><a href="http://www.leissner.se/cgi/whois?text=<%=Recset("ip")%>&c=eu" target="blank"><%=Recset("ip")%></a> 
                              <%End If%>
                              </b><br />
                            <%=Replace(Server.HTMLEncode(RecSet("Meddelande")), vbCrLf, "<br />" )%> 
                         
                          <%
Count = Count + 1 
Recset.MoveNext
Loop
Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing

End If
%>
                      <hr />
                        
                              <% 
          If TotalPages <> 1 Then
          If (Int(page)) <> 1 Then
          %>
                              <a href="index.asp?p=guestbook&page=<%=(Int(page)-1)%>" onFocus="this.blur()"><b>« 
                              Bakåt</b></a> 
                              <%Else%>
                              <%End If%>
                              <%
          For Pages = 1 To TotalPages 
          %>
                              <%If (Int(Pages)) = (Int(page)) Then%>
                              <b><%=Pages%></b> 
                              <%Else%>
                              <a href="index.asp?p=guestbook&page=<%=Pages%>" onFocus="this.blur()"><b><%=Pages%></b></a> 
                              <%End If%>
                              <%Next%>
                              <%End If%>
                              <%
          If (Int(page)) <> (Int(TotalPages)) AND Count > 0 Then
          %>
                              <a href="index.asp?p=guestbook&page=<%=(Int(page)+1)%>" onFocus="this.blur()"><b>Framåt 
                              »</b></a> 
                              <%Else%>
                              <%End If%>
                          
                           <hr />

                        <%End If%>
                        <%If Request.QueryString("do")= "jepp" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

Namn		= Replace(Request.Form("namn"),"'","''")
Email		= Replace(Request.Form("email"),"'","''")
Hemsida   	= Replace(Request.Form("hemsida"),"'","''")
Meddelande	= Replace(Request.Form("meddelande"),"'","''")
Datum		= Now

If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If

SQL="Insert Into inlagg"
SQL = SQL & "(Namn, Email, Hemsida, Meddelande, Datum, IP)" 
SQL = SQL & "Values('"& Namn &"','"& Email &"','"& Hemsida &"','"&Meddelande &"',#"& Datum &"#, '" & Request.ServerVariables("REMOTE_ADDR") & "')"
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

Response.Redirect "index.asp?p=guestbook"

End If%>
                        <%
If Request.Querystring("do") = "loggaut" Then
Session.Abandon
Response.Redirect "index.asp?p=guestbook"
End If
%>
                        <%
If Request.Querystring("do")= "nej" Then
Response.Write "<table align='center'><font color='#ffffff'><b>Fel lösenord!</b> &nbsp;&nbsp;<a href='index.asp?p=guestbook&do=admin' onfocus='this.blur()'><b>Tillbaka</b></a></table>"
End If
%>
                        
<%If Request.Querystring("do")= "admin" Then%>
```

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

## #35 — joohn, 2004-05-20T21:50Z

```

	<br />
		<br />
			<br />
                       
                     <form name="loggain" method="post" action="index.asp?p=guestbook&do=kolla">
                                <b>Namn:</b> 
                                <input type="password" name="password" size="15" />
                                &nbsp; <b>L&ouml;senord:</b> 
                                <input type="password" name="password2" size="15" />
                                &nbsp; 
                                <input type="submit" name="Submit" value="Logga in" />
                              </form>
                        <%End If%>
                        <%
If Request.Querystring("do") = "kolla" Then
  Session("koll") = Request.Form("password")
  Session("koll2") = Request.Form("password2")
    If Session("koll") = Losen And Session("koll2") = Losen2 Then
      Response.Redirect "index.asp?p=guestbook&do=ja"
    Else
      Response.Redirect "index.asp?p=guestbook&do=nej"
    End If
End If
%>
                        <%If Request.Querystring("do")= "ja" AND Session("koll") = Losen AND Session("koll2") = Losen2 Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

Const perSida1 = 10 
If Request.QueryString("guestbook") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida1

SQL = "SELECT * From inlagg Order By Datum DESC"
Recset.Open SQL, Conn, 1, 2

If RecSet.EOF Then%>
                    Ingen har skrivit i g&auml;stboken!

<hr>
<a href="index.asp?p=guestbook&do=loggaut"><b>Logga ut</b></a>
                        <%Else

RecSet.MoveFirst 
RecSet.PageSize = perSida1 

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count < RecSet.PageSize %>
                     

Inlägg: <b><%=Server.HTMLEncode(Left(RecSet("Meddelande"),40))%></b>
                            <a href="index.asp?p=guestbook&do=tabort&id=<%=RecSet("id")%>" onfocus=this.blur()><b>Ta 
                              bort</b></a>
                        <%
Count = Count + 1	
Recset.MoveNext

Loop

Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing%>
                    <hr />
                        
                              <% 
          If TotalPages <> 1 Then
          If (Int(page)) <> 1 Then
          %>
                              <a href="index.asp?p=guestbook&do=ja&page=<%=(Int(page)-1)%>" onFocus="this.blur()"><b>« 
                              Bakåt</b></a> 
                              <%Else%>
                              <%End If%>
                              <%
          For Pages = 1 To TotalPages 
          %>
                              <%If (Int(Pages)) = (Int(page)) Then%>
                              <b><%=Pages%></b> 
                              <%Else%>
                              <a href="index.asp?p=guestbook&do=ja&page=<%=Pages%>" onFocus="this.blur()"><b><%=Pages%></b></a> 
                              <%End If%>
                              <%Next%>
                              <%End If%>
                              <%
          If (Int(page)) <> (Int(TotalPages)) Then
          %>
                              <a href="index.asp?p=guestbook&do=ja&page=<%=(Int(page)+1)%>" onFocus="this.blur()"><b>Framåt 
                              »</b></a> 
                              <%Else%>
                              <%End If%>
                     <hr />
                            <a href="index.asp?p=guestbook"><b>Logga ut</b></a>

                        <%End If
End If%>
                        <%
If Request.Querystring("do")= "tabort" AND Session("koll") = Losen AND Session("koll2") = Losen2 And IsNumeric(Request.Querystring("id")) Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/gastbok.mdb")

SQL="Delete * From inlagg Where ID=" & Request.Querystring("id")
Response.Write SQL
Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing

Response.Redirect "index.asp?p=guestbook&do=ja"

End If
%>
```

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

## #36 — @nders, 2004-05-21T06:12Z

Det ser ut att funka fint för mig?

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

## #37 — joohn, 2004-05-21T08:22Z

Det fungerar nu, jag ändrade från guestbook till page här:

```
Const perSida = 10 
If Request.QueryString("[B]guestbook[/B]") = "" then 
page = 1 
Else 
page = Request.QueryString("[B]guestbook[/B]") 
End If
```

Hur kan koden för ett alertfönster se ut när man tex inte skrivit något och ändå skickat inlägget så ska det komma upp alertfönster där det står: skriv ditt namn

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/103920-template-med-länk-till-olika-sidor/page2  
Föregående sida: https://www.webforum.nu/amne/asp/103920-template-med-länk-till-olika-sidor.md