<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("namn.mdb")&";"
SQL = "SELECT TOP 50 * FROM tabell ORDER BY nick DESC"
Set RecSet = Connect.Execute(SQL)
If RecSet.EOF Then
Response.Write "Inga anmälda än så länge."
Else
Do Until RecSet.EOF
Response.Write "<a href=namn.asp?ID="& RecSet("ID") &">"& RecSet("nick") &"</a><br><br>"
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>
om jag har en första sida, där man länkar avändare från en databas.
admin ska kunna gå in i databasen och skriva "Ja/Nej" i ett tabellnamn.
Du får väl lägga till ett fält i tabellen(t.ex F_boolean) där default-värdet är nej.
om han skriver "Ja" i tabellen, så ska en bild komma upp bredvid länken.
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("namn.mdb")&";"
SQL = "SELECT TOP 50 * FROM tabell ORDER BY nick DESC"
Set RecSet = Connect.Execute(SQL)
If RecSet.EOF Then
Response.Write "Inga anmälda än så länge."
Else
Do Until RecSet.EOF
Response.Write "<a href=namn.asp?ID="& RecSet("ID") &">"& RecSet("nick") &"</a>" & vbcrLf
If RecSet("F_Boolean") = "Ja" Then
Response.Write "<img src=""bild.jpg""><br><br>" &vbCrLf
Else
Response.Write "<br><br>" &vbCrLf
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>
om jag fattat dig rätt
263 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91