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!

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

I want my Question Set (and accompa

Status
Not open for further replies.

GWPhoenix

IS-IT--Management
Jun 26, 2001
32
US
I want my Question Set (and accompanying textboxes) to display when the user enters "Edit". This stuff was showing up before; it does not do so now and I have no idea what I did. I have a clue it is somewhere within the SQL statement, but not sure where.

Code:
ReportDataID=trim(Request.QueryString("ReportDataID"))
			
strSQL="SELECT tblReports.*, tblReportData.* " & _
	"FROM tblReports, tblReportData " & _
	"WHERE tblReports.ReportID=tblReportData.ReportID " & _
	"AND tblReportData.ReportDataID=" & ReportDataID			

	rst.Open strSQL, cxn
			
	if trim(Request.QueryString(&quot;exist&quot;))<>&quot;&quot; then
	Response.Write &quot;<font color='red'><b>You selected an existing report, which has been loaded below</b></font>&quot;
	end if
			
	'HEADER -- THIS STUFF PRINTS FINE
	Response.Write &quot;<h2>&quot; & Request(&quot;UserName&quot;) & &quot; - &quot; & rst(&quot;Title&quot;) & &quot;</h2>&quot;
	Response.Write &quot;<h3>Applicant:  &quot; & rst(&quot;Applicant&quot;) & &quot;</h3>&quot;
			
rst.Close 

strSQL=&quot;SELECT tblQuestions.QuestionID, tblQuestions.Question, &quot; & _
		&quot;tblQuestionData.QuestionDataID, tblQuestions.DataTypeID, &quot; & _
		&quot;tblQuestionData.Value &quot; & _
	&quot;FROM tblQuestions, tblQuestionData &quot; & _
	&quot;WHERE tblQuestionData.QuestionID = tblQuestions.QuestionID AND &quot; & _
		&quot;tblQuestions.active = 1 &quot; & _
		&quot;AND tblQuestionData.ReportDataID = &quot; & ReportDataID &_
	&quot;ORDER BY tblQuestions.QuestionID&quot;

	rst.Open strSQL, cxn

'from here it does not print
	Response.Write &quot;<form action='Reporting.asp?op=Update' method='post'>&quot;
	Response.Write &quot;<input type='hidden' name='reportDataID' value='&quot; & ReportDataID & &quot;'>&quot;

	Response.Write &quot;<table>&quot;
		do until rst.EOF
		Response.Write &quot;<tr>&quot;
		Response.Write &quot;<th align='left'>&quot; & rst(&quot;Question&quot;) & &quot;</th>&quot;
		Response.Write &quot;<td align='left'>&quot;
	QID=trim(rst(&quot;QuestionID&quot;))
		Response.Write &quot;<input type='hidden' name='QuestionDataID' value='&quot; & rst(&quot;QuestionDataID&quot;) & &quot;'>&quot;
		Response.Write &quot;<input type='hidden' name='QuestionID' value='&quot; & QID & &quot;'>&quot;
	Value=FormatData(rst(&quot;Value&quot;),rst(&quot;DataTypeID&quot;))	'from formatfunctions.asp					
	Response.Write &quot;<input type='text' name='QuestionData&quot; & QID & &quot;' value='&quot; & Value & &quot;'>&quot;
	Response.Write &quot;</td>&quot;
	Response.Write &quot;</tr>&quot;
	rst.MoveNext
		loop
Response.Write &quot;<tr><td colspan='2' align='center'><input type='submit' name='sent' value='Update Report'></td></tr>&quot;
	Response.Write &quot;</table>&quot;
	Response.Write &quot;</form>&quot;
	rst.Close
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top