<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\slang.mdb"))
'SELECT from the database
sSQL = "SELECT * FROM words"
set oRS = oConn.Execute(sSQL)
Response.Write("")
Response.Write("")
Response.Write("| Word | ")
Response.Write("Word Meanings | ")
Response.Write("Usage Example |
")
Do While NOT oRS.EOF
Response.Write("| " & oRS("word") & " | ")
Response.Write("" & oRS("meaning") & " | ")
Response.Write("" & oRS("example") & " | ")
oRS.MoveNext
Loop
Response.Write("
")
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>