<%
'strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/events.mdb") & ";"
strConnection ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database/events.mdb") & ";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(strConnection)
Dim sqlEvents: sqlEvents = "SELECT TOP 1 * FROM events_frontpage;"
set rs = conn.Execute(sqlEvents)
While NOT rs.EOF
%>
![](images/upload_images/<%=rs("Picture")%>) |
<%=rs("Blurb")%>
|
<%
rs.MoveNext
Wend
rs.Close()
set rs = nothing
%>