tekwade_ram
-
Joined: 01 Aug 2011
Posts: 1
Location: india
|
 Posted: Mon Aug 01, 2011 8:50 am Post subject: Not able to Open .asp pages with Web Server |
 |
|
I have found following error after type URL. Coding is as following
http://localhost:8000/mysite/new_page_1.asp
--------------------------------------------------------
<%
' 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
Session.LCID = 1033
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("new_page_1_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(7)
Dim arFormDBFields0(7)
Dim arFormValues0(7)
arFormFields0(0) = "Contact_Organization"
arFormDBFields0(0) = "Contact_Organization"
arFormValues0(0) = Request("Contact_Organization")
arFormFields0(1) = "Contact_Title"
arFormDBFields0(1) = "Contact_Title"
arFormValues0(1) = Request("Contact_Title")
arFormFields0(2) = "Contact_FullName"
arFormDBFields0(2) = "Contact_FullName"
arFormValues0(2) = Request("Contact_FullName")
arFormFields0(3) = "Contact_Email"
arFormDBFields0(3) = "Contact_Email"
arFormValues0(3) = Request("Contact_Email")
arFormFields0(4) = "Contact_FAX"
arFormDBFields0(4) = "Contact_FAX"
arFormValues0(4) = Request("Contact_FAX")
arFormFields0(5) = "Contact_WorkPhone"
arFormDBFields0(5) = "Contact_WorkPhone"
arFormValues0(5) = Request("Contact_WorkPhone")
arFormFields0(6) = "Contact_URL"
arFormDBFields0(6) = "Contact_URL"
arFormValues0(6) = Request("Contact_URL")
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
FP_FormConfirmation "text/html; charset=windows-1252",_
"Form Confirmation",_
"Thank you for submitting the following information:",_
"new_page_1.asp",_
"Return to the form."
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">
<meta http-equiv="Content-Language" content="en-us">
<TITLE>New Page 1</TITLE>
</HEAD>
<BODY>
<H1>New Page 1</H1>
<HR>
<P>
This is an explanation of the purpose of the form ...</P>
<FORM METHOD="POST" ACTION="--WEBBOT-SELF--" onSubmit="">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="new_page_1" S-RecordSource="Results" U-Database-URL="fpdb/new_page_1.mdb" S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER" S-Builtin-DBFields="Remote_computer_name Browser_type Timestamp User_name" S-Form-Fields="Contact_Organization Contact_Title Contact_FullName Contact_Email Contact_FAX Contact_WorkPhone Contact_URL" S-Form-DBFields="Contact_Organization Contact_Title Contact_FullName Contact_Email Contact_FAX Contact_WorkPhone Contact_URL" U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" i-checksum="40548" endspan -->
<P>
Please provide the following contact information:</P>
<BLOCKQUOTE>
<TABLE>
<TR>
<TD ALIGN="right">
<EM>Name</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_FullName" SIZE=35>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>Title</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_Title" SIZE=35>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>Organization</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_Organization" SIZE=35>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>Work Phone</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_WorkPhone" SIZE=25 MAXLENGTH=25>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>FAX</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_FAX" SIZE=25 MAXLENGTH=25>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>E-mail</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_Email" SIZE=25>
</TD>
</TR>
<TR>
<TD ALIGN="right">
<EM>URL</EM></TD>
<TD>
<INPUT TYPE=TEXT NAME="Contact_URL" SIZE=25 MAXLENGTH=25>
</TD>
</TR>
</TABLE>
</BLOCKQUOTE>
<INPUT TYPE=SUBMIT VALUE="Submit Form">
<INPUT TYPE=RESET VALUE="Reset Form">
</FORM>
<HR>
<H5>
Author information goes here.<br>Copyright © 2003 [OrganizationName]. All rights reserved. <BR>
Revised:
<!--WEBBOT BOT=TimeStamp
S-Type="EDITED"
S-Format="%m/%d/%y"
--></H5>
</BODY>
</HTML>
---------------------------------------------
Kindly help.... |
|
