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 bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Updating/Inserting Records 1

Status
Not open for further replies.
GWPhoenix

GWPhoenix

IS-IT--Management
Jun 26, 2001
32
US
I'm trying to figure out what does not happen here. I insert some data in "AddNew", the text values but not the radio button information are then returned in a page labelled "Edit" after passing through "Insert".

When I fill in the radio button info on "Edit", the data then shows up in "View" correctly. The problem is that I have to enter the radio button data more than once and should not have to.

How can I get the correctly checked Radio Button value to show up in Edit?

The relevant parts of the code follow:

ADDNEW (1)

Response.Write &quot;<form action='Reporting.asp?op=Insert&ReportID=&quot; & ReportID & &quot;' method='post'>&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;<input type='hidden' name='QuestionID' value='&quot; & rst(&quot;QuestionID&quot;) & &quot;'>&quot;

If rst(&quot;DataTypeID&quot;) = 4 then
Response.Write &quot;<td>&quot;
Response.Write &quot;<INPUT type='radio' name= 'Answer&quot; & trim(rst(&quot;QuestionID&quot;)) & &quot;CHECKED Value = 'Yes'>&quot; & &quot; Yes   &quot;
Response.Write &quot;<INPUT type='radio' name= 'Answer&quot; & trim(rst(&quot;QuestionID&quot;)) & &quot;Value = 'No'>&quot; & &quot; No&quot;
Response.Write &quot;</td>&quot;
Else
Response.Write &quot;<td>&quot; & &quot;<input type='text' name='Answer&quot; & trim(rst(&quot;QuestionID&quot;)) & &quot;'>&quot; & &quot;</td>&quot;
End if
Response.Write &quot;</tr>&quot;
rst.MoveNext
loop
Response.Write &quot;<tr><td colspan='2'><input type='submit' name='sent' value='Submit'></td></tr>&quot;
Response.Write &quot;</table>&quot;
Response.Write &quot;</form>&quot;

INSERT (2)

Questions=split(Request.Form(&quot;QuestionID&quot;),&quot;,&quot;)

strSQL=&quot;SELECT * FROM tblReportData WHERE 1=0&quot;
rst.open strSQL, cxn, 1, 3 'adOpenKeyset, adLockOptimistic
rst.AddNew
rst(&quot;UserID&quot;)=Request.Cookies(&quot;UserID&quot;)
rst(&quot;DateCreated&quot;)=Now()
rst(&quot;ReportID&quot;)=ReportID
rst.Update

ReportDataID=rst(&quot;ReportDataID&quot;).Value
rst.Close

for i=lbound(Questions) to ubound(Questions)

Value=trim(Request.Form(&quot;Answer&quot; & trim(Questions(i))))
Value=replace(Value,&quot;$&quot;, &quot;&quot;)
Value=replace(Value,&quot;,&quot;,&quot;&quot;)

strSQL=&quot;INSERT INTO tblQuestionData(QuestionID, ReportDataID, Value)&quot;
strSQL=strSQL & &quot;VALUES(&quot; & trim(Questions(i)) & &quot;, &quot; & ReportDataID & &quot;, &quot;
strSQL=strSQL & &quot;'&quot; & Value & &quot;')&quot;

cxn.Execute strSQL

next
Response.Redirect(&quot;Reporting.asp?op=Edit&ReportDataID=&quot; & ReportDataID)

EDIT (3)

ReportDataID=trim(Request.QueryString(&quot;ReportDataID&quot;))

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

rst.Open strSQL, cxn

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

If rst(&quot;DataTypeID&quot;) = 4 then
Response.Write &quot;<INPUT type='radio' name='QuestionData&quot; & QID & &quot;' value='Yes'>&quot; & &quot; Yes  &quot;
Response.Write &quot;<INPUT type='radio' name='QuestionData&quot; & QID & &quot;' value='No'>&quot; & &quot; No  &quot;

Else
Response.Write &quot;<input type='text' name='QuestionData&quot; & QID & &quot;' value='&quot; & Value & &quot;'>&quot;
End if
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

UPDATE (4)

ReportDataID=trim(Request.Form(&quot;ReportDataID&quot;))
if trim(Request.Form(&quot;sent&quot;))<>&quot;&quot; then
QuestionDataID=split(Request.Form(&quot;QuestionDataID&quot;),&quot;,&quot;)
QuestionID=split(Request.Form(&quot;QuestionID&quot;),&quot;,&quot;)

for i=lbound(QuestionID) to ubound(QuestionID)
if ubound(QuestionDataID)>=i then
QDID=trim(QuestionDataID(i))
end if

QID=trim(QuestionID(i))
Value=trim(Request.Form(&quot;QuestionData&quot; & QID))
Value=replace(value,&quot;,&quot;,&quot;&quot;)
if QDID<>&quot;&quot; then
strSQL=&quot;UPDATE tblQuestionData SET Value='&quot; & Value & &quot;' &quot; & _
&quot;WHERE QuestionDataID=&quot; & QDID
else 'insert new record

strSQL=&quot;INSERT INTO tblQuestionData(QuestionID, ReportDataID, Value) &quot; & _
&quot;VALUES(&quot; & trim(QuestionID(i)) & &quot;, &quot; & ReportDataID & &quot;, '&quot; & Value & &quot;')&quot;

end if

cxn.Execute strSQL
next

end if
Response.Redirect(&quot;Reporting.asp?op=View&ReportDataID=&quot; & ReportDataID)

VIEW (5)

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


rst.Open strSQL, cxn

do until rst.EOF
Response.Write &quot;<tr>&quot;
Response.Write &quot;<th align='left'>&quot; & rst(&quot;Question&quot;) & &quot;</th>&quot;

Value=FormatData(rst(&quot;Value&quot;),rst(&quot;DataTypeID&quot;))
Response.Write &quot;<td>&quot; & Value & &quot;</td>&quot;
Response.Write &quot;</tr>&quot;

rst.MoveNext
loop
Response.Write &quot;</table>&quot;
rst.Close
 
Sort by date Sort by votes
You need spaces where I've placed <insert space here>:

Response.Write &quot;<INPUT type='radio' name= 'Answer&quot; & trim(rst(&quot;QuestionID&quot;)) & &quot;<insert space here>CHECKED Value = 'Yes'>&quot; & &quot; Yes &quot;
Response.Write &quot;<INPUT type='radio' name= 'Answer&quot; & trim(rst(&quot;QuestionID&quot;)) & &quot;<insert space here>Value = 'No'>&quot; & &quot; No&quot;


Otherwise, CHECKED just becomes part of the input field name, as does Value in the second input field listed here.

- joanne



 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
Problem with updating database reords.
2
Replies
31
Views
980
leifoet
leifoet
leifoet
  • Locked
  • Question
Insert (new) records in a table => question about the inputscreen
2
Replies
20
Views
769
ChrisHirst
ChrisHirst
cr84net2
  • Locked
  • Question
I need to join 5 tables with identical fields then reference the records by table
Replies
4
Views
278
guitarzan
guitarzan
wbodger
  • Locked
  • Question
inserting NULL value 1
Replies
2
Views
152
wbodger
wbodger
evr72
  • Locked
  • Question
Records double up after second log in 1
Replies
12
Views
287
evr72
evr72

Part and Inventory Search

Sponsor

Back
Top