Events List (most recently added at top)
<%
Dim adOpenForwardOnly, adLockReadOnly, adCmdTable
adOpenStatic = 1
adLockReadOnly = 1
adCmdTable = 2
Dim objConn, objRS
set objConn = Server.CreateObject ("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strDatabasType
strDatabaseType = "Access"
dim d_comments
dim d_name
dim d_designation
dim d_organization
dim d_country
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\sites\Single9\danishkada2\database\events.mdb;" & "; Persist Security Info=False"
objRS.Open "events", objConn, adOpenStatic, adLockReadOnly, adCmdTable
objRS.MoveLast
While Not objRS.BOF
Response.write("
Title: "& objRS("Title")& "
")
Response.write("
Theme: "& objRS("Theme")& "
")
Response.write("
Date: "& objRS("date_from")& " - " & objRS("date_to") & "
")
Response.write("
Venue: "& objRS("venue")& " - " & objRS("Country")& "
")
Response.write("
Source: " & ObjRS("link_text") & "")
Response.write("
")
objRS.MovePrevious
Wend
ObjRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
Events update form
Fill this form to add a new entry in events database