<% 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 %>
  Register for event...
Event
 
Location
 
Address
 
Date
 
Time
 
 
First Name
    *
Last Name
    *
Company
 
Address
 
City
    *
Phone Number
    *
Email
    *
Products You Use