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!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Netscape -document contains no data problem

Status
Not open for further replies.
jes919

jes919

Programmer
Nov 20, 2000
1
US
I'm trying to write to an Oracle database using a form. When I click on the submit button in IE, everything works great. However, when I try to submit the same form using Netscape, I recieve a document contains no data error message. I've tried changing my cache options, etc... and have no idea what else to try. Here is my code. Any help would be appreciated!!!

<% @LANGUAGE=&quot;VBSCRIPT&quot; %>

<!--#include Virtual=/includes/adovbs.inc -->
<!--#include Virtual=/includes/connect_asys.inc -->

<html>

<head>

<title>Advisor Feedback Form</title>
<!--#include Virtual=/includes/topnavbarASYS.inc -->
</head>

<script language=&quot;JavaScript&quot;>
<!--

function FeedbackResponse()
{
if (document.advisor_response.feedback.value != &quot;&quot;)
{
document.advisor_response.submit();
}
else
{
document.advisor_response.feedback.focus();
return;
}
}
//-->

</SCRIPT>
<style>
a{text-decoration:none}
</style>
<body onLoad=&quot;navBarInit()&quot;>
<br>

<%
dim sql, rs
dim sqlNextKey, sqlInsert, nextKey, sqlResponse
%>

<TABLE WIDTH=615 CELLPADDING=0 CELLSPACING=0>
<tr>
<td width=15> </td>
<td width=700 align=center>
<img src=/images/headers/headadvisorfeedback.gif width=600 height=100 border=0 alt=&quot;Advisor Feedback Form&quot;>
</td>
</tr>
</table>

<table width=715 cellpadding=2 cellspacing=2>
<tr>
<td width=15 valign=top> </td>
<td width=600 align=center valign=top>
<br>

<%
If Request.Form(&quot;update&quot;) = &quot;True&quot; then

sqlResponse = &quot;select * from dss.web_adv_feedback &quot; & _
&quot; where feedback_key = &quot; & Request.Form(&quot;feedback&quot;)
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rs.Open sqlResponse, dbConnectASYS, 3, 3

if rs.EOF then
response.redirect(&quot;/advisorfeedbackprob.html&quot;)
else
rs.Fields(&quot;reply&quot;) = Request.Form(&quot;reply&quot;)
rs.Fields(&quot;responded_by&quot;) = Request.Form(&quot;respcontact&quot;)

rs.update
rs.close
set rs=nothing

response.redirect(&quot;/test/advisor_response.asp&quot;)
'response.write(&quot;after updating form&quot;)

response.write(&quot;</td></tr></table>&quot;)
end if

Else

Select Case Request.Form(&quot;requestType&quot;)

Case &quot;response&quot;:

sqlResponse = &quot;select * from dss.web_adv_feedback &quot; & _
&quot; where feedback_key = &quot; & Request.Form(&quot;feedback&quot;)
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
rs.Open sqlResponse, dbConnectASYS, 3, 3

if rs.EOF then
response.write(&quot;Invalid Feedback Key. Please use BACK error and try again!!!!&quot;)
else
response.write(&quot;<form name=advisor_response method=post action=/test/advisor_response.asp>&quot;)

response.write(&quot;<tr><td colspan=2 align=center><br><font size=5><b>Update Advisor Feedback</b></font><br><br></td></tr>&quot;)

response.write(&quot;<tr><td width=40%25 align=right>Feedback Key:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><input type=text name=feedback size=5 value=&quot; & chr(34) & rs.Fields(&quot;feedback_key&quot;) &chr(34) & &quot;></td></tr>&quot;)

response.write(&quot;<tr><td width=40%25 align=right>Advisor Name:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><input type=text name=subcontact size=40 value=&quot; & chr(34) & rs.Fields(&quot;submitted_by&quot;) & chr(34) & &quot;></td></tr>&quot;)

response.write(&quot;<tr><td width=40%25 align=right>Category:</td>&quot;)

Select Case rs.Fields(&quot;category_num&quot;)

