1= med admin hvordan.

Ja du kan lave nogle if sætning'er som tjekker det og udskriver en tekst:

if int(objRS("Status"))=1 then Response.Write "Gæst"
if int(objRS("Status"))=2 then Response.Write "Bruger"
if int(objRS("Status"))=3 then Response.Write "Admin"

Kan ikke helt finde ud af hvor jeg skal sætte det ind i siden

Det ser sådan ud:
-----------------

    Dim stamme_profil

Sub main

    strSQL = ("SELECT id, user_id, stamme, last, made, status, profil FROM users WHERE godkendt=1 ORDER BY id")
    Set objRS = objConn.Execute(strSQL)

    Response.Write ("<p align='center'><b>Stammeliste</b></p>")

    If NOT objRS.EOF Then

        Response.Write ("<table border='1' cellpadding='0' cellspacing='0'>")
           
            Response.Write ("<tr><td>Heroes ID</td><td>Stammenavn</td><td>Sidst Logget ind</td><td>Oprettet</td><td>Status</td></tr>")
               
        Do Until objRS.EOF
           
            Response.Write ("<tr><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("user_id") & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("stamme") & "</td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("last"), 1) & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("made"), 1) & "</a><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("Status") & "</a></td></td></tr>")
            objRS.MoveNext

        Loop

        Response.Write ("</table>")

    Else
        Response.Write ("<p align='center'><b>Ingen stammer</b></p>")

    End if

End Sub


Sub vis

    strSQL = ("SELECT stamme_profil FROM [option] WHERE id=1")
    Set objRS = objConn.Execute(strSQL)

    stamme_profil = objRS("stamme_profil")

    objRS.Close

    strSQL = ("SELECT * FROM users WHERE id=" & Request.QueryString("id"))
    Set objRS = objConn.Execute(strSQL)
   
    Response.Write ("<br /><table border='1' cellpadding='0' cellspacing='0'>")
    Response.Write ("<tr><td>Stamme</td><td> " & objRS("stamme") & "-" & objRS("user_id") & "</td></tr>")
    Response.Write ("<tr><td>Sidste login</td><td> " & dato_title(objRS("last"), 1) & "</td></tr>")
    Response.Write ("<tr><td>Oprettet</td><td> " & dato_title(objRS("made"), 1) & "</td></tr>")
    Response.Write ("<tr><td>Inlæg i forum</td><td>" & objRS("posts") & "</td></tr>")

    If NOT stamme_profil = 0 Then
        Response.Write ("<tr><td>Beskrivelse</td><td> " & objRS("profil") & "</td></tr>")

    End If

    Response.Write ("</table>")
    Response.Write ("<p align='center'><a href='user.list.asp'>Stammer</a></p>")

End Sub


Sub none

    If NOT page = ("vis") Then
        main

    Else
        vis

    End If

End Sub
%>

Så må du dele dette lidt op:

        Do Until objRS.EOF
           
            Response.Write ("<tr><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("user_id") & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("stamme") & "</td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("last"), 1) & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("made"), 1) & "</a><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("Status") & "</a></td></td></tr>")
            objRS.MoveNext

        Loop


Eksemplvis sådan her:


        Do Until objRS.EOF
           
            Response.Write ("<tr><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("user_id") & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & objRS("stamme") & "</td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("last"), 1) & "</a></td><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>" & dato_title(objRS("made"), 1) & "</a><td><a href='user.list.asp?page=vis&id=" & objRS("id") & "'>"

            if int(objRS("Status"))=1 then Response.Write "Gæst"
            if int(objRS("Status"))=2 then Response.Write "Bruger"
            if int(objRS("Status"))=3 then Response.Write "Admin"

            response.write "</a></td></td></tr>")
            objRS.MoveNext

        Loop