<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
accessdb = server.mappath("/mdb/eastrising.mdb")
MN__DSN_STRING ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & accessdb
get_id_value = Request.QueryString("id")
%>
<%
'Form Submission
If Request.Form("Form1Submit") Then
Response.Write("Form Submitted")
MM_editTable = "users"
editQuery = "UPDATE Performances SET [Event Name] = '" & request.form("formEventName") & "', [Date] = '" & request.form("formDate") & "', [Description] = '" & request.form("formDescription") & "' WHERE ID = " & get_id_value
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MN__DSN_STRING
MM_editCmd.CommandText = editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End if
%>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MN__DSN_STRING
RS.Source = "Select * From Performances Where id = " & get_id_value
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 1
RS.Open()
%>
<%
RS.close()
set RS = nothing
%>