20. april 2004 - 14:29Der er
3 kommentarer og 1 løsning
if sættinh ved ikke helt..
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("loginneger.mdb") Conn.Open DSN bruger = "select * from Tuser" set bruger = conn.execute(bruger)
if bruger.fields("FBruger") = rs2.fields("af") then response.Write "Skrev af: [B] <a href='brugerinfo.asp?id=bruger1&bruger="&rs2.fields("af")&"'>"&rs2.fields("af")&"</a><br>" else response.Write "Skrev af: [G] "&rs2.fields("af")&"<br>" end if %>
altså det den skal gøre er at hvis rs2.fields("af") findes i databasen over bruger skal den skriver [B] rs2.fields("af")ellers skal den skriver [G] rs2.fields("af"
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("loginneger.mdb") Conn.Open DSN bruger = "select * from Tuser where FBruger = '" & rs2.fields("af") & "'" set bruger = conn.execute(bruger)
if not bruger.EOF then response.Write "Skrev af: [B] <a href='brugerinfo.asp?id=bruger1&bruger="&rs2.fields("af")&"'>"&rs2.fields("af")&"</a><br>" else response.Write "Skrev af: [G] "&rs2.fields("af")&"<br>" end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.