Hej. Du måste skriva ut informationen i recordsetet ochså:Databasvisningsproblem...
När jag vill att detta skall visas på nätet blir det bara en vit sida, varför?
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("test.mdb")
If Request.QueryString("ordning") = "Datum" OR _ Request.QueryString("ordning")= "BBB" OR Request.QueryString _("ordning")= "AAA" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("ordning") = "AAA" Then
Visa = "SELECT * FROM varden ORDER BY AAA"
If Request.QueryString("ordning") = "Datum" Then
Visa = "SELECT * FROM varden ORDER BY Datum"
ElseIf Request.QueryString("ordning") = "BBB" Then
Visa = "SELECT * FROM varden ORDER BY BBB"
End If
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>Sv: Databasvisningsproblem...
While not RecSet.EOF
Response.Write RecSet("Kolumn1")
Response.Write RecSet("Kolumn2")
'osv
RecSet.MoveNext
WEND
/Johan