@ my wits end

K

karin

Hi Everyone -


I am passwording files on a web and my initial code looks like this:


<%@ Language="VBScript" %>
<% Option Explicit %>
<%
If Session("username") <> "karin" Then
Response.Redirect("../login_db_nav.asp")
%>
<html>
<head>
<title>karin</title>
</head>
<body>

<p>
This is Karin's page!
</p>

</body>
</html>


This works perfectly.
I then add a form to the page, and the code changes to:


<%@ Language="VBScript" %>
<% Option Explicit %>
<%
If Session("username") <> "karin" Then
Response.Redirect("../login_db_nav.asp")
%>
<html>
<head>
<title>Karin</title>
</head>
<body>

<p>
This is Karin's page!
</p>


<form>

<p><input type="text" name="Centre" size="20"></p>
<p><input type="text" name="Code" size="20"></p>

</form>

</body>
</html>

Still no problem: The page loads, showing the two fields.

However, as soon as I add Insert Database Results instructions, I get
the following error:


Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'FP_CharSet'
/karin.asp, line 10

The code looks like this:

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
If Session("username") <> "karin" Then
Response.Redirect("../login_db_nav.asp")
%>
<html>
<head>
<title>Karin</title>
</head>
<body>

<p>
This is Karin's page!
</p>


<table width="100%" border="1">
<thead>
<tr>
<td><b>Centre</b></td>
<td><b>Code</b></td>
</tr>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart" startspan
s-columnnames="Centre,Code,LearnerNo,Firstname,Surname,ID,Tel
No,RegDD,RegMM,RegYYYY,Type,Batch,UserPC,User_name,Browser_type,Timestamp"

s-columntypes="202,202,3,202,202,202,202,202,202,3,202,3,202,202,202,135"
s-dataconnection="SAICJ" b-tableformat="TRUE" b-menuformat="FALSE"
s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE"
b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="TRUE"
i-ListFormat="0" b-makeform="TRUE" s-recordsource="TRegister"
s-displaycolumns="Centre,Code" s-criteria s-order
s-sql="SELECT * FROM TRegister" b-procedure="FALSE" clientside
SuggestedExt="asp" s-DefaultFields s-NoRecordsFound="No records
returned."
i-MaxRecords="256" i-GroupSize="0" BOTID="0"
u-dblib="_fpclass/fpdblib.inc"
u-dbrgn1="_fpclass/fpdbrgn1.inc" u-dbrgn2="_fpclass/fpdbrgn2.inc"
tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64
bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot;
width=&quot;100%&quot;&gt;&lt;font
color=&quot;#000000&quot;&gt;Database Results regions will not preview
unless this page is fetched from a Web server with a web browser. The
following table row will repeat once for every record returned by the
query.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot;
align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font
color=&quot;#000000&quot;&gt;This is the start of a Database Results
region. The page must be fetched from a web server with a web browser
to display correctly; the current web is stored on your local disk or
network.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" --><!--#include
file="_fpclass/fpdblib.inc"-->
<%
fp_sQry="SELECT * FROM TRegister"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=2 align=left width=""100%"">No records
returned.</td></tr>"
fp_sDataConn="SAICJ"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=2
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" I-CheckSum="20713" endspan -->
<tr>
<td><!--webbot bot="DatabaseResultColumn" startspan
s-columnnames="Centre,Code,LearnerNo,Firstname,Surname,ID,Tel
No,RegDD,RegMM,RegYYYY,Type,Batch,UserPC,User_name,Browser_type,Timestamp"
s-column="Centre" b-tableformat="TRUE" b-hasHTML="FALSE"
clientside
local_preview="&lt;font
size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Centre&lt;font
size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
preview="&lt;font
size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Centre&lt;font
size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
--><%=FP_FieldVal(fp_rs,"Centre")%><!--webbot
bot="DatabaseResultColumn" I-CheckSum="14123" endspan -->
</td>
<td><!--webbot bot="DatabaseResultColumn" startspan
s-columnnames="Centre,Code,LearnerNo,Firstname,Surname,ID,Tel
No,RegDD,RegMM,RegYYYY,Type,Batch,UserPC,User_name,Browser_type,Timestamp"
s-column="Code" b-tableformat="TRUE" b-hasHTML="FALSE"
clientside
local_preview="&lt;font
size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Code&lt;font
size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
preview="&lt;font
size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Code&lt;font
size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;"
--><%=FP_FieldVal(fp_rs,"Code")%><!--webbot
bot="DatabaseResultColumn" I-CheckSum="4979" endspan -->
</td>
</tr>
<!--webbot bot="DatabaseRegionEnd" startspan b-tableformat="TRUE"
b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc"
i-groupsize="0"
clientside tag="TBODY"
local_preview="&lt;tr&gt;&lt;td colspan=64
bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot;
width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;This is
the end of a Database Results
region.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot;
align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font
color=&quot;#000000&quot;&gt;This is the end of a Database Results
region.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" --><!--#include
file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" I-CheckSum="62730" endspan -->
</tbody>
</table>

</body>
</html>


What is it that I am doing wrong?

This is new territory to me - I appreciate all suggestions and help.


Thank you!


Karin
 
K

karin

Never mind - I sorted it out!!

Removed:

<%@ Language="VBScript" %>
<% Option Explicit %>

And now all is fine.


K.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top