gojohnnygogogogo
Programmer
hello,
I am passing some text to a page and I am getting a blank page.
(Apart from the view report button and the cy field)
I have done a response.write(SQL) and looks fine. ?:
<SCRIPT language="JAVASCRIPT">
function view_validate(form_ref) {
return true
}
</SCRIPT>
<%
dim cy, DfEE
cy = request.form("cy"
DfEE = request.form("DfEE"
%>
<%
Dim MyConncompany, SQLcompany, RScompany
Set MyConncompany=Server.CreateObject("ADODB.Connection"
MyConncompany.Open "schoolsasp","schoolsasp","schoolsasp"
SQLcompany = "SELECT EstablishmentID, DfEE, EstablishmentName From Establishments WHERE DfEE = '"&DfEE&"' ORDER BY EstablishmentName"
Set RScompany = MyConncompany.Execute(SQLcompany)
%>
<FORM METHOD="POST" name="myForm" ACTION="./NCY3_2.asp" onSubmit="return view_validate(this);">
'CAN SEE THIS BOX
<INPUT TYPE="TEXTBOX" VALUE="<%=cy%>" NAME="cy">
<% While Not RScompany.EOF %>
'THESE ARE BLANK, ?
<INPUT TYPE="TEXTBOX" VALUE="<%=RScompany.Fields("EstablishmentName"
%>" NAME="Name">
<INPUT TYPE="TEXTBOX" VALUE="<%=RScompany.Fields("DfEE"
%>" NAME="DfEE">
<%
RScompany.MoveNext
Wend
%>
<%
RScompany.Close
MyConncompany.Close
Set RScompany = Nothing
Set MyConncompany = Nothing
%>
thank you in advance
I am passing some text to a page and I am getting a blank page.
(Apart from the view report button and the cy field)
I have done a response.write(SQL) and looks fine. ?:
<SCRIPT language="JAVASCRIPT">
function view_validate(form_ref) {
return true
}
</SCRIPT>
<%
dim cy, DfEE
cy = request.form("cy"
DfEE = request.form("DfEE"
%>
<%
Dim MyConncompany, SQLcompany, RScompany
Set MyConncompany=Server.CreateObject("ADODB.Connection"
MyConncompany.Open "schoolsasp","schoolsasp","schoolsasp"
SQLcompany = "SELECT EstablishmentID, DfEE, EstablishmentName From Establishments WHERE DfEE = '"&DfEE&"' ORDER BY EstablishmentName"
Set RScompany = MyConncompany.Execute(SQLcompany)
%>
<FORM METHOD="POST" name="myForm" ACTION="./NCY3_2.asp" onSubmit="return view_validate(this);">
'CAN SEE THIS BOX
<INPUT TYPE="TEXTBOX" VALUE="<%=cy%>" NAME="cy">
<% While Not RScompany.EOF %>
'THESE ARE BLANK, ?
<INPUT TYPE="TEXTBOX" VALUE="<%=RScompany.Fields("EstablishmentName"
<INPUT TYPE="TEXTBOX" VALUE="<%=RScompany.Fields("DfEE"
<%
RScompany.MoveNext
Wend
%>
<%
RScompany.Close
MyConncompany.Close
Set RScompany = Nothing
Set MyConncompany = Nothing
%>
thank you in advance