Jump to Navigation | Accessiblity Options | Urdu (اُردو)
Danishkadah's Home - logo with ear, eye, wheelchair and brain image

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

:

: (if any)

date format DD/MM/YYYY
: :

: :

: :

: (if any)

Only authorized volunters can add new event entry.
:

Valid XHTML 1.0 Transitional Valid CSS!