odbc script

Jeg forstår ikke helt præcist dit spørgsmål, men her er en side der tager bruger/password på en formular og udskriver alle poster fra tabellen MinTabel ved at bruge ODBC/DSN.

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>
<TABLE>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

bruger = request.form(\"bruger\")
pass = request.form(\"pass\")

connStr = \"DATABASE=mc-dk;DSN=mc-dk;UID=\" & pass & \";PASSWORD=\" & pass & \";\"

Conn.Open connStr

sql = \"SELECT * from MinTabel\"
RS.Open sql, Conn
\'Response.Write(\"<TH align=left>1</TH><TH>2</TH><TH>3</TH>\")

if not RS.EOF then
    Response.Write(\"<TR>\")
    for each item in RS.Fields
        Response.Write(\"<TH align=left bgcolor=lightgrey>\" & item.name & \"</TH>\" & vbcrlf)
    next   
    Response.Write(\"</TR>\")
end if

Do While Not RS.EOF
    Response.Write(\"<TR>\" & vbcrlf)

        for each item in RS.Fields
            Response.Write(\"<TD nowrap align=left>\" & item.value & \"</TD>\" & vbcrlf)
        next
        RS.MoveNext
    Response.Write(\"</TR>\" & vbcrlf)
Loop
Response.Write(\"</TABLE>\" & vbcrlf)

if rs.State <> 0 then rs.Close
if Conn.state <> 0 then Conn.Close

%>

</BODY>
</HTML>

også en database jeg kan downloade som passer til scriptet.

Har du selv et sølvfad vi kan servere løsningen på ?

ja