If?

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.

om han skriver "Ja" i tabellen, så ska en bild komma upp bredvid länken.

Hur gör jag ?
tabellen heter "betalt"

------------------
aka Lexmarc

koden set ut så här

<%

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

%>

------------------
aka Lexmarc

I cant seem to understand.. :q

------------------
Craving for malicious suspection fulfilles the prophesized termination of this world.

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 :l

------------------
Icaaq, mannen med korven. (!)