Hi,
I'm hoping that someone will be able to help me with this one, I'm
developing an application which basically inserts a load of data into the
database ready for validation at a later date, I wrote an INSERT statement
that works fine however today I decided that as part of the application
upgrade it should be return the record ID so I wrote the following which I
admit is a little messy at places but it works. However when I added all the
fields it's now returning the error "Arguments are of the wrong type, are
out of acceptable range, or are in conflict with one another". I've been
going through it for a while now any can't work out why its happening, has
anyone got any ideas?
Cheers.
Tim
---------------
CODE
---------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/delayed.asp" -->
<!--#include file="adovbs.inc" -->
<%
If Request.Form("SaveForm")<>"" Then
%>
<%
Function InsertRecord(tblName, ArrFlds, ArrValues)
' This function recieves a tablename and an Array of
' Fieldnames and an Array of field Values.
' It returns the ID of the record that has been inserted.
' Turn error handling on.
On Error Resume Next
dim cnnInsert, rstInsert, thisID
Dim MM_delayed_STRING
MM_delayed_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\Delay\DELAYED.mdb"
' Object instantiation.
Set cnnInsert = Server.CreateObject ("ADODB.Connection")
Set rstInsert = Server.CreateObject ("ADODB.Recordset")
' Open our connection to the database.
cnnInsert.open MM_delayed_STRING
' Open our Table (using the tblName that we passed in).
rstInsert.Open tblName, cnnInsert, adOpenKeyset, adLockOptimistic,
adCmdTable
' Call the AddNew method.
rstInsert.AddNew ArrFlds, ArrValues
' Commit the changes.
rstInsert.Update
' Retrieve the ID.
thisID = rstInsert("CFNID")
If Err.number = 0 Then
' If the Err.number = 0 then close everything and
' return the ID.
rstInsert.Close
Set rstInsert = Nothing
cnnInsert.close
Set cnnInsert = Nothing
InsertRecord = thisID
Else
' Woops, an error occurred, close everything and display an
' error message to the user.
rstInsert.Close
Set rstInsert = Nothing
cnnInsert.close
Set cnnInsert = Nothing
' Call our re-useable Error handler function.
call myErrorHandler()
End If
End Function
Function DField(dtf)
If (Request.Form(dtf)<>"") Then
DField = "#" & Request.Form(dtf) & "#"
Else
DField = "Null"
End If
End Function
Function ChkBox(chk)
If (Request.Form(chk)<>"") Then
ChkBox = Request.Form(chk)
Else
ChkBox = "Null"
End If
End Function
Function TxtField(txt)
TxtField = Replace(Request.Form(txt),"'","''")
End Function
%>
<%
Dim ThisRecordID, arr1, arr2
arr1 = Array("PasID", "Pref_Name", "Pat_Alerts", "Home_Access",
"Home_Hazards", "GP_Email", "Ref_Name", "Ref_Team", "Ref_Add1", "Ref_Add2",
"Ref_Add3", "Ref_Add4", "Ref_AddPC", "Ref_Tel", "Ref_Email", "Ref_Type",
"Ref_Sign", "Ref_SignDate", "RRA", "PACIO", "ONEI", "AOFC", "HAI_Att12m",
"HAI_Date1", "HAI_Reason1", "HAI_Ward1", "HAI_Date2", "HAI_Reason2",
"HAI_Ward2", "HAI_Date3", "HAI_Reason3", "HAI_Ward3", "HAI_Date4",
"HAI_Reason4", "HAI_Ward4", "ANSPSU", "EC_Forename", "EC_Surname",
"EC_Relation", "EC_Add1", "EC_Add2", "EC_Add3", "EC_Add4", "EC_AddPC",
"EC_ConNum", "MC_Forename", "MC_Surname", "MC_Relation", "MC_Add1",
"MC_Add2", "MC_Add3", "MC_Add4", "MC_AddPC", "MC_ConNum", "MC_CAO",
"MC_CACom", "MC_AIType", "MC_AIOther", "MC_AICom", "Pat_User", "CC_AssDur",
"CC_AssPre", "CC_AssReas", "AI_ComSup", "AI_PFL", "AI_Occ", "AI_OccDet",
"AI_PropType", "AI_PropTen", "AI_CliGroup1", "AI_CliGroup2", "AI_PropLive",
"ExDisDate")
arr2 = Array(TxtField("PasID") & ", " & TxtField("Pref_Name") & ", " &
TxtField("Pat_Alerts") & ", " & TxtField("Home_Access") & ", " &
TxtField("Home_Hazards") & ", " & TxtField("GP_Email") & ", " &
TxtField("Ref_Name") & ", " & TxtField("Ref_Team") & ", " &
TxtField("Ref_Add1") & ", " & TxtField("Ref_Add2") & ", " &
TxtField("Ref_Add3") & ", " & TxtField("Ref_Add4") & ", " &
TxtField("Ref_AddPC") & ", " & TxtField("Ref_Tel") & ", " &
TxtField("Ref_Email") & ", " & TxtField("Ref_Type") & ", " &
TxtField("Ref_Sign") & ", " & DField("Ref_SignDate") & ", " &
TxtField("RRA") & ", " & TxtField("PACIO") & ", " & TxtField("ONEI") & ", "
& TxtField("AOFC") & ", " & TxtField("HAI_Att12m") & ", " &
DField("HAI_Date1") & ", " & TxtField("HAI_Reason1") & ", " &
TxtField("HAI_Ward1") & ", " & DField("HAI_Date2") & ", " &
TxtField("HAI_Reason2") & ", " & TxtField("HAI_Ward2") & ", " &
DField("HAI_Date3") & ", " & TxtField("HAI_Reason3") & ", " &
TxtField("HAI_Ward3") & ", " & DField("HAI_Date4") & ", " &
TxtField("HAI_Reason4") & ", " & TxtField("HAI_Ward4") & ", " &
TxtField("ANSPSU") & ", " & TxtField("EC_Forename") & ", " &
TxtField("EC_Surname") & ", " & TxtField("EC_Relation") & ", " &
TxtField("EC_Add1") & ", " & TxtField("EC_Add2") & ", " &
TxtField("EC_Add3") & ", " & TxtField("EC_Add4") & ", " &
TxtField("EC_AddPC") & ", " & TxtField("EC_ConNum") & ", " &
TxtField("MC_Forename") & ", " & TxtField("MC_Surname") & ", " &
TxtField("MC_Relation") & ", " & TxtField("MC_Add1") & ", " &
TxtField("MC_Add2") & ", " & TxtField("MC_Add3") & ", " &
TxtField("MC_Add4") & ", " & TxtField("MC_AddPC") & ", " &
TxtField("MC_ConNum") & ", " & ChkBox("MC_CAO") & ", " &
TxtField("MC_CACom") & ", " & TxtField("MC_AIType") & ", " &
TxtField("MC_AIOther") & ", " & TxtField("MC_AICom") & ", " &
TxtField("Pat_User") & ", " & ChkBox("CC_AssDur") & ", " &
ChkBox("CC_AssPre") & ", " & TxtField("CC_AssReas") & ", " &
ChkBox("AI_ComSup") & ", " & TxtField("AI_PFL") & ", " & TxtField("AI_Occ")
& ", " & TxtField("AI_OccDet") & ", " & TxtField("AI_PropType") & ", " &
TxtField("AI_PropTen") & ", " & TxtField("AI_CliGroup1") & ", " &
TxtField("AI_CliGroup2") & ", " & TxtField("AI_PropLive") & ", " &
DField("ExDisDate"))
ThisRecordID = InsertRecord("ContactAssesment", arr1, arr2)
Response.Write ThisRecordID
%>
<%
End If
%>
<html>
<head>
<title>Assesment Added</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="VBScript" Runat="Server">
Sub myErrorHandler()
If Err.Number <> 0 Then
'Declare CDONTS related variables.
Dim objCDO
Dim strName
Dim strBody
Dim errTitle
'Declare error page related variables.
Dim pageURL
Dim theDate
Dim mailto
Dim mailfrom
Dim backto
backto = Request.ServerVariables ("HTTP_REFERER")
pageURL = Request.ServerVariables ("SCRIPT_NAME")
theDate = Now
mailto = "yo*@yourURL.com"
mailfrom = "ad***@yourURL.com"
errTitle = "Error reported on page: " & pageURL & " at " & theDate
' Display information to the user informing them that an error has
occurred..
Response.Write "<DIV ALIGN=""center"">" & vbCrLf
Response.Write "<TABLE>" & vbCrLf
Response.Write "<TR BGCOLOR=""Maroon"">" & vbCrLf
Response.Write "<TH COLSPAN=""2"">The following error has
occurred:</TH>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error number:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Number & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error description:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Description & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error source:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Source & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Page:</TH>" & vbCrLf
Response.Write "<TD>" & pageURL & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Date/Time:</TH>" & vbCrLf
Response.Write "<TD>" & Now & "</TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
Response.Write "<P>An e-mail has been sent to the webmaster"
Response.Write " advising of the error.</P>" & vbCrLf
Response.Write "<P>We apologize for any inconvenience</P>" & vbCrLf
Response.Write "<P><a href=""" & backto & """>" & vbCrLf
Response.Write "Click here to return to the previous page</a></P>" &
vbCrLf
Response.Write "</DIV>" & vbCrLf
' Send a fault report to the administration people (*that's you
:)* ).
Set objCDO=server.CreateObject("CDONTS.NewMail")
objCDO.To = mailto
objCDO.From = mailfrom
objCDO.Subject = errTitle
objCDO.Importance = 2
' Build a string for the body of the e-mail, detailing information
' about the error information (which we get by interrogating the
properties
' of the Err object and also display information obtained from the
' ServerVariables this will help with debugging.
strBody = "The following error has occurred:" & vbCrLf
strBody = strBody & "Error number: " & Err.Number & vbCrLf
strBody = strBody & "Error description: " & Err.Description & vbCrLf
strBody = strBody & "Error source: " & Err.Source & vbCrLf
strBody = strBody & "========================" & vbCrLf & vbCrLf
'Display the ServerVariables
strBody = strBody & "Information ServerVariables collection:" &
vbCrLf & vbCrLf
For Each strName In Request.ServerVariables
strBody = strBody & strName & " - " &
Request.ServerVariables(strName) & vbCrLf
Next
objCDO.Body = strBody
objCDO.Send 'Send the e-mail
Set objCDO = Nothing 'Tidy up
' End Processing.
Response.End
End If
End Sub
</Script>
</head>
<body>
Record added for <%= Request.Form("PasID") %>
</body>
</html> 7  50883 
It'll be very hard to determine what's wrong with all that code and html in
here. Can you narrow it down to the line with the error? And on that line,
response.write the SQL string that is being executed?
This is one of the reasons that, if at all possible, you should code your
ASP code yourself instead of having Dreamweaver do it. The code is
difficult on the eyes, and it's much harder to get community support with
such code. But I'm sure we can at least try... But please try to trim away
all that irrelvant HTML and just focus on the area with the error.
Ray at work
"Tim Gaunt" <Tg****@csi.com> wrote in message
news:br**********@titan.btinternet.com... Hi,
I'm hoping that someone will be able to help me with this one, I'm
developing an application which basically inserts a load of data into the
database ready for validation at a later date, I wrote an INSERT statement
that works fine however today I decided that as part of the application
upgrade it should be return the record ID so I wrote the following which I
admit is a little messy at places but it works. However when I added all
the fields it's now returning the error "Arguments are of the wrong type, are
out of acceptable range, or are in conflict with one another". I've been
going through it for a while now any can't work out why its happening, has
anyone got any ideas?
Cheers.
Tim
---------------
CODE
---------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/delayed.asp" -->
<!--#include file="adovbs.inc" -->
<%
<trim>
Unfortunately, like Ray, I'm not going to wade through all of your
Dreamweaver code. I did read your first paragraph and figured that since
you knew how to do an INSERT you could probably use @@IDENTITY
An example....
sSQL="INSERT INTO tblName (columnNameA, columnNameB) VALUES(valueA, valueB)"
anActiveADOConnection.Execute sSQL
Set RS=anActiveADOConnection.Execute("SELECT @@IDENTITY")
aVariableToRepresentTheNewRowsIdentity=RS.Fields(0 )
Response.Write "The New Identity is......" &
aVariableToRepresentTheNewRowsIdentity
I know there's an FAQ at http://www.aspfaq.com but I can't seem to get there
right now.
"Tim Gaunt" <Tg****@csi.com> wrote in message
news:br**********@titan.btinternet.com... Hi,
I'm hoping that someone will be able to help me with this one, I'm
developing an application which basically inserts a load of data into the
database ready for validation at a later date, I wrote an INSERT statement
that works fine however today I decided that as part of the application
upgrade it should be return the record ID so I wrote the following which I
admit is a little messy at places but it works. However when I added all
the fields it's now returning the error "Arguments are of the wrong type, are
out of acceptable range, or are in conflict with one another". I've been
going through it for a while now any can't work out why its happening, has
anyone got any ideas?
Cheers.
Tim
---------------
CODE
---------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/delayed.asp" -->
<!--#include file="adovbs.inc" -->
<%
If Request.Form("SaveForm")<>"" Then
%>
<%
Function InsertRecord(tblName, ArrFlds, ArrValues)
' This function recieves a tablename and an Array of
' Fieldnames and an Array of field Values.
' It returns the ID of the record that has been inserted.
' Turn error handling on.
On Error Resume Next
dim cnnInsert, rstInsert, thisID
Dim MM_delayed_STRING
MM_delayed_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\Delay\DELAYED.mdb"
' Object instantiation.
Set cnnInsert = Server.CreateObject ("ADODB.Connection")
Set rstInsert = Server.CreateObject ("ADODB.Recordset")
' Open our connection to the database.
cnnInsert.open MM_delayed_STRING
' Open our Table (using the tblName that we passed in).
rstInsert.Open tblName, cnnInsert, adOpenKeyset, adLockOptimistic,
adCmdTable
' Call the AddNew method.
rstInsert.AddNew ArrFlds, ArrValues
' Commit the changes.
rstInsert.Update
' Retrieve the ID.
thisID = rstInsert("CFNID")
If Err.number = 0 Then
' If the Err.number = 0 then close everything and
' return the ID.
rstInsert.Close
Set rstInsert = Nothing
cnnInsert.close
Set cnnInsert = Nothing
InsertRecord = thisID
Else
' Woops, an error occurred, close everything and display an
' error message to the user.
rstInsert.Close
Set rstInsert = Nothing
cnnInsert.close
Set cnnInsert = Nothing
' Call our re-useable Error handler function.
call myErrorHandler()
End If
End Function
Function DField(dtf)
If (Request.Form(dtf)<>"") Then
DField = "#" & Request.Form(dtf) & "#"
Else
DField = "Null"
End If
End Function
Function ChkBox(chk)
If (Request.Form(chk)<>"") Then
ChkBox = Request.Form(chk)
Else
ChkBox = "Null"
End If
End Function
Function TxtField(txt)
TxtField = Replace(Request.Form(txt),"'","''")
End Function
%>
<%
Dim ThisRecordID, arr1, arr2
arr1 = Array("PasID", "Pref_Name", "Pat_Alerts", "Home_Access",
"Home_Hazards", "GP_Email", "Ref_Name", "Ref_Team", "Ref_Add1",
"Ref_Add2", "Ref_Add3", "Ref_Add4", "Ref_AddPC", "Ref_Tel", "Ref_Email", "Ref_Type",
"Ref_Sign", "Ref_SignDate", "RRA", "PACIO", "ONEI", "AOFC", "HAI_Att12m",
"HAI_Date1", "HAI_Reason1", "HAI_Ward1", "HAI_Date2", "HAI_Reason2",
"HAI_Ward2", "HAI_Date3", "HAI_Reason3", "HAI_Ward3", "HAI_Date4",
"HAI_Reason4", "HAI_Ward4", "ANSPSU", "EC_Forename", "EC_Surname",
"EC_Relation", "EC_Add1", "EC_Add2", "EC_Add3", "EC_Add4", "EC_AddPC",
"EC_ConNum", "MC_Forename", "MC_Surname", "MC_Relation", "MC_Add1",
"MC_Add2", "MC_Add3", "MC_Add4", "MC_AddPC", "MC_ConNum", "MC_CAO",
"MC_CACom", "MC_AIType", "MC_AIOther", "MC_AICom", "Pat_User",
"CC_AssDur", "CC_AssPre", "CC_AssReas", "AI_ComSup", "AI_PFL", "AI_Occ", "AI_OccDet",
"AI_PropType", "AI_PropTen", "AI_CliGroup1", "AI_CliGroup2",
"AI_PropLive", "ExDisDate")
arr2 = Array(TxtField("PasID") & ", " & TxtField("Pref_Name") & ", " &
TxtField("Pat_Alerts") & ", " & TxtField("Home_Access") & ", " &
TxtField("Home_Hazards") & ", " & TxtField("GP_Email") & ", " &
TxtField("Ref_Name") & ", " & TxtField("Ref_Team") & ", " &
TxtField("Ref_Add1") & ", " & TxtField("Ref_Add2") & ", " &
TxtField("Ref_Add3") & ", " & TxtField("Ref_Add4") & ", " &
TxtField("Ref_AddPC") & ", " & TxtField("Ref_Tel") & ", " &
TxtField("Ref_Email") & ", " & TxtField("Ref_Type") & ", " &
TxtField("Ref_Sign") & ", " & DField("Ref_SignDate") & ", " &
TxtField("RRA") & ", " & TxtField("PACIO") & ", " & TxtField("ONEI") & ",
" & TxtField("AOFC") & ", " & TxtField("HAI_Att12m") & ", " &
DField("HAI_Date1") & ", " & TxtField("HAI_Reason1") & ", " &
TxtField("HAI_Ward1") & ", " & DField("HAI_Date2") & ", " &
TxtField("HAI_Reason2") & ", " & TxtField("HAI_Ward2") & ", " &
DField("HAI_Date3") & ", " & TxtField("HAI_Reason3") & ", " &
TxtField("HAI_Ward3") & ", " & DField("HAI_Date4") & ", " &
TxtField("HAI_Reason4") & ", " & TxtField("HAI_Ward4") & ", " &
TxtField("ANSPSU") & ", " & TxtField("EC_Forename") & ", " &
TxtField("EC_Surname") & ", " & TxtField("EC_Relation") & ", " &
TxtField("EC_Add1") & ", " & TxtField("EC_Add2") & ", " &
TxtField("EC_Add3") & ", " & TxtField("EC_Add4") & ", " &
TxtField("EC_AddPC") & ", " & TxtField("EC_ConNum") & ", " &
TxtField("MC_Forename") & ", " & TxtField("MC_Surname") & ", " &
TxtField("MC_Relation") & ", " & TxtField("MC_Add1") & ", " &
TxtField("MC_Add2") & ", " & TxtField("MC_Add3") & ", " &
TxtField("MC_Add4") & ", " & TxtField("MC_AddPC") & ", " &
TxtField("MC_ConNum") & ", " & ChkBox("MC_CAO") & ", " &
TxtField("MC_CACom") & ", " & TxtField("MC_AIType") & ", " &
TxtField("MC_AIOther") & ", " & TxtField("MC_AICom") & ", " &
TxtField("Pat_User") & ", " & ChkBox("CC_AssDur") & ", " &
ChkBox("CC_AssPre") & ", " & TxtField("CC_AssReas") & ", " &
ChkBox("AI_ComSup") & ", " & TxtField("AI_PFL") & ", " &
TxtField("AI_Occ") & ", " & TxtField("AI_OccDet") & ", " & TxtField("AI_PropType") & ", " &
TxtField("AI_PropTen") & ", " & TxtField("AI_CliGroup1") & ", " &
TxtField("AI_CliGroup2") & ", " & TxtField("AI_PropLive") & ", " &
DField("ExDisDate"))
ThisRecordID = InsertRecord("ContactAssesment", arr1, arr2)
Response.Write ThisRecordID
%>
<%
End If
%>
<html>
<head>
<title>Assesment Added</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<script language="VBScript" Runat="Server">
Sub myErrorHandler()
If Err.Number <> 0 Then
'Declare CDONTS related variables.
Dim objCDO
Dim strName
Dim strBody
Dim errTitle
'Declare error page related variables.
Dim pageURL
Dim theDate
Dim mailto
Dim mailfrom
Dim backto
backto = Request.ServerVariables ("HTTP_REFERER")
pageURL = Request.ServerVariables ("SCRIPT_NAME")
theDate = Now
mailto = "yo*@yourURL.com"
mailfrom = "ad***@yourURL.com"
errTitle = "Error reported on page: " & pageURL & " at " & theDate
' Display information to the user informing them that an error has
occurred..
Response.Write "<DIV ALIGN=""center"">" & vbCrLf
Response.Write "<TABLE>" & vbCrLf
Response.Write "<TR BGCOLOR=""Maroon"">" & vbCrLf
Response.Write "<TH COLSPAN=""2"">The following error has
occurred:</TH>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error number:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Number & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error description:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Description & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Error source:</TH>" & vbCrLf
Response.Write "<TD>" & Err.Source & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Page:</TH>" & vbCrLf
Response.Write "<TD>" & pageURL & "</TD>" & vbCrLf
Response.Write "</TR><TR>" & vbCrLf
Response.Write "<TH>Date/Time:</TH>" & vbCrLf
Response.Write "<TD>" & Now & "</TD>" & vbCrLf
Response.Write "</TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
Response.Write "<P>An e-mail has been sent to the webmaster"
Response.Write " advising of the error.</P>" & vbCrLf
Response.Write "<P>We apologize for any inconvenience</P>" &
vbCrLf Response.Write "<P><a href=""" & backto & """>" & vbCrLf
Response.Write "Click here to return to the previous page</a></P>"
& vbCrLf
Response.Write "</DIV>" & vbCrLf
' Send a fault report to the administration people (*that's you
:)* ).
Set objCDO=server.CreateObject("CDONTS.NewMail")
objCDO.To = mailto
objCDO.From = mailfrom
objCDO.Subject = errTitle
objCDO.Importance = 2
' Build a string for the body of the e-mail, detailing information
' about the error information (which we get by interrogating the
properties
' of the Err object and also display information obtained from the
' ServerVariables this will help with debugging.
strBody = "The following error has occurred:" & vbCrLf
strBody = strBody & "Error number: " & Err.Number & vbCrLf
strBody = strBody & "Error description: " & Err.Description &
vbCrLf strBody = strBody & "Error source: " & Err.Source & vbCrLf
strBody = strBody & "========================" & vbCrLf & vbCrLf
'Display the ServerVariables
strBody = strBody & "Information ServerVariables collection:" &
vbCrLf & vbCrLf
For Each strName In Request.ServerVariables
strBody = strBody & strName & " - " &
Request.ServerVariables(strName) & vbCrLf
Next
objCDO.Body = strBody
objCDO.Send 'Send the e-mail
Set objCDO = Nothing 'Tidy up
' End Processing.
Response.End
End If
End Sub
</Script>
</head>
<body>
Record added for <%= Request.Form("PasID") %>
</body>
</html>
"Tom B" <sh*****@NOSPAMhotmail.com> wrote in message
news:ef**************@TK2MSFTNGP11.phx.gbl...
I know there's an FAQ at http://www.aspfaq.com but I can't seem to get
there right now.
It's been down for quite some time now. When it comes back up, everyone
should be cool and donate money to the site and maybe the owner can hire
someone to kill the person who caused teh outage.
Ray at home
That wasn't dreamweaver generated code it is completley hardcoded using
Notepad, the only thing Dreamweaver there is the MM_delayed_STRING which is
from the previous design, the problem occurs on the AddNew line which uses
the exact same statement as the INSERT statement (which works fine). The
values from the form are passed through a function which assigns the correct
deliminators ('' for text, ## for date nothing for Bolean). Hope that
explains it a little further. I cannot use @@IDENTITY because this is sadly
developed in an Access dB.
Any other ideas?
------------
Line that error occurs at:
' Call the AddNew method.
rstInsert.AddNew ArrFlds, ArrValues
Values inserted:
ArrFlds= Array("PasID", "Pref_Name", "Pat_Alerts", "Home_Access",
"Home_Hazards", "GP_Email", "Ref_Name", "Ref_Team", "Ref_Add1", "Ref_Add2",
"Ref_Add3", "Ref_Add4", "Ref_AddPC", "Ref_Tel", "Ref_Email", "Ref_Type",
"Ref_Sign", "Ref_SignDate", "RRA", "PACIO", "ONEI", "AOFC", "HAI_Att12m",
"HAI_Date1", "HAI_Reason1", "HAI_Ward1", "HAI_Date2", "HAI_Reason2",
"HAI_Ward2", "HAI_Date3", "HAI_Reason3", "HAI_Ward3", "HAI_Date4",
"HAI_Reason4", "HAI_Ward4", "ANSPSU", "EC_Forename", "EC_Surname",
"EC_Relation", "EC_Add1", "EC_Add2", "EC_Add3", "EC_Add4", "EC_AddPC",
"EC_ConNum", "MC_Forename", "MC_Surname", "MC_Relation", "MC_Add1",
"MC_Add2", "MC_Add3", "MC_Add4", "MC_AddPC", "MC_ConNum", "MC_CAO",
"MC_CACom", "MC_AIType", "MC_AIOther", "MC_AICom", "Pat_User", "CC_AssDur",
"CC_AssPre", "CC_AssReas", "AI_ComSup", "AI_PFL", "AI_Occ", "AI_OccDet",
"AI_PropType", "AI_PropTen", "AI_CliGroup1", "AI_CliGroup2", "AI_PropLive",
"ExDisDate")
ArrValues= Array(TxtField("PasID") & ", " & TxtField("Pref_Name") & ", " &
TxtField("Pat_Alerts") & ", " & TxtField("Home_Access") & ", " &
TxtField("Home_Hazards") & ", " & TxtField("GP_Email") & ", " &
TxtField("Ref_Name") & ", " & TxtField("Ref_Team") & ", " &
TxtField("Ref_Add1") & ", " & TxtField("Ref_Add2") & ", " &
TxtField("Ref_Add3") & ", " & TxtField("Ref_Add4") & ", " &
TxtField("Ref_AddPC") & ", " & TxtField("Ref_Tel") & ", " &
TxtField("Ref_Email") & ", " & TxtField("Ref_Type") & ", " &
TxtField("Ref_Sign") & ", " & DField("Ref_SignDate") & ", " &
TxtField("RRA") & ", " & TxtField("PACIO") & ", " & TxtField("ONEI") & ", "
& TxtField("AOFC") & ", " & TxtField("HAI_Att12m") & ", " &
DField("HAI_Date1") & ", " & TxtField("HAI_Reason1") & ", " &
TxtField("HAI_Ward1") & ", " & DField("HAI_Date2") & ", " &
TxtField("HAI_Reason2") & ", " & TxtField("HAI_Ward2") & ", " &
DField("HAI_Date3") & ", " & TxtField("HAI_Reason3") & ", " &
TxtField("HAI_Ward3") & ", " & DField("HAI_Date4") & ", " &
TxtField("HAI_Reason4") & ", " & TxtField("HAI_Ward4") & ", " &
TxtField("ANSPSU") & ", " & TxtField("EC_Forename") & ", " &
TxtField("EC_Surname") & ", " & TxtField("EC_Relation") & ", " &
TxtField("EC_Add1") & ", " & TxtField("EC_Add2") & ", " &
TxtField("EC_Add3") & ", " & TxtField("EC_Add4") & ", " &
TxtField("EC_AddPC") & ", " & TxtField("EC_ConNum") & ", " &
TxtField("MC_Forename") & ", " & TxtField("MC_Surname") & ", " &
TxtField("MC_Relation") & ", " & TxtField("MC_Add1") & ", " &
TxtField("MC_Add2") & ", " & TxtField("MC_Add3") & ", " &
TxtField("MC_Add4") & ", " & TxtField("MC_AddPC") & ", " &
TxtField("MC_ConNum") & ", " & ChkBox("MC_CAO") & ", " &
TxtField("MC_CACom") & ", " & TxtField("MC_AIType") & ", " &
TxtField("MC_AIOther") & ", " & TxtField("MC_AICom") & ", " &
TxtField("Pat_User") & ", " & ChkBox("CC_AssDur") & ", " &
ChkBox("CC_AssPre") & ", " & TxtField("CC_AssReas") & ", " &
ChkBox("AI_ComSup") & ", " & TxtField("AI_PFL") & ", " & TxtField("AI_Occ")
& ", " & TxtField("AI_OccDet") & ", " & TxtField("AI_PropType") & ", " &
TxtField("AI_PropTen") & ", " & TxtField("AI_CliGroup1") & ", " &
TxtField("AI_CliGroup2") & ", " & TxtField("AI_PropLive") & ", " &
DField("ExDisDate"))
"Ray at <%=sLocation%>" <myFirstNameATlane34dotKOMM> wrote in message
news:eC**************@TK2MSFTNGP12.phx.gbl...
"Tom B" <sh*****@NOSPAMhotmail.com> wrote in message
news:ef**************@TK2MSFTNGP11.phx.gbl...
I know there's an FAQ at http://www.aspfaq.com but I can't seem to get
there right now.
It's been down for quite some time now. When it comes back up, everyone
should be cool and donate money to the site and maybe the owner can hire
someone to kill the person who caused teh outage.
Ray at home
Tim Gaunt wrote: That wasn't dreamweaver generated code it is completley hardcoded
using Notepad, the only thing Dreamweaver there is the
MM_delayed_STRING which is from the previous design, the problem
occurs on the AddNew line which uses the exact same statement as the
INSERT statement (which works fine). The values from the form are
passed through a function which assigns the correct deliminators (''
for text, ## for date nothing for Bolean). Hope that explains it a
little further. I cannot use @@IDENTITY because this is sadly
developed in an Access dB.
Any other ideas? http://support.microsoft.com/?kbid=232144
Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.
What you'll need to do is Response.Write your final SQL string prior to
executing it. Like
response.write TheVariableWithYourFinalSQLQuery
Response.End
What does that give you? Does it work if you paste it into Access's query
window thing?
Ray at work
"Tim Gaunt" <Tg****@csi.com> wrote in message
news:br**********@sparta.btinternet.com... That wasn't dreamweaver generated code it is completley hardcoded using
Notepad, the only thing Dreamweaver there is the MM_delayed_STRING which
is from the previous design, the problem occurs on the AddNew line which uses
the exact same statement as the INSERT statement (which works fine). The
values from the form are passed through a function which assigns the
correct deliminators ('' for text, ## for date nothing for Bolean). Hope that
explains it a little further. I cannot use @@IDENTITY because this is
sadly developed in an Access dB.
Any other ideas?
------------
Line that error occurs at:
' Call the AddNew method.
rstInsert.AddNew ArrFlds, ArrValues
Values inserted:
ArrFlds= Array("PasID", "Pref_Name", "Pat_Alerts", "Home_Access",
"Home_Hazards", "GP_Email", "Ref_Name", "Ref_Team", "Ref_Add1",
"Ref_Add2", "Ref_Add3", "Ref_Add4", "Ref_AddPC", "Ref_Tel", "Ref_Email", "Ref_Type",
"Ref_Sign", "Ref_SignDate", "RRA", "PACIO", "ONEI", "AOFC", "HAI_Att12m",
"HAI_Date1", "HAI_Reason1", "HAI_Ward1", "HAI_Date2", "HAI_Reason2",
"HAI_Ward2", "HAI_Date3", "HAI_Reason3", "HAI_Ward3", "HAI_Date4",
"HAI_Reason4", "HAI_Ward4", "ANSPSU", "EC_Forename", "EC_Surname",
"EC_Relation", "EC_Add1", "EC_Add2", "EC_Add3", "EC_Add4", "EC_AddPC",
"EC_ConNum", "MC_Forename", "MC_Surname", "MC_Relation", "MC_Add1",
"MC_Add2", "MC_Add3", "MC_Add4", "MC_AddPC", "MC_ConNum", "MC_CAO",
"MC_CACom", "MC_AIType", "MC_AIOther", "MC_AICom", "Pat_User",
"CC_AssDur", "CC_AssPre", "CC_AssReas", "AI_ComSup", "AI_PFL", "AI_Occ", "AI_OccDet",
"AI_PropType", "AI_PropTen", "AI_CliGroup1", "AI_CliGroup2",
"AI_PropLive", "ExDisDate")
ArrValues= Array(TxtField("PasID") & ", " & TxtField("Pref_Name") & ", " &
TxtField("Pat_Alerts") & ", " & TxtField("Home_Access") & ", " &
TxtField("Home_Hazards") & ", " & TxtField("GP_Email") & ", " &
TxtField("Ref_Name") & ", " & TxtField("Ref_Team") & ", " &
TxtField("Ref_Add1") & ", " & TxtField("Ref_Add2") & ", " &
TxtField("Ref_Add3") & ", " & TxtField("Ref_Add4") & ", " &
TxtField("Ref_AddPC") & ", " & TxtField("Ref_Tel") & ", " &
TxtField("Ref_Email") & ", " & TxtField("Ref_Type") & ", " &
TxtField("Ref_Sign") & ", " & DField("Ref_SignDate") & ", " &
TxtField("RRA") & ", " & TxtField("PACIO") & ", " & TxtField("ONEI") & ",
" & TxtField("AOFC") & ", " & TxtField("HAI_Att12m") & ", " &
DField("HAI_Date1") & ", " & TxtField("HAI_Reason1") & ", " &
TxtField("HAI_Ward1") & ", " & DField("HAI_Date2") & ", " &
TxtField("HAI_Reason2") & ", " & TxtField("HAI_Ward2") & ", " &
DField("HAI_Date3") & ", " & TxtField("HAI_Reason3") & ", " &
TxtField("HAI_Ward3") & ", " & DField("HAI_Date4") & ", " &
TxtField("HAI_Reason4") & ", " & TxtField("HAI_Ward4") & ", " &
TxtField("ANSPSU") & ", " & TxtField("EC_Forename") & ", " &
TxtField("EC_Surname") & ", " & TxtField("EC_Relation") & ", " &
TxtField("EC_Add1") & ", " & TxtField("EC_Add2") & ", " &
TxtField("EC_Add3") & ", " & TxtField("EC_Add4") & ", " &
TxtField("EC_AddPC") & ", " & TxtField("EC_ConNum") & ", " &
TxtField("MC_Forename") & ", " & TxtField("MC_Surname") & ", " &
TxtField("MC_Relation") & ", " & TxtField("MC_Add1") & ", " &
TxtField("MC_Add2") & ", " & TxtField("MC_Add3") & ", " &
TxtField("MC_Add4") & ", " & TxtField("MC_AddPC") & ", " &
TxtField("MC_ConNum") & ", " & ChkBox("MC_CAO") & ", " &
TxtField("MC_CACom") & ", " & TxtField("MC_AIType") & ", " &
TxtField("MC_AIOther") & ", " & TxtField("MC_AICom") & ", " &
TxtField("Pat_User") & ", " & ChkBox("CC_AssDur") & ", " &
ChkBox("CC_AssPre") & ", " & TxtField("CC_AssReas") & ", " &
ChkBox("AI_ComSup") & ", " & TxtField("AI_PFL") & ", " &
TxtField("AI_Occ") & ", " & TxtField("AI_OccDet") & ", " & TxtField("AI_PropType") & ", " &
TxtField("AI_PropTen") & ", " & TxtField("AI_CliGroup1") & ", " &
TxtField("AI_CliGroup2") & ", " & TxtField("AI_PropLive") & ", " &
DField("ExDisDate"))
"Ray at <%=sLocation%>" <myFirstNameATlane34dotKOMM> wrote in message
news:eC**************@TK2MSFTNGP12.phx.gbl...
"Tom B" <sh*****@NOSPAMhotmail.com> wrote in message
news:ef**************@TK2MSFTNGP11.phx.gbl...
I know there's an FAQ at http://www.aspfaq.com but I can't seem to get
there right now.
It's been down for quite some time now. When it comes back up, everyone
should be cool and donate money to the site and maybe the owner can hire
someone to kill the person who caused teh outage.
Ray at home
Thats great, many thanks, I've managed to get it working now! All I wanted
to do was retreive the record ID when a user inserted a record!
Thanks again to you all.
Tim
"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message
news:Op**************@TK2MSFTNGP10.phx.gbl... Tim Gaunt wrote: That wasn't dreamweaver generated code it is completley hardcoded
using Notepad, the only thing Dreamweaver there is the
MM_delayed_STRING which is from the previous design, the problem
occurs on the AddNew line which uses the exact same statement as the
INSERT statement (which works fine). The values from the form are
passed through a function which assigns the correct deliminators (''
for text, ## for date nothing for Bolean). Hope that explains it a
little further. I cannot use @@IDENTITY because this is sadly
developed in an Access dB.
Any other ideas?
http://support.microsoft.com/?kbid=232144
Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Erica |
last post by:
I'm getting the following error:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.
/shop/results.asp, line...
|
by: Jack |
last post by:
Hi,
I am trying to add a new record to a main page. This page is the processing
page to a form. However, I am getting the following error message:
Error Type:
ADODB.Recordset (0x800A0BB9)...
|
by: the other john |
last post by:
Here's my project info first...
DB: Access 2000
server: IIS 2003
Here is the error I'm getting...
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable...
|
by: Edward |
last post by:
I have a wrapper function for executing a SQL Server Stored Procedure
that returns no records:
Public Function modRunStoredProc(vstrSPName As String, ParamArray
vvarParams() As Variant) As...
|
by: jaYPee |
last post by:
rst.Open "SwitchboardItems", cn, adOpenStatic, adLockOptimistic
rst.Find "=" & Me! & " AND
=" & intBtn
I have this code in my MS Access XP and it gives me an error
"Arguments are of the wrong...
|
by: iam247 |
last post by:
Hi
I have a web page which receives information from a form (using
request.form) and also attempts to look at an Access query to read in
recoeds to a variable named rsGroup.
When I have the...
|
by: anantraoneel |
last post by:
Hi Friend
My project is a Library System.
In Project is Book Master form. If I've select Book Type from Type Master and Publication from Publication Master then this error has come:
"Arguments...
|
by: thecubemonkey |
last post by:
Hi everyone,
I'm getting the following error:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are
in conflict with one another....
|
by: gforgourav |
last post by:
'Arguments are of wrong type, are out of acceptable range, or are in conflict with one another'
this error occurs ...
i m using vb.net 2005 with sql server 2000 backend
i had a project in vb 6.0...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Sept 2023 starting at 18:00 UK time (6PM UTC+1) and finishing at about 19:15 (7.15PM)
The start time is equivalent to 19:00 (7PM) in Central...
|
by: Mushico |
last post by:
How to calculate date of retirement from date of birth
|
by: DJRhino |
last post by:
Was curious if anyone else was having this same issue or not....
I was just Up/Down graded to windows 11 and now my access combo boxes are not acting right. With win 10 I could start typing...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 4 Oct 2023 starting at 18:00 UK time (6PM UTC+1) and finishing at about 19:15 (7.15PM)
The start time is equivalent to 19:00 (7PM) in Central...
|
by: tracyyun |
last post by:
Hello everyone,
I have a question and would like some advice on network connectivity. I have one computer connected to my router via WiFi, but I have two other computers that I want to be able to...
|
by: giovanniandrean |
last post by:
The energy model is structured as follows and uses excel sheets to give input data:
1-Utility.py contains all the functions needed to calculate the variables and other minor things (mentions...
|
by: NeoPa |
last post by:
Introduction
For this article I'll be using a very simple database which has Form (clsForm) & Report (clsReport) classes that simply handle making the calling Form invisible until the Form, or all...
|
by: Teri B |
last post by:
Hi, I have created a sub-form Roles. In my course form the user selects the roles assigned to the course.
0ne-to-many. One course many roles.
Then I created a report based on the Course form and...
|
by: nia12 |
last post by:
Hi there,
I am very new to Access so apologies if any of this is obvious/not clear.
I am creating a data collection tool for health care employees to complete. It consists of a number of...
| | |