Case 1:
response.write(&quot;<td width=60%25 align=left><input type = text name=category size=20 value=&quot; & chr(34) & &quot;Enrollment &quot; &chr(34) & &quot;></TEXTAREA></td></tr>&quot;)

Case 2:
response.write(&quot;<td width=60%25 align=left><input type = text name=category size=20 value=&quot; & chr(34) & &quot;Executive Desk &quot; &chr(34) & &quot;></TEXTAREA></td></tr>&quot;)

Case 3:
response.write(&quot;<td width=60%25 align=left><input type = text name=category size=20 value=&quot; & chr(34) & &quot;Quality &quot; &chr(34) & &quot;></TEXTAREA></td></tr>&quot;)

Case 4:
response.write(&quot;<td width=60%25 align=left><input type = text name=category size=20 value=&quot; & chr(34) & &quot;Subscriber &quot; &chr(34) & &quot;></TEXTAREA></td></tr>&quot;)

Case 5:
response.write(&quot;<td width=60%25 align=left><input type = text name=category size=20 value=&quot; & chr(34) & &quot;All &quot; &chr(34) & &quot;></TEXTAREA></td></tr>&quot;)

End Select

response.write(&quot;<tr><td width=40%25 align=right>Question/Comment:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><TEXTAREA ROWS=5 COLS=50 name=comment>&quot; & rs.Fields(&quot;ques_com&quot;) & &quot;</TEXTAREA></td></tr>&quot;)

response.write(&quot;<tr><td width=40%25 align=right>Response:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><TEXTAREA ROWS=5 COLS=50 name=reply>&quot; & rs.Fields(&quot;reply&quot;) & &quot;</TEXTAREA></td></tr>&quot;)

response.write(&quot;<tr><td width=40%25 align=right>Responded by:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><input type=text name=respcontact size=40 value=&quot; & chr(34) & rs.Fields(&quot;responded_by&quot;) &chr(34) & &quot;></td></tr>&quot;)

response.write(&quot;<tr><td colspan=2 align=center><input type=submit value=Submit>  &quot;)
response.write(&quot;<input type=reset value=Reset></td></tr></table>&quot;)

response.write(&quot;<input type=hidden name=update value=True>&quot;)
End If

Case Else:
response.write(&quot;<form name=advisor_response action=advisor_response.asp method=POST>&quot;)
response.write(&quot;<tr><TD Width=40%25 ALIGN=center><font face=Verdana,Sans-Serif size=2>Enter Feedback Key:</td>&quot;)
response.write(&quot;<td width=60%25 align=left><input type=text name=feedback size=5></td></tr><br><br>&quot;)
response.write(&quot;<tr><td width=colspan=2 align=right><input type=button name=btnfeedback value=&quot; & chr(34) & &quot;Retrieve Feedback&quot; & chr(34) & &quot; onClick=&quot; & chr(34) & &quot;FeedbackResponse()&quot; & chr(34) & &quot;></p></td></tr></table>&quot;)

response.write(&quot;<input type=hidden name=requesttype value=&quot; & chr(34) & &quot;response&quot; & chr(34) & &quot;>&quot;)
response.write(&quot;<input type=hidden name=update value=False>&quot;)

End Select

Response.write(&quot;</table></form>&quot;)

end if
%>
<!--#include Virtual=/includes/footer2.inc -->
 
Sort by date Sort by votes
hai,

I hope you have not used the form tag in between the text and submit and reset buttons.IE will work with out form tag but you need to specify for NS.

Have a good time with programming.
Bye,
Abraham
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
Code does not run in Microsoft Edge - it does in Google Chrome
Replies
3
Views
572
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
Parse a database field that is comma delimited and input the results into another table
Replies
0
Views
309
penguinspeaks
penguinspeaks
Swi
  • Locked
  • Question
Best/Quickest Grid to display data
Replies
1
Views
307
Swi
Swi
Swi
  • Locked
  • Question
JQUERY AJAX POST and how to receive data via Classic ASP
Replies
0
Views
454
Swi
Swi
leifoet
  • Locked
  • Question
How to check if a datatable is empty ?
Replies
0
Views
338
leifoet
leifoet

Part and Inventory Search

Sponsor

Back
Top