Jag föreslår att du gör om det scriptet från början annars kommer du bli knasig på sidan ;)
Vänligen använd [kod]-taggar.
Frågan#1
Hej
Jag har ett gammalt adressboksscript som jag tänkte utnyttja men får inte det att funka
så här ser navigeringen ut
<html>
<body>
<html>
<body>
<b>Ta en titt i min adressbok!</b>
<hr noshade size="1">
Sortera efter:
<ul>
<li><a href="visa.asp?ordning=Fornamn">Förnamn</a>
<li><a href="visa.asp?ordning=Efternamn">Efternamn</a>
<li><a href="visa.asp?ordning=Telefon">Telefon</a>
<li><a href="visa.asp?ordning=Fax">Fax</a>
<p>
<li><a href="visa.asp?ordning=Annasson">Enbart personer med efternamnet Annasson</a>
</ul>
<hr noshade size="1">
Hur ska visa.asp se ut för att detta ska funka. Det script jag har ser ut så här
<html>
<!-- #include virtual="/adressbok31/databas/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/adressbok31/databas/adressbok.mdb")
If Request.QueryString("ordning") = "Fornamn" OR Request.QueryString("ordning")= "Efternamn" OR Request.QueryString("ordning") = "Adress" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("ordning") = "Fornamn" Then
Addera = "SELECT * FROM adressbok ORDER BY Fornamn"
ElseIf Request.QueryString("ordning") = "Efternamn" Then
Addera = "SELECT * FROM adressbok ORDER BY Efternamn"
ElseIf Request.QueryString("ordning") = "Adress" Then
Addera = "SELECT * FROM adressbok ORDER BY Adress"
End If
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
Följande adresser finns i adresseboken.\<p\>
\<ul\>
<% Do Until RecSet.EOF %>
\<li\>\<% =RecSet("Fornamn") %\> \<b\>\<% =RecSet("Efternamn") %\>\</b\>\<br\>
\<% =RecSet("Adress") %\>\<hr noshade size="1"\>
<% RecSet.MoveNext
Loop
RecSet.Close %>
<% ElseIf Request.QueryString("ordning") = "Annasson" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM adressbok WHERE Efternamn = 'Annasson' ORDER BY Fornamn"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
Följande adresser finns i adresseboken.\<p\>
\<ul\>
<% Do Until RecSet.EOF %>
\<li\>\<% =RecSet("Fornamn") %\> \<b\>\<% =RecSet("Efternamn") %\>\</b\>\<br\>
\<% =RecSet("Adress") %\>\<hr noshade size="1"\>
<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
End If %\>
<p><a href="default.asp">Sortera i ny ordning</a>
</ul>
</html>