cseink
asked on
fdf forms asp
How do you handle form values in fdf if they come over not filled out
e.g
Timeof = objFDF.FDFGetValue("Timeof
if left blank ( it's not required) I get an error of "An invalid field name was used in a query string "
e.g
Timeof = objFDF.FDFGetValue("Timeof
if left blank ( it's not required) I get an error of "An invalid field name was used in a query string "
seminar = objFDF.FDFGetValue("Seminar")
FirstName = objFDF.FDFGetValue("FirstName")
MI = objFDF.FDFGetValue("MI")
LASTNAME = objFDF.FDFGetValue("LastName")
PHONENUM = objFDF.FDFGetValue("PhoneNum")
ZIP = objFDF.FDFGetValue("ZIP")
DOBM = objFDF.FDFGetValue("DOBM")
DOBDay = objFDF.FDFGetValue("DOBDay")
DobYear = objFDF.FDFGetValue("DOBYear")
Addr1 = objFDF.FDFGetValue("Addr1")
AgentName = "TEST"
TimeSaved = now()
DateReserved = objFDF.FDFGetValue("DateReserved")
Location = objFDF.FDFGetValue("Location")
Timeof = objFDF.FDFGetValue("Timeof")
Classof = objFDF.FDFGetValue("CLASS")
Needs1 = objFDF.FDFGetValue("Needs1")
Needs2 = objFDF.FDFGetValue("Needs2")
Needs3 = objFDF.FDFGetValue("Needs3")
Needs4 = objFDF.FDFGetValue("Needs4")
Needs5 = objFDF.FDFGetValue("Needs5")
ActionTaken=objFDF.FDFGetValue("ActionTaken")
' Additional FDF information
strFormFileName = objFDF.FDFGetFile
strVersion = FDFAcX.FDFGetVersion
' SET UP YOUR CONNECTION OBJECT HERE
'**************************************************************
DIM CONN,sql7
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../databases/Customers.mdb")
sql7="Insert into class_list (SEMINAR,FIRSTNAME,MI,LASTNAME,PHONENUM,ZIP,DOBM,DOBDAY,DOBYEAR,ADDR1, " &_
" AGENTNAME,TIMESAVED,DATERESERVED,TIMEOF,LOCATION,CLASS,NEEDS1,NEEDS2,NEEDS3,NEEDS4,NEEDS5,ACTIONTAKEN) " &_
"values ('" & seminar &"','" & fIRSTNAME &"','" & MI &"','" & LASTNAME &"','" & PHONENUM &"','" & ZIP &"','" & DOBM &"', " &_
"'" & DOBDAY &"','" & DOBYEAR &"','" & ADDR1 &"','" & AGENTNAME &"','" & TIMESaved &"','" & DATERESERVED &"','" & TIMEOF &"' "&_
",'" & LOCATION &"','" & CLASSOF &"','" & NEEDS1 &"','" & NEEDS2 &"','" & NEEDS3 &"','" & NEEDS4 &"','" & NEEDS5 &"','" & ACTIONTAKEN &"')"
'sql7="Insert into class_list values('" & seminar &"','" & fIRSTNAME &"','" & MI &"','" & LASTNAME &"','" & PHONENUM &"','" & ZIP &"','" & DOBM &"','" & DOBDAY &"','" & DOBYEAR &"','" & ADDR1 &"','" & AGENTNAME &"','" & TIMESTAMP &"','" & DATERESERVED &"','" & TIMEOF &"','" & LOCATION &"','" & CLASSOF &"','" & NEEDS1 &"','" & NEEDS2 &"','" & NEEDS3 &"','" & NEEDS4 &"','" & NEEDS5 &"','" & ACTIONTAKEN &"')"
'RESPONSE.WRITE(SQL7)
'RESPONSE.End()
conn.execute(sql7)
conn.close
set conn= nothing
Last Comment
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Is strField set to a valid field name when the application crashes?
ASKER
Yes they are all valid.
strField = objFdf.FDFNextFieldName(""
Do While strField <> "" And Err.Number = 0
response.Write(strField)
response.Write("
")
strField = objFdf.FDFNextFieldName(st
loop
response.End()
strField = objFdf.FDFNextFieldName(""
Do While strField <> "" And Err.Number = 0
response.Write(strField)
response.Write("
")
strField = objFdf.FDFNextFieldName(st
loop
response.End()
ActionTaken
Addr1
CLASS
DOBDay
DOBM
DOBYear
DateReserved
FirstName
LastName
Location
MI
Needs1
Needs2
Needs3
Needs4
Needs5
PhoneNum
Seminar
Submit
Timeof
ZIP
Is it crashing the first time you try to lookup a field, or somewhere in the middle, or the last one?
ASKER
I'll have to dive in a figure this out. Thanks for the FDFNextFieldName info.
ASP
Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.
82K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
ASKER
strValue = objFdf.FDFGetValue(strFiel
strField = objFdf.FDFNextFieldName(""
Do While strField <> ""
i = i + 1
strValue = objFdf.FDFGetValue(strFiel
If Err.Number = 0 Then
Err.Clear
End If
strField = objFdf.FDFNextFieldName(st
loop