<% ' Open database connection Set MyConn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("Cafe.mdb") Myconn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" ' Set recordset for Query Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "SELECT * FROM [ARTIST_QUERY]", Myconn, 1, 3 %> <% ' If Update clicked, Process If request.form("Add") = "Add" Then ' Create session variables from form Session("LName")=request.Form("LName") Session("FName")=request.Form("FName") Session("Address")=request.Form("Address") Session("City")=request.Form("City") Session("State")=request.Form("State") Session("Zip")=request.Form("Zip") Session("Phone")=request.Form("Phone") Session("E_mail")=request.Form("E_mail") Session("Comments")=request.Form("Comments") ' Save new record With RS .AddNew .Fields("LName")=request.Form("LName") .Fields("FName")=request.Form("FName") .Fields("Address")=request.Form("Address") .Fields("City")=request.Form("City") .Fields("State")=request.Form("State") .Fields("Zip")=request.Form("Zip") .Fields("Phone")=request.Form("Phone") .Fields("E_mail")=request.Form("E_mail") .Fields("Comments")=request.Form("Comments") .Update End with ' Close database connection RS.close Myconn.close set Myconn=nothing set RS=nothing 'Go to results page response.Redirect "CafeMestizo.asp" Else End if %>

	Your thoughts and comments are valuable to us. Please leave your feedback.

         

LName:	FName:
Address:
City: State: Zip:
Phone:	E_mail:
Comments:

<% ' Close database connection RS.close Myconn.close set Myconn=nothing set RS=nothing %>