Okay, I've got one last bug to clear out...can anyone see what is wrong w/the coding on this page? I'm at my wits end:
<%
Dim adoConn
Dim rsToday
Dim strSQL
Dim parsedID
parsedID = CLng(Request.Form("ID"))
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("civilwar.mdb")
Set rsToday = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblToday WHERE ID=" & parsedID
rsToday.CursorType = 2
rsToday.LockType = 3
rsToday.Open strSQL, adoConn
rsToday.Fields("ID")=Request.Form("ID")
rsToday.Fields("mMonth")=Request.Form("mMonth")
rsToday.Fields("mDay")=Request.Form("mDay")
rsToday.Fields("mYear")=Request.Form("mYear")
rsToday.Fields("mEvent")=Request.Form("mEvent")
rsToday.Update
rsToday.Close
Set rsToday = Nothing
Set adoConn = Nothing
Response.Redirect "addtdih.asp"
%>
Respectfully,
David.
- www.civilwarsearch.com