ang. database

Den der viser alt i databasen:
forudsat at du har defineret dit databaseobject:

<%
do until rs.eof
%>
Navn: <%=rs.(\"name\")%><br>
Email: <%=rs.(\"email\")%><br>
<%
rs.movenext
loop
set rs = nothing
%>

Hvordan finder det ud af at databasen hedder db1.mdb ???

Det finder den heller ikke ud af - det er noget, som du skal skrive i din .ASP fil ... eks.:

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    FilePath = \" & Server.MapPath(\"db1.mdb\") & \"
        Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & MdbFilePath & \";\"
%>

Oops! ... I did it again!

Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & FilePath & \";\"

Og når du vil indsætte i databasen kan du fx gøre sådan her:

<%

mode = request(\"mode\")

If mode = \"new\" then
Response.write \"<form action=\"\"default.asp?mode=new&functions=insert\"\" method=\"\"post\"\"><font face=\"\"arial\"\" size=\"\"2\"\"><b>Felt 1: </b><input type=\"\"text\"\" size=\"\"45\"\" name\"\"formelfelt1\"\"><br><b>Felt 2: </B><input type=\"\"text\"\" size=\"\"45\"\" name\"\"formelfelt2\"\">\"
</font>
End if

If mode = \"new\" and request(\"functions\") = \"insert\" then
SQL = \"INSERT INTO Brugere (dbfelt1, dbfelt2) values (\'\" & request(\"formelfelt1\") & \"\', \'\" & request(\"formelfelt2\") & \"\')\"
conn.Execute(SQL)
Response.write \"<font face=\"\"arial\"\" size=\"\"2\"\"><b>Din profil er nu oprettet.</b></font>\"
End if

%>


Når du senere vil hente dine data kan du gøre sådan her:

SQL = \"SELECT FROM * [tabelnavn] order by felt desc\"
Set rs=conn.Execute(SQL)

og så når du skal hente kan du se phylox2\'s eksempel.



--
Dan