Tjekke feltnavn via ASP

Jada download filemanager fra netsrac.dk der er en acces manager inkluderet

Eller:

<%
Function datatyper(dtype,dattributes)
    If dtype = 0 Then tmp = \"Empty\"
    If dtype = 16 Then tmp = \"TinyInt - Tal\"
    If dtype = 2 Then tmp = \"SmallInt - Tal\"
    If dtype = 3 Then tmp = \"Integer - Tal\"
    If dtype = 3 AND dattributes = 16 Then tmp = \"Autonummerering - Tal\" 
    If dtype = 20 Then tmp = \"BigInt - Tal\"
    If dtype = 17 Then tmp = \"UnsignedTinyInt - Tal\"
    If dtype = 18 Then tmp = \"UnsignedSmallInt - Tal\"
    If dtype = 19 Then tmp = \"UnsignedInt - Tal\"
    If dtype = 21 Then tmp = \"UnsignedBigInt - Tal\"
    If dtype = 4 Then tmp = \"Single\"
    If dtype = 5 Then tmp = \"Double\"
    If dtype = 6 Then tmp = \"Currency\"
    If dtype = 14 Then tmp = \"Decimal\"
    If dtype = 131 Then tmp = \"Numeric\"
    If dtype = 11 Then tmp = \"Boolean - Sand/Falsk\"
\'    If dtype = 11 Then tmp = \"Error\"
    If dtype = 132 Then tmp = \"UserDefined\"
    If dtype = 12 Then tmp = \"Variant\"
    If dtype = 9 Then tmp = \"Dispatch\"
    If dtype = 13 Then tmp = \"Unknown\"
    If dtype = 72 Then tmp = \"Guid\"
    If dtype = 7 Then tmp = \"Date - Dato\"
    If dtype = 133 Then tmp = \"DBDate\"
    If dtype = 134 Then tmp = \"DBTime\"
    If dtype = 135 Then tmp = \"Timestamp - Dato og tid\"
    If dtype = 8 Then tmp = \"BSTR\"
    If dtype = 129 Then tmp = \"Char - Tekst\"
    If dtype = 200 Then tmp = \"VarChar - Tekst\"
    If dtype = 201 Then tmp = \"LongVarChar - Tekst\"
    If dtype = 130 Then tmp = \"WChar - Tekst\"
    If dtype = 202 Then tmp = \"VarWChar - Tekst\"
    If dtype = 203 Then tmp = \"LongVarWChar - Tekst\"
    If dtype = 128 Then tmp = \"Binary - Bin&aelig;r\"
    If dtype = 204 Then tmp = \"VarBinary - Bin&aelig;r\"
    If dtype = 205 Then tmp = \"LongVarBinary - Bin&aelig;r\"
    if tmp = \"\" then
    tmp = \"Ukendt\"
    end if
    datatyper = tmp
End Function

dbtoadmin = \"db.mdb\"
tabel = \"tabel\"
%>
<html>
<head>
<title>Access Manager</title>
</head>
<BODY BGCOLOR=\"FFFFFF\" LINK=\"000000\" ALINK=\"000000\" VLINK=\"000000\" TEXT=\"000000\">
<TABLE BORDER=\"0\" WIDTH=\"90%\" CELLPADDING=\"2\" CELLSPACING=\"0\">
<TR><TD BGCOLOR=\"#000040\"><FONT FACE=\"Tahoma\" SIZE=\"4\" COLOR=\"#FFFFFF\">Access Manager</FONT></TD></TR>
<TR><TD BGCOLOR=\"#999999\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">
Aktuel Database: <% =dbtoadmin %></font> - <a href=\"default.asp\"><FONT FACE=\"Tahoma\" COLOR=\"#0000cc\" size=\"2\">&Aring;ben anden Databasen</FONT></A><br>
<FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">
Aktuel Tabel: <% =tabel %> - <a href=\"dbtabels.asp\"><FONT FACE=\"Tahoma\" COLOR=\"#0000cc\" size=\"2\">Vis alle tabeller</FONT></A><br>
</FONT></TD></TR>
</TABLE><P>
<TABLE BORDER=\"1\" WIDTH=\"400\" BORDERCOLOR=\"000000\" CELLPADDING=\"2\" CELLSPACING=\"0\">
<TR><TD WIDTH=\"200\" BGCOLOR=\"#999999\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">Feltnavn</FONT></TD>
<TD WIDTH=\"200\" BGCOLOR=\"#999999\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">Felt Type</FONT></TD></TR>
<%
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & dbtoadmin
    set rs = Conn.Execute(\"Select * from \" & tabel)
    For each head IN rs.Fields %>
    <TR><TD><FONT FACE=\"Tahoma\" SIZE=\"2\"><% =head.name %></FONT></TD><TD><FONT FACE=\"Tahoma\" SIZE=\"2\"><% =datatyper(head.type,head.attributes) %></FONT></TD></TR>
<%
    Next
    conn.Close
    Set conn = nothing
    set rs = nothing
%>
<TABLE BORDER=\"0\" WIDTH=\"90%\"><TR><TD BGCOLOR=\"#000040\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">Access Manager er udviklet af <A HREF=\"http://www.cnh.dk\" TARGET=\"_blank\"><FONT FACE=\"Tahoma\" SIZE=\"2\" COLOR=\"#FFFFFF\">http://www.cnh.dk</FONT></A> og ment som et supplement til File Manager.</FONT></TD></TR></TABLE>
</body>

cool tak...

Så lidt :-)