<%
Dim eID, iID
eID = Request.QueryString("eID")
iID = Request.QueryString("iID")
Dim d_Title, d_Location
Dim adoCon
Dim rsClinics
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("clinics.mdb"),,0
Set rsClinics = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM events INNER JOIN event_details "
strSQL = strSQL & " ON events.eID=event_details.eID "
strSQL = strSQL & " WHERE event_details.eID=" & eID
strSQL = strSQL & " AND event_details.iID=" & iID
rsClinics.Open strSQL, adoCon
If Not rsClinics.EOF Then
d_Title = rsClinics("title")
d_Location = rsClinics("location")
d_address = rsClinics("address")
d_city = rsClinics("city")
d_provstate = rsClinics("provstate")
d_ddd = rsClinics("ddd")
d_ttt = rsClinics("ttt")
d_notes = rsClinics("notes")
End If
%>