<%@ Language=VBScript%> <%Response.Buffer=True Response.Expires = -1000 dim conn dim rs dim vfind dim path dim SQL dim title dim vyear dim strCon On error Resume next vfind = Request.querystring("id") path= server.MapPath(".") set conn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database\oba.mdb") conn.Open strCon 'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & "\db\oba.mdb" 'conn.Open("obadata") if Err.number <> 0 then Response.Write "Error : " & Err.Description Response.End end if SQL = "SELECT * FROM obamas where obaid ="&vfind&" order by year " rs.open SQL,strcon do until rs.EOF vyear=rs.Fields(23) rs.movenext loop rs.close conn.close Response.Redirect "oba.asp?id="&vfind&"&year="&vyear&"" %>