Filsystem:
Database
-tagwall.mdb
Default.asp
check_post.asp
Default.asp
-----------------------
<Html>
<Head>
<%
' Connect Til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/mdb/tagwall.mdb")
Conn.Open DSN
' Nu skal vi så difinere hvilken tabel vi vil udskrive på vores side, samt hvilken rækkefølge
' Her skal vi så udskrive de nyeste først
SQL = "Select * from tabelnavn order by id desc"
Set rs = Conn.Execute(SQL)
%>
</Head>
<Body>
<%
' Nu skal vi så igang med at udskrive indlægende fra Databasen
' start på vores løkke
'Tjeker om databasen er tom
if rs.EOF Then
Response.Write "Databasen er tom"
else
Do until rs.EOF
' og nu bliver indlægende udskrevet fra databasen i html
' Der kan selv pyntes på tablen, den er bare gjort enkelt så det er nemmere at finde rundt i
%>
<table Width="500">
<tr>
<td>Navn:
<%=Rs("Navn") %></td></tr>
<tr>
<td><P STYLE="word-wrap:normal;Word-wrap:Break-word;width:"500";left:0"><%=rs("Tekst") %></p></td>
</tr>
</table>
<br>
<%
' Word-Wrap bruges til at skille linierne fra databasen efter 500px
' Så skal vi gå til næste record i databasen
rs.MoveNext
' nu skal vi så fuldføre løkken
Loop
End if
' Nu er vi så færdige med at udskrive fra databasen
' Vi lukker lige ned for databasen for en ordens skyld
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
' og vi mangler nu vores Form til at skrive et indlæg med
%>
<br>
Skriv Indlæg:<br>
<form Method="Post" action="Check_post.asp">
Navn:<br>
<Input type="text" name="Navn"><br>
Besked:<br>
<textarea rows="10" cols="40" name="Besked"></textarea><br>
<Input type="Submit" Value="Indsæt">
</form>
</body>
</Html>
-----------------------
og så skal vi i gang med vores Check_post.asp side
-----------------------
<%
' Så starter vi med at connecte på en speciel måde, så det er muligt at skrive til databasen
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/Database/tagwall.mdb") & ";UID=admin;PWD=;"
' Og så sætter så definere vi hvilken tabel vi ønsker at gemme i
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From tabel"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
' Og så gemmer vi i databasen
rs.AddNew
rs("navn") = Request.Form("navn")
rs("besked") = Request.Form("besked")
rs.Update
' Og så lukker og slukker vi, og går tilbage til den side vi kom fra
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
Response.Redirect "Default.asp"
%>
-----------------------
Og så er vi færdige - Bare sig til hvis det er noget lort
