webForumDet fria alternativet
Logga in / Bli medlem

Template med länk till olika sidor

ASP

36 svar · 763 visningar · startad av joohn · sida 2 av 2

Frågan, av joohn

Tex jag har en templatesida och gör flera av den (photo.asp / print.asp / video.asp ) Sen ska jag ha en huvudsida och när man klickar på länkbilderna så ska det bli tex index.asp?page=photo. Har försökt med lager men det verkar bara vara jobbigt och opraktiskt så jag tror på den här lösningen. Hur kan kodlösningen se ut?

Läs frågan i sin helhet →
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#21

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

joohnMedlem sedan jan. 200463 inlägg
#22

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å?

joohnMedlem sedan jan. 200463 inlägg
#23

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?

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#24

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.

joohnMedlem sedan jan. 200463 inlägg
#25

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?

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#26

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

joohnMedlem sedan jan. 200463 inlägg
#27

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?

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#28

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

Mvh

joohnMedlem sedan jan. 200463 inlägg
#29

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>
joohnMedlem sedan jan. 200463 inlägg
#30

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 %>
joohnMedlem sedan jan. 200463 inlägg
#31

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
%>
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#32

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

joohnMedlem sedan jan. 200463 inlägg
#33

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

joohnMedlem sedan jan. 200463 inlägg
#34

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%>
joohnMedlem sedan jan. 200463 inlägg
#35

	<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
%>
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#36

Det ser ut att funka fint för mig?

joohnMedlem sedan jan. 200463 inlägg
#37

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

286 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
154 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)