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

disable a radio button group 1

Status
Not open for further replies.
aspnet98

aspnet98

MIS
May 19, 2005
165
0
0
US
I am using the following code below along with a simple loop to generate radio button groups. They are dynamic with what is in a sql database table in a bit field. They get values of 1 and 0 when select and submited. I have a field called status in the record set that is used to created these radio buttons during the loop. It is either Lock or UnLock. When it Lock I need to disable the radio buttons so people cannot select them but they can see what was select prior to the locking.

Is this possible? Please help...

Radio Button Group:

<td nowrap><input name="txtNum<%= intRecID %>" type="Radio" onClick="RecUpdate('<%= intRecID %>')" value="1" size="20" <%If (CStr((Recordset1.Fields.Item("RecNum").Value)) = CStr("1")) Then Response.Write("checked") : Response.Write("")%>>

<td nowrap><input name="txtNum<%= intRecID %>" type="Radio" id="txtNum<%= intRecID %>" onClick="RecUpdate('<%= intRecID %>')" value="0" size="20" <%If (CStr(Abs((Recordset1.Fields.Item("RecNum").Value))) = CStr("0")) Then Response.Write("checked") : Response.Write("")%>>
 
Sort by date Sort by votes
OK, in order to make this work each pair of radio button will need to have the same value in the name property and unique values in the id property.

They dont have to be ROne# and RZero# but they do have to be unique from anything else on the page.
 
Upvote 0 Downvote
When you open that page in a browser, does the validation behave the way that you would like?
 
Upvote 0 Downvote
what about something like this?
<script Language="JavaScript">
<!--
function radio_button_checker()
{
// set var radio_choice to false
var radio_choice = false;

// Loop from zero to the one minus the number of radio button selections
for (counter = 0; counter < form1.txtNum<%= intRecID %>.length; counter++)
{
// If a radio button has been selected it will return true
// (If not it will return false)
if (form1.txtNum<%= intRecID %>[counter].checked)
radio_choice = true;
}

if (!radio_choice)
{
// If there were no selections made display an alert box
alert("Please select a letter.")
return (false);
}
return (true);
}

-->
</script>
 
Upvote 0 Downvote
OK.. OK.. Yes you CAN do it without having an unique id if you address the radio buttons with the same name as an array.

But the thing that I really want to know is if this function meets your validation requirements? Are we on the same page as far as the way the thing is supposed to behave?
 
Upvote 0 Downvote
It did not work. It was just a snippet. I wanted to show you how I have it layed out hoping you could relay it into what I asked a few posts ago.

Do you understand enough about txtNum<%= intRecID %>?

I have no other ideas so I hope you can help...

Frustrated...
 
Upvote 0 Downvote
Here is more code to help you understand the array:
If Request("Submit") <> "" Then
intRecIDs = Replace(Request("hidRecIDs"), "*", "") ' remove all the asterisks, to create a list like this: 2, 5, 8, 9 etc.
arrRecIDs = Split(intRecIDs, ", ") ' Create an array, wich will contain just the IDs of the records we need to update
For i = 0 to Ubound(arrRecIDs) ' Loop trough the array
strText = Replace(Request("txtText" & arrRecIDs(i)), "'", "''")
strText2 = Request("txtText2")

intNum = Replace(Request("txtNum" & arrRecIDs(i)), "'", "''")
 
Upvote 0 Downvote
What I meant is you could use the array method of analyizng each unique radio button inside your form validation function.

Below is the same plain HTML page as above except the validation function uses an array to address the 1st pair of radio buttons. The [red]red[/red] text shows the code that uses the array where the radio buttons do not have unique values for their id property. The [blue]blue[/blue] text is the method that I posted that uses a unique value of id for every radio button.
Code: 
<html>
 <head>
  <title>
   OnSubmit Example Page
  </title>
  <script>
   function SubmitOK()
   {
    var radio_choice = false;
[red]
    for (counter = 0; counter < Demo.txtNum1.length; counter++)
    {
      if (Demo.txtNum1[counter].checked)
      { radio_choice = true; }
    }
    if (!radio_choice)
    {
       alert("Please chose an answer for Item #1");
       return false;
    }
[/red]     

[blue]
     if (!Demo.ROne2.checked && !Demo.RZero2.checked)
     {
       alert("Please chose an answer for Item #2");
       return false;
     }
     if (!Demo.ROne3.checked && !Demo.RZero3.checked)
     {
       alert("Please chose an answer for Item #3");
       return false;
     }
     if (!Demo.ROne4.checked && !Demo.RZero4.checked)
     {
       alert("Please chose an answer for Item #4");
       return false;
     }
     if (!Demo.ROne5.checked && !Demo.RZero5.checked)
     {
       alert("Please chose an answer for Item #5");
       return false;
     }[/blue]

     // if we made it this far in the code, return true
     return true;
   }
  </script>
 </head>
 <body>
  <form name="Demo" OnSubmit="return SubmitOK();" action="" 

method="POST">
[red]
   Item #1
   <input name="txtNum1" type="Radio" value="1">
   Red
   <input name="txtNum1" type="Radio" value="0">   
   Blue
   <hr>
[/red]
[blue]
   Item #2
   <input name="txtNum2" type="Radio" id="ROne2" value="1">
   Coffee
   <input name="txtNum2" type="Radio" id="RZero2" value="0">
   Tea
   <hr>
   Item #3
   <input name="txtNum3" type="Radio" id="ROne3" value="1">
   Yes
   <input name="txtNum3" type="Radio" id="RZero3" value="0">
   No
   <hr>
   Item #4
   <input name="txtNum4" type="Radio" id="ROne4" value="1">
   Tall
   <input name="txtNum4" type="Radio" id="RZero4" value="0">
   Short
   <hr>
   Item #5
   <input name="txtNum5" type="Radio" id="ROne5" value="1">
   Dog
   <input name="txtNum5" type="Radio" id="RZero5" value="0">
   Cat
[/blue] 
  <br><br>
   <input type="submit">
  </form>
 </body>
</html>

Copy and paste this into a text file and then rename the text file with a .htm file extension and double click it to test the validation function. You will see that both the red and blue methods work in exactly the same way.
 
Upvote 0 Downvote
Lets make sure I am answering the right question.

One last request. I need to make sure the user makes a selection before they click submit. I want to use javascript for this and not check the database. The code above is how I generate the radio buttons dynamically. Can you show me how to add a javascript (on submit validator) for the dynamic code I have that loops and creates radio buttons. I just want to say, "You missed a selection and keep the focus on that blank radio buttton.
Click to expand...

I am trying to answer the part in bold above.

First I wanted to give you a plain version of a validator and make sure the behavior was right. Then, if it behaves properly, I was going to show you how to put it into a loop so... so, if we used the example that I posted so far with 5 pairs, we could be using a loop instead of 5 if statements.

... but I am not sure whether or not the validator function meets your requirments.

If it does, all we need to do is add a little line in the ASP right after you go thru the loop to print the raido buttons that will create a hidden form element that holds the number of rows (ie: radio button pairs) ... then we would modify the validator function to go thru a loop with the top number of times thru the loop being read out of the value of this hidden form element.
 
Upvote 0 Downvote
Yes that is what I would like to do....

but what I keel trying to post is the name of my radio group:
txtNum<%= intRecID %>

yet you keep posting: ROne5 and RZero5

Item #5
<input name="txtNum5" type="Radio" id="ROne5" value="1">
Dog
<input name="txtNum5" type="Radio" id="RZero5" value="0">
Cat

I do not follow that.

Can you please try to add the loop and i will test it?
 
Upvote 0 Downvote
I dod not think the example below will work.

for (counter = 0; counter < Demo.txtNum<%= intRecID %>
.length; counter++)

My radio button group (txtNum<%= intRecID %>) not just txtnum1.

Your example works just like I want it to but txtNum<%= intRecID %> needs to be included somehow?

Please post the looping example. I do not know how to explain this any further...

 
Upvote 0 Downvote
i think Sheco just gave you a sample code that you adapt to your requirements easily...

you should try something like this...
Code: 
for (counter = 0; counter < intRecID; counter++)
if (txtNum1[counter].checked)
      { radio_choice = true; }
    }
    if (!radio_choice)
    {
       alert("Please chose an answer for Item #1");
       return false;
    }

please study and understand the code posted by Sheco so that you can change it to meet your needs...

-DNG
 
Upvote 0 Downvote
Below is the looping example. This example does not use the id property of the radio button but rather uses a loop within a loop. The loop counter variable i controls the loop for each GROUP of radio buttons and the loop counter variable k is used for each of the radio buttons within each group.

The red text at the bottom of the code shows the hidden form element that I mentioned above. Assuming you are using a ForwardOnly recordset then get its value by incrementing a counter variable in your server-side loop that creates your radio buttons. If you are not using ForwardOnly then you could just use the .RecordCount property to get this value.

Code: 
<html>
 <head>
  <title>
   OnSubmit Example Page
  </title>
  <script>
   function SubmitOK()
   {
     var i, k;
     var NumRadioGroups;
     var radio_choice;

     NumRadioGroups = Demo.NumRows.value;

     for (i=1;i<=NumRadioGroups;i++)
     {
       radio_choice = false;

       for (k=0;k<Demo.all("txtNum" + i).length;k++)
       {
         if (Demo.all("txtNum" + i)[k].checked)
         { radio_choice = true; }

       }

       if (!radio_choice)
       {
         alert("Please chose an answer for Item #" + i);
         return false;
       }
     }
    
     // if we made it this far in the code, return true
     return true;
   }
  </script>
 </head>
 <body>
  <form name="Demo" 
        OnSubmit="return SubmitOK();" 
        action="" 
        method="POST">

   Item #1
   <input name="txtNum1" type="Radio" value="1">
   Red
   <input name="txtNum1" type="Radio" value="0">   
   Blue
   <hr>
   Item #2
   <input name="txtNum2" type="Radio" value="1">
   Coffee
   <input name="txtNum2" type="Radio" value="0">
   Tea
   <hr>
   Item #3
   <input name="txtNum3" type="Radio" value="1">
   Yes
   <input name="txtNum3" type="Radio" value="0">
   No
   <hr>
   Item #4
   <input name="txtNum4" type="Radio" value="1">
   Tall
   <input name="txtNum4" type="Radio" value="0">
   Short
   <hr>
   Item #5
   <input name="txtNum5" type="Radio" value="1">
   Dog
   <input name="txtNum5" type="Radio" value="0">
   Cat

  <br><br>
   [red]<input type="hidden" name="NumRows" value="5">[/red]
   <input type="submit">
  </form>
 </body>
</html>
 
Upvote 0 Downvote
DOTNET, I have tried now for a week and just cannot adapt it.

Sheco: where does (txtNum<%= intRecID %>) play into this?
 
Upvote 0 Downvote
Your final ASP will look something like this:

Code: 
<%
  'Code to create your recordset goes here
%>
<html>
 <head>
  <title>
   OnSubmit Example Page
  </title>
  <script>
   function SubmitOK()
   {
     var i, k;
     var NumRadioGroups;
     var radio_choice;

     NumRadioGroups = Demo.NumRows.value;

     for (i=1;i<=NumRadioGroups;i++)
     {
       radio_choice = false;

       for (k=0;k<Demo.all("txtNum" + i).length;k++)
       {
         if (Demo.all("txtNum" + i)[k].checked)
         { radio_choice = true; }

       }

       if (!radio_choice)
       {
         alert("Please chose an answer for Item #" + i);
         return false;
       }
     }
    
     // if we made it this far in the code, return true
     return true;
   }
  </script>
 </head>
 <body>
  <form name="Demo" 
        OnSubmit="return SubmitOK();" 
        action="" 
        method="POST">

<%
Dim iRowCount
Do While Not Recordset1.EOF
  [red]iRowCount = iRowCount + 1[/red]
  sRecID = CStr(Recordset1("RecID"))
  sRecNum = CStr(Recordset1("RecNum"))
%>
<td nowrap>
 <input name="txtNum<%= sRecID %>" 
        type="Radio" 
        value="1" 
        <%If sRecNum = "1" Then Response.Write("checked")%>
        size="20">
 Yes
</td>
<td nowrap>
 <input name="txtNum<%= sRecID %>" 
        type="Radio" 
        value="1" 
        <%If sRecNum = "0" Then Response.Write("checked")%>
        size="20">
 No
</td>
<%
  Recordset1.MoveNext
Loop

Recordset1.Close
Set Recordset1 = Nothing
%>
  <br><br>
   <input type="hidden" name="NumRows" value="[red]<%= iRowCount %>[/red]">
   <input type="submit">
  </form>
 </body>
</html>

 
Upvote 0 Downvote
I am sorry sheco. I realize this might be flagged but I worked at you for a week on this and I am not advanced enough to put it all together.

I am posting my entire page because I just don't get it. My code is slightly different than your scenario.

Can you help me edit this?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/.asp" -->
<!--#include file=".asp" -->
<!-- #include file=".asp" -->

<% 'Open the database.
call OpenDB()
week = Request("week")
if not IsNumeric(week) then
week = CurrentWeek()
else
week = Round(week)
if week < 1 or week > NumberOfWeeks() then
week = CurrentWeek()
end if
end if
%>

<%
call OpenDB()
sql = "QUERY"
set rs = DbConn.Execute(sql)

strWeek = rs.Fields("Week").value




%>



<%

If Request("Submit") <> "" Then
intRecIDs = Replace(Request("hidRecIDs"), "*", "") ' remove all the asterisks, to create a list like this: 2, 5, 8, 9 etc.
arrRecIDs = Split(intRecIDs, ", ") ' Create an array, wich will contain just the IDs of the records we need to update
For i = 0 to Ubound(arrRecIDs) ' Loop trough the array
strText = Replace(Request("txtText" & arrRecIDs(i)), "'", "''")
intNum = Replace(Request("txtNum" & arrRecIDs(i)), "'", "''")

set commUpdate = Server.CreateObject("ADODB.Command")
commUpdate.ActiveConnection = CONNECTION
commUpdate.CommandType = 1
commUpdate.CommandTimeout = 0
commUpdate.Prepared = true
commUpdate.Execute()

Next

call OpenDB()
dim strTieBreakerTotal
strTieBreakerTotal = Request.Form("txtTieBreakerTotal")

if strTieBreakerTotal = "" then

sql = ""QUERY"
""
set rs = DbConn.Execute(sql)
set rs = nothing

else

sql = "QUERY"
set rs = DbConn.Execute(sql)
set rs = nothing

end if

End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "conneciton
Recordset1.Source = ""QUERY"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_XXXX_STRING
MM_editTable = "XXXXnet.Picks"
MM_editColumn = "GameID"
MM_recordId = "" + Request.Form("MM_recordId") + ""
MM_editRedirectUrl = "Picks.asp"
MM_fieldsStr = "txtTieBreakerTotal|value"
MM_columnsStr = "TieBreakerTotal|none,none,NULL"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_XXXX_STRING
Recordset2.Source = ""QUERY"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>


<script language="JavaScript">
<!--
// When the value in a textfield is changed, notice the onChange="RecUpdate('<%= intRecID %>')"
// on each of the textfields, the value of the Record ID associated with that field
// is passed to the RecUpdate function. First the value is surounded with 2 asterisks e.g. *6*
// This is so that *1* can be distinguished from *10*, *11* etc.
function RecUpdate(RecID){
var ThisID = "*" + (RecID) + "*"
if (document.form1.hidRecIDs.value == ""){ // If the hidden field is empty
document.form1.hidRecIDs.value = (ThisID) // Store the value in the hidden field (hidRecIDs) as it is.
}
if (document.form1.hidRecIDs.value != ""){ // If the hidden field isn't empty
var str = document.form1.hidRecIDs.value; // Store the contents of the hidden field in the variable str
var pos = str.indexOf(ThisID); // Search str to see if this RecID is allready in it.
if (pos == -1) { // If the position returned is -1 it isn't allredy in there,
document.form1.hidRecIDs.value = document.form1.hidRecIDs.value + ", " + (ThisID)
} // so add ", " and this ID to what is already in hidRecIDs
} // to create a list like this *2*, *5*, *8* etc.
}
//-->
</script>

<SCRIPT LANGUAGE="JavaScript">
<!-- Original: Nannette Thacker -->
<!-- -->
<!-- Begin
function checkNumeric(objName,minval, maxval,comma,period,hyphen)
{
var numberfield = objName;
if (chkNumeric(objName,minval,maxval,comma,period,hyphen) == false)
{
numberfield.select();
numberfield.focus();
return false;
}
else
{
return true;
}
}

function chkNumeric(objName,minval,maxval,comma,period,hyphen)
{
// only allow 0-9 be entered, plus any values passed
// (can be in any order, and don't have to be comma, period, or hyphen)
// if all numbers allow commas, periods, hyphens or whatever,
// just hard code it here and take out the passed parameters
var checkOK = "0123456789" + comma + period + hyphen;
var checkStr = objName;
var allValid = true;
var decPoints = 0;
var allNum = "";

for (i = 0; i < checkStr.value.length; i++)
{
ch = checkStr.value.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch != ",")
allNum += ch;
}
if (!allValid)
{
alertsay = "Please enter only these values \""
alertsay = alertsay + checkOK + "\" in the \"" + checkStr.name + "\" field."
alert(alertsay);
return (false);
}

// set the minimum and maximum
var chkVal = allNum;
var prsVal = parseInt(allNum);
if (chkVal != "" && !(prsVal >= minval && prsVal <= maxval))
{
alertsay = "Please enter a value greater than or "
alertsay = alertsay + "equal to \"" + minval + "\" and less than or "
alertsay = alertsay + "equal to \"" + maxval + "\" in the \"" + checkStr.name + "\" field."
alert(alertsay);
return (false);
}
}
// End -->
</script>


<br>
<form name="form1" method="POST" action="<%=MM_editAction%>" >
<table width="500" border="1" cellpadding="0" cellspacing="1" bgcolor="#666699">
<tr>
<td><table width="690" border="1" cellpadding="0" cellspacing="1" bgcolor="#EEEFF2">
<tr>
<td width="52"><strong><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">GameID</font></strong></td>
<td width="16"><strong></strong></td>
<td width="219"><strong><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Visitor</font></strong></td>
<td width="15"><strong></strong></td>
<td width="177"><strong><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Home</font></strong></td>
<td width="37"><strong><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Status</font></strong></td>
<td width="126"><strong><font color="#333333" size="1" face="Arial, Helvetica, sans-serif">Matchup</font></strong></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

%>
<% intRecID =(Recordset1.Fields.Item("RecID").Value) ' Store the current RecordID in a variable %>
<tr>
<td nowrap><font size="1" face="Arial, Helvetica, sans-serif"><%= intRecID %><input name="hidRecID<%= intRecID %>" type="hidden" value="<%= intRecID %>" size="5"></font></td>
<td nowrap>&nbsp;</td>

<%

if CStr((Recordset1.Fields.Item("PicksheetStatus").Value)) = "Locked" then
radio_disabled = "disabled="&"true"
else

if CStr((Recordset1.Fields.Item("PStatus").Value)) = "Locked" then
radio_disabled = "disabled="&"true"
else
radio_disabled = ""
end if
end if
%>

<td nowrap><input name="txtNum<%= intRecID %>" type="radio" <%=radio_disabled%> onclick="RecUpdate('<%= intRecID %>')" value="1" <%If (CStr((Recordset1.Fields.Item("RecNum").Value)) = CStr("1")) Then Response.Write("checked") : Response.Write("")%>>


</font> <%=(Recordset1.Fields.Item("VName").Value)%></td>
<td width="15">at</td>
<td nowrap><input name="txtNum<%= intRecID %>" type="Radio" <%=radio_disabled%> id="txtNum<%= intRecID %>" onClick="RecUpdate('<%= intRecID %>')" value="0" size="20" <%If (CStr(Abs((Recordset1.Fields.Item("RecNum").Value))) = CStr("0")) Then Response.Write("checked") : Response.Write("")%>>
<%=(Recordset1.Fields.Item("HName").Value)%> </td>

<%
'
if CStr((Recordset1.Fields.Item("PicksheetStatus").Value)) = "Locked" then
PickSheetStatus = Recordset1.Fields("PicksheetStatus").value
else

if CStr((Recordset1.Fields.Item("PStatus").Value)) = "Locked" then
PickSheetStatus = Recordset1.Fields("PStatus").value
else
PickSheetStatus = "Open"
end if
end if
%>



<td nowrap>
<%=PickSheetStatus%> </td>


<td nowrap><font size="1" face="Arial, Helvetica, sans-serif">
<input name="txtText<%= intRecID %>" type="text" onChange="RecUpdate('<%= intRecID %>')" value="<%=(Recordset1.Fields.Item("RecText").Value)%>" size="20">
</font></td>

</tr>
<%


Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend

%>
</table></td>
</tr>
</table>
<div align="left">
<table width="693" border="1" cellpadding="0" cellspacing="1" bgcolor="#EEEFF2">
<tr>
<td><div align="left"><font size="2" face="Arial, Helvetica, sans-serif">Tie Breaker Total:
<input name="txtTieBreakerTotal" type="text" id="txtTieBreakerTotal" onblur="checkNumeric(this,0,999,'','','');" value="<%=(Recordset2.Fields.Item("TieBreakerTotal").Value)%>" <%=radio_disabled%>>
</font></div></td>
</tr>
<tr>
<td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Submit Picks">
</font></div></td>
</tr>
</table>
<p><br>
<input name="hidRecIDs" type="text" size="40">
<br>
<font size="2" face="Arial, Helvetica, sans-serif"> </font><font size="2" face="Arial, Helvetica, sans-serif">
</font><br>
</p>
<p>&nbsp;</p>
</div>

<input type="hidden" name="MM_update" value="form1">


</form>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

penguinspeaks
  • Locked
  • Question
Parse a database field that is comma delimited and input the results into another table
Replies
0
Views
75
penguinspeaks
penguinspeaks
leifoet
  • Locked
  • Question
How to update the content of radio buttons in a database?
Replies
2
Views
77
leifoet
leifoet
leifoet
  • Locked
  • Question
Wrong code in a href ?
Replies
1
Views
77
leifoet
leifoet
leifoet
  • Locked
  • Question
How to check if a datatable is empty ?
Replies
0
Views
77
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
Start loop from a specified point
Replies
0
Views
66
penguinspeaks
penguinspeaks

Part and Inventory Search

Sponsor

Back
Top