Frontpage data-driven website doesn't give any errors, but doesn't work

chickenwings · 08:44 AM

I created a website using Frontpage that updates form inputs to an Access database. The site is hosted on a non-local IIS server. I used Frontpage 2003 with Access 2003, and the server uses Windows 2000 Server.

I finally got it to work, but there's something that's vexed me immensely.

For a long time, when I pressed submit, I'd get the confirmation page, but the database wouldn't get updated with form inputs.

Why was I getting the confirmation page instead of getting some error? In fact, I have never gotten an error while using this website (even when it wasn't working). Have I suppressed the errors inadvertently?

****EDIT**** There's a whole bunch of "On Error resume next" commands in my Global.asa file. I'm guessing the ignorance of errors has something to do with that. So then my question would be, who put those commands there, what are they good for, and how do I get rid of them?

I'm including most of the scripting part of my global.asa file below

--------------------------------------------------------------------------------------
<%
' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"

fp_conn.Open Application("default_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"

fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"

fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(35)
Dim arFormDBFields0(35)
Dim arFormValues0(35)

arFormFields0(0) = "T2"
arFormDBFields0(0) = "T2"
arFormValues0(0) = Request("T2")
-
-
-
-
-
-
-
arFormDBFields0(34) = "S12"
arFormValues0(34) = Request("S12")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
End If
FP_SaveFieldToDB fp_rs, Now, "Timestamp"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"

fp_rs.Close
fp_conn.Close

Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "thankyou.asp"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>NMU Online Education Survey</title>
</head>

<body>

<form method="POST" action="default.asp" onSubmit="" webbot-action="--WEBBOT-SELF--">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">
-
-
-
-
-

Search
Search in:
Show Threads Show Posts
Advanced Search

Tag Cloud
acer black screen boot computer connection crash css dell display driver drivers email error ethernet excel explorer firefox firefox 3 game hard drive internet internet explorer itunes laptop lcd linux malware monitor network networking nvidia outlook outlook 2003 outlook express partition password printer problem router slow software sound trojan usb video virus vista windows windows xp wireless

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)