urgent - broken asp code with forms

BettyJo50 · Jun 25, 2002

Hi! Can someone please help me? I have some code that was working and I ended up breaking it and now cannot fix it. I don't know if this is allow, but I have included my entire code for a page. It is long, but if anyone can spot my problem, I sure would appreciate it. The live address for this page is

https://asp.qtso.com/stso/sugg/suggestion.asp

This does work at the moment since the page has not been updated yet. But if it gets updated, it will not work.
If anyone can help me, I would GREATLY appreciate it!!!

THANKS!!!

Here is the code:

<!--#include file="tools.asp">
<%
OpenDB con, "../../databases/QIESsugg"
%>

<html><head>
<link rel="stylesheet" href="../qtso.css" type="text/css">
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"

http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">

<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="validation.js">

<script language="JavaScript">
</script>
<MM:EndLock>
<title>QIES Technical Support Office - Suggestions</title>

<link rel=stylesheet type="text/css" href="../qtso.css">
<script language="JavaScript">

</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="101%" cellspacing="0" cellpadding="0" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<tr>
<td colspan="2"><img src="../images/header.gif" width="780" height="75" alt="Logo"></td>
</tr>
<tr>
<td rowspan="2" class="nav" valign="top" width="15%">

</td>
<td class="navtop" height="10">

</td>
</tr>
<tr>
<td class="cell" valign="top">
<div align="left"><br>
<% if request.querystring("do&quot="enter" then %>
</div>
<h3 align="left"> <b>Enter a New Suggestion</b></h3>
<form name="form1" method="post" action="sugg_do.asp">
<table border="1" cellspacing="0" cellpadding="5" align="center">
<tr>
<td>
<p>Name:</p>
</td>
<td>
<p>
<input type="text" name="name" size="50">
<input type="hidden" name="r_name" value="Your name is required to submit a new suggestion.">
</p>
</td>
</tr>
<tr>
<td valign="top">
<p>Suggestion:</p>
</td>
<td>
<p>
<textarea name="suggestion" cols="50" rows="10"></textarea>
<input type="hidden" name="r_suggestion" value="Please enter your suggestion.">
</p>
</td>
</tr>
<tr>
<td>
<p>Email Address:</p>
</td>
<td>
<p>
<input type="text" name="email" size="50">
<input type="hidden" name="r_email" value="Please provide your email address so we may contact you if we have questions regarding your suggestion.">
</p>
</td>
</tr>
<tr>
<td>
<p>Telephone:</p>
</td>
<td>
<p>
<input type="text" name="phone">
<input type="hidden" name="r_phone" value="Please enter your phone number so we may contact you if we have questions regarding your suggestion.">
</p>
</td>
</tr>
<tr align="center">
<td colspan="2">
<p>
<input type="hidden" name="date" value="<%=date()%>">
<input type="button" name="Button" value="Submit" onClick="check(form,form.elements.length)">
</p>
</td>
</tr>
</table>
</form>
<% end if %>
<br>
<hr>
<div align="left">
<form name="form2" method="post" action="">
<div align="center">
<% if request.querystring("do&quot <> "enter" then %>
<input type="button" name="Submit3" value="Enter a New Suggestion" onClick="MM_goToURL('parent','suggestion.asp?do=enter');return document.MM_returnValue">
<% end if %>
<input type="button" name="Submit2" value="Enter a QIES Response" onClick="MM_goToURL('parent','qiessupport.asp');return document.MM_returnValue">
</div>
</form>
<br>
<br>
<%
sql="SELECT * from tblSuggestions ORDER BY fldAuto DESC"
set rs=con.execute(sql)
%>
<table width="94%" border="1" cellspacing="0" cellpadding="5">
<% if not rs.eof then %>
<tr>
<th width="7%">Suggestion Number</th>
<th width="17%">Submitted By</th>
<th width="34%">Suggestion</th>
<th width="8%">Date Entered</th>
<th width="34%">QIES Response</th>
</tr>
<% end if
while not rs.eof
%>
<tr valign="top">
<td width="7%">
<p><%=rs("fldAuto&quot%></p>
</td>
<td width="17%">
<p><%=rs("fldName&quot%></p>
</td>
<td width="34%">
<p><%=rs("fldSuggestion&quot%></p>
</td>
<td width="8%">
<p><%=rs("fldDate&quot%></p>
</td>
<td width="34%">
<p><%=rs("fldResponse&quot%> </p>
</td>
</tr>
<% rs.MoveNext
Wend
rs.Close %>
</table>
<img src="../images/clear_dot.gif" width="1" height="500"></div>
</td>
</tr>
</table>
<div align="center">

</div>
<div id="heading" style="position:absolute; left:45%; top:15">
<h1>QIES Suggestions</h1>
</div>
<p>
</body>
</html>

SashiRaveendran · Jun 25, 2002

whats the error and what line is it pointing to?

onpnt · Jun 25, 2002

what part where you changing to effect the performance I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.

BettyJo50 · Jun 25, 2002

The errors I receive are:
1. VBScript runtime error '800a01a8'
2. Object required: 'con'
3. /stso/sugg/suggestion.asp, line 535

I only changed the code within the first 13 lines. I didn't touch anything else. I can't seem to figure out what in the world I changed exactly.

Thanks!!!

zakman · Jun 25, 2002

If you only changed something in the first 13 lines of code,
and the error that you are receiving involves the 'con' object...

One must say that the error lies in that area, perhaps with
the following:

<% OpenDB con, "../../databases/QIESsugg" %>

We are in the dark about what tools.asp does. Perhaps a
server-side include statement was accidently deleted? It
also seems that the con object was never declared prior to
use. Could it be that the OpenDB method is not properly
setting the con object? Does the database exist? Perhaps
somewhere before line 535 the con object was destroyed?

Lots of variables here, but just some things to look into...

Good luck.

BettyJo50 · Jun 25, 2002

Thank you for your help!! I will check into those things.

Thanks again!!!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

urgent - broken asp code with forms

BettyJo50

Technical User

SashiRaveendran

Programmer

onpnt

Programmer

BettyJo50

Technical User

zakman

Programmer

BettyJo50

Technical User

Similar threads

Part and Inventory Search

Sponsor