sentinel
Posts: 568
Joined: 5/4/2005
From: Chicago, Illinois
Status: offline
 |
Weird Code On PAge - 10/23/2007 8:57:34
When I create a form in Frontpage and save it. The page appends the following symbols by itself. 
I have no idea why or how this is occuring but it makes the form fail.
Here is the page code.
<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
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("Database1_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "hctraining", 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(6)
Dim arFormDBFields0(6)
Dim arFormValues0(6)
arFormFields0(0) = "class"
arFormDBFields0(0) = "class"
arFormValues0(0) = Request("class")
arFormFields0(1) = "Trainer"
arFormDBFields0(1) = "trainer"
arFormValues0(1) = Request("Trainer")
arFormFields0(2) = "UserName"
arFormDBFields0(2) = "username"
arFormValues0(2) = Request("UserName")
arFormFields0(3) = "dateentered"
arFormDBFields0(3) = "dateentered"
arFormValues0(3) = Request("dateentered")
arFormFields0(4) = "trainees"
arFormDBFields0(4) = "trainees"
arFormValues0(4) = Request("trainees")
arFormFields0(5) = "Location"
arFormDBFields0(5) = "location"
arFormValues0(5) = Request("Location")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"
fp_rs.Close
fp_conn.Close
Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Response.Redirect "project_projects.asp"
End If
End If
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<style type="text/css">
.style1 {
text-align: center;
}
</style>
</head>
<%If instr(Session("Accesslevel"),"HCDOA") > 0 then%>
<!--#include virtual="header_auth.asp"-->
<body>
<p align="center"><b><font face="Verdana" size="1">Daily Training Entry</font></b></p>
<p align="center"><b><font face="Verdana" size="1">
<a href="project_training.asp">Projects</a> | <a href="project_projects.asp">
Training</a> | <a href="cancellations.asp">Cancel Menu</a></font></b></p>
<p align="center"> </p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="Database1" S-RecordSource="hctraining" U-Confirmation-Url="project_projects.asp" S-Form-Fields="class Trainer UserName dateentered trainees Location" S-Form-DBFields="class trainer username dateentered trainees location" startspan U-ASP-Include-Url="_fpclass/fpdbform.inc" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan i-checksum="40548" -->
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"> <input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">
<div align="center">
<center>
<table border="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" width="60%">
<tr>
<td width="31%" align="left" valign="top"><b>
<font face="Verdana" size="1">CLASS NAME</font></b></td>
<td width="69%" align="left" valign="top">
<font face="Verdana" size="1">
<input type="text" name="class" size="36"></font></td>
</tr>
<tr>
<td width="31%" align="left" valign="top"><b>
<font face="Verdana" size="1">LOCATION</font></b></td>
<td width="69%" align="left" valign="top">
<select size="1" name="Location">
<option>Danville</option>
<option>Deerfield</option>
<option>Mount Prospect</option>
<option>Northbrook</option>
</select></td>
</tr>
<tr>
<td width="31%" align="left" valign="top"><b>
<font face="Verdana" size="1">TRAINER</font></b></td>
<td width="69%" align="left" valign="top">
<font face="Verdana" size="1">
<input type="text" name="Trainer" size="36"></font></td>
</tr>
<tr>
<td width="31%" align="left" valign="top"><b>
<font face="Verdana" size="1">TRAINEES</font></b></td>
<td width="69%" align="left" valign="top">
<font face="Verdana" size="1">
<textarea rows="11" name="trainees" cols="33"></textarea></font></td>
</tr>
</table>
</center>
</div>
<p align="center"><font size="1" face="Verdana"><input type="submit" value="Submit" name="B1"></font></p>
<font size="1" face="Verdana">
<input type="hidden" name="UserName" value="<%=Session(appName&"Username")%>">
</font>
<input type="hidden" name="dateentered" value="<%=date()%>">
</form>
<div class="style1">
Current Training For <%=date()%><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<script type="text/javascript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</script>
<% end if %>
<%
fp_sQry="SELECT * FROM hctraining where dateentered = curdate()"
fp_sDefault=""
fp_sNoRecords="No records returned."
fp_sDataConn="Database1"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&id=19&class=200&location=200&trainer=200&trainees=201&dateentered=133&username=200&canceltraining=200&cancelreason=201&"
fp_iDisplayCols=9
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
</div>
<p><b>class:</b> <%=FP_FieldVal(fp_rs,"class")%></p>
<p><b>location:</b> <%=FP_FieldVal(fp_rs,"location")%></p>
<p><b>trainer:</b> <%=FP_FieldVal(fp_rs,"trainer")%></p>
<p><b>trainees:</b> <%=FP_FieldVal(fp_rs,"trainees")%></p>
<p><b>date entered:</b> <%=FP_FieldVal(fp_rs,"dateentered")%></p>
<p><b>username:</b> <%=FP_FieldVal(fp_rs,"username")%></p>
<p><b>cancel training:</b> <%=FP_FieldVal(fp_rs,"canceltraining")%></p>
<p><b>cancel reason:</b> <%=FP_FieldVal(fp_rs,"cancelreason")%></p>
<hr>
<!--#include file="_fpclass/fpdbrgn2.inc"-->
<p align="center"> </p>
<p align="center"><font face="Verdana" size="1"> <font color="#FF0000"></body><!--#include virtual="footer_auth.asp"--><%else%>
<b>UNAUTHORIZED USAGE </b></font> </font> </p>
<%End IF%>
_____________________________
No matter where you go, there you are.
|
Printable Version 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread