<body bgcolor =silver>
<%
Dim SI, qry, qry1, qry2, qry3, qry4, qry5, qry6, qry7, qry8
SI = Request.Form("srch")
qry = ("SELECT * FROM [EDIT_8-23-2012] WHERE [VBAK-VBELN] = '" & SI & "'")
qry1 = ("SELECT * FROM [EDIT_11-3-2012] WHERE [VBAK-VBELN] = '" & SI & "'")
qry2 = ("SELECT * FROM [EDIT_11-8-2012] WHERE [VBAK-VBELN] = '" & SI & "'")
qry3 = ("UPDATE [EDIT_8-23-2012] SET [FI] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
qry4 = ("UPDATE [EDIT_11-3-2012] SET [FI] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
qry5 = ("UPDATE [EDIT_11-8-2012] SET [FI] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
qry6 = ("UPDATE [EDIT_8-23-2012] SET [SO] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
qry7 = ("UPDATE [EDIT_11-3-2012] SET [SO] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
qry8 = ("UPDATE [EDIT_11-8-2012] SET [SO] = 'NO' WHERE [VBAK-VBELN] = '" & SI & "'")
If SI = "H012531" Or SI = "R012726" Or SI = "F012664" Or SI = "F012358" Or SI = "L012785" Or SI = "H012859" Or SI = "H012679" Or SI = "V012670" Or SI = "R012726" Then
RS = conn.Execute(qry)
%>
<table id="table1" border="2" width="135%" bordercolor=BLUE>
<form name="form1" onsubmit="return checkCheckboxes(abc)">
<%
For Each f In RS.Fields
Response.Write("<td><b>" & f.Name & "</b></td>")
Next
Do While Not RS.EOF
Response.Write("<tr>")
For Each f In RS.fields
If f.name = "FI" Then
Response.Write("<td><br><input type=checkbox Name=CB1 value=CB1 runat=server onclick=conn.execute(qry3)>" & f.value & "</br></td>")
ElseIf f.name = "SO" Then
Response.Write("<td><br><input type=checkbox name=CB1 value=b>" & f.value & "</br></td>")
Else
Response.Write("<td><br>" & f.value & "</br></td>")
End If
Next
RS.MoveNext()
Loop
This post has been edited by Dormilich: 10 January 2013 - 11:22 PM
Reason for edit:: fixed code tags

New Topic/Question
Reply


MultiQuote



|