Adressen till sidan som ni skall besöka är fö. http://oggo.ath.cx:8080/ASP/Lektion39/
& ja, jag har värden i databasen. :e
Frågan#1
Sitter som bäst och håller på att lära mig ASP men har nu stött på ett problem.
Jag har följande kod, men när värdena från databasen skall skrivas ut så kommer inte ett enda jota!
<html>
<!-- #include virtual="/Virtual/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\webs\ASP\Lektion39\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"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
Följande adresser finns i adressboken:
<ul>
<% Do Until RecSer.EOF %>
<li><% =RecSet("Fornamn") %> <b><% =("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
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 %>
</ul>
</html>