L
L Scal
My application requires that I accept form data from (angel.com) another
site using POST method to add records to an Access db. I've been having
trouble getting information from them, but I think I've grasped the concept,
and just need a script that adds or inserts a record. I'm trying to test it
on my server first so I know it works, but so far it does not.
The form page is http://erecognitions.com/angeltest.asp. It posts the data
to the following file named angel_insert.asp:
<!--#INCLUDE VIRTUAL="/include/connect.inc"-->
<%
DIM objRS
Set objRS = Server.Create.Object("ADODB.Recordset")
objRS.Open "angel", objConn, , adLockOptimistic,
adCmdTable
objRS.AddNew
ObjRS("CallerID") = Request.Form("CallerID")
ObjRS("AngelNumber") = Request.Form("AngelNumber")
ObjRS("Internet") = Request.Form("Internet")
ObjRS("Marital") = Request.Form("Marital")
ObjRS("Nice") = Request.Form("Nice")
objRS.Update
%>
<%
objRS.Close
Set objRS = Nothing
objCONN.Close
Set objCONN = Nothing
%>
The connect include file is:
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=A4785_angel"
'DSN name assigned by host
objConn.Open
%>
I got the code for these from internet code sources. Can anyone tell me why
this won't work?
Thanks
LScal
site using POST method to add records to an Access db. I've been having
trouble getting information from them, but I think I've grasped the concept,
and just need a script that adds or inserts a record. I'm trying to test it
on my server first so I know it works, but so far it does not.
The form page is http://erecognitions.com/angeltest.asp. It posts the data
to the following file named angel_insert.asp:
<!--#INCLUDE VIRTUAL="/include/connect.inc"-->
<%
DIM objRS
Set objRS = Server.Create.Object("ADODB.Recordset")
objRS.Open "angel", objConn, , adLockOptimistic,
adCmdTable
objRS.AddNew
ObjRS("CallerID") = Request.Form("CallerID")
ObjRS("AngelNumber") = Request.Form("AngelNumber")
ObjRS("Internet") = Request.Form("Internet")
ObjRS("Marital") = Request.Form("Marital")
ObjRS("Nice") = Request.Form("Nice")
objRS.Update
%>
<%
objRS.Close
Set objRS = Nothing
objCONN.Close
Set objCONN = Nothing
%>
The connect include file is:
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=A4785_angel"
'DSN name assigned by host
objConn.Open
%>
I got the code for these from internet code sources. Can anyone tell me why
this won't work?
Thanks
LScal