<%
'ODBC info
'migrating from Visual InterDev 1.0 to Visual InterDev 6.0"
'*** VARIABLES ***'
dim rs,db,ID,str,connStr,dbqstr
'*** Load Database Info ***'
set db=server.CreateObject("ADODB.connection")
set rs=server.CreateObject("ADODB.recordset")
'*** set variables ***'
ID=Request.QueryString("Name")
IDS="[Name]"
str="SELECT * FROM [Main] WHERE " & IDS & "='" & ID & "'"
If ID = "" then
ID=Request.QueryString("ID")
IDS="[ID]"
str="SELECT * FROM [Main] WHERE " & IDS & "=" & ID
end if
dbqstr=server.MapPath("database/camps.mdb")
connStr="UID=PL;PWD=;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbqstr & ";"
'*** Open Database ***'
db.Open connStr
rs=db.Execute(str)
%>
Pilgrim Lodge - Summer Camp
