What's wrong w/ this code ?
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cmdNotifier_OnClick()
Dim i
With document.frmNotification
.Atteindre.value = ""
For i = 1 to <%= rsPrets.RecordCount %>
If .chkNotifier(i).checked = True Then
.Atteindre.value = .Atteindre.value & .chkNotifier(i).value & ";"
End if
Next
End With
msgbox .Atteindre.value
End Sub
' -->
</SCRIPT>
</HEAD>
<BODY bgcolor="#0D0D6D" text="black" >
<Form name=frmNotification method=post>
<Table height=239 cellPadding=10 width=396 align=center bgColor=#d4d0c8 border=8 style="WIDTH: 396px; HEIGHT: 239px" id=TABLE1>
<% rsPrets.MoveFirst
While not rsPrets.EOF %>
<Tr><Td Width=20><Input name=chkNotifier id=chkNotifier Value=<%= rsPrets.AbsolutePosition%> type=checkbox checked></Td>
</Tr>
<% rsPrets.MoveNext
Wend %>
</Table>
</Td></Tr>
<Tr><Td align="MIDDLE">
<INPUT Type="button" name="cmdNotifier" id=cmdNotifier value="Notifier">
<INPUT TYPE="button" VALUE="Fermer" id=cmdFermer name=cmdFermer><br>
</Td></Tr>
</Table>
<INPUT TYPE="hidden" SIZE="4" NAME="MoveAction" value="Move">
</BODY>
</HTML>
I got error in VBScript, when clicking on cmdNotifier :
chkNotifier : Object not defined
Here you go once again :p
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Main()
End Sub
Sub cmdFermer_OnClick()
document.location.href="frmDefault.asp"
End Sub
Sub cmdNotifier_OnClick()
Dim i
With document.frmNotification
.Atteindre.value = ""
For i = 1 to 3
If .chkNotifier(i).checked = True Then
.Atteindre.value = .Atteindre.value & ";" & .chkNotifier(i).value
End if
Next
' On élimine le ";" au début
If .Atteindre.value <> "" Then .Atteindre.value = Right(.Atteindre.value, Len(.Atteindre.value) - 1)
End With
msgbox .Atteindre.value
End Sub
' -->
</SCRIPT>
</HEAD>
<BODY bgcolor="#0D0D6D" text="black" onload="Call Main()">
<Form name=frmNotification method=post>
<Table height=239 cellPadding=10 width=396 align=center bgColor=#d4d0c8 border=8 style="WIDTH: 396px; HEIGHT: 239px" id=TABLE1>
<Tr><Td>
<B>Notification</B><HR><BR>
<Table border=1 width=500>
<Tr><Td Width=20></Td>
<Td Width=160><Font Face="Courier New" size=2>User</Font></Td>
<Td Width=200><Font Face="Courier New" size=2>App</Font></Td>
<Td Width=100><Font Face="Courier New" size=2>Date</Font></Td>
<Td Width=40 Align="Middle"><Font Face="Courier New" size=2>*</Font></Td>
</Tr>
<Tr><Td Width=20><Input name=chkNotifier id=chkNotifier Value=1 type=checkbox checked></Td>
<Td Width=160><Font Face="Courier New" size=2>Name 1</Font></Td>
<Td Width=200><Font Face="Courier New" size=2>App 1</Font></Td>
<Td Width=100><Font Face="Courier New" size=2>2001-06-07</Font></Td>
<Td Width=40 Align="Middle"><Font Face="Courier New" size=2>0</Font></Td>
</Tr>
<Tr><Td Width=20><Input name=chkNotifier id=chkNotifier Value=2 type=checkbox checked></Td>
<Td Width=160><Font Face="Courier New" size=2>Name 2</Font></Td>
<Td Width=200><Font Face="Courier New" size=2>App 2</Font></Td>
<Td Width=100><Font Face="Courier New" size=2>2001-06-08</Font></Td>
<Td Width=40 Align="Middle"><Font Face="Courier New" size=2>0</Font></Td>
</Tr>
<Tr><Td Width=20><Input name=chkNotifier id=chkNotifier Value=3 type=checkbox checked></Td>
<Td Width=160><Font Face="Courier New" size=2>Name 3</Font></Td>
<Td Width=200><Font Face="Courier New" size=2>App 3</Font></Td>
<Td Width=100><Font Face="Courier New" size=2>2001-06-08</Font></Td>
<Td Width=40 Align="Middle"><Font Face="Courier New" size=2>0</Font></Td>
</Tr>
</Table>
* Notifié
</Td></Tr>
<Tr><Td align="MIDDLE">
<INPUT Type="button" name="cmdNotifier" id=cmdNotifier value="Notifier">
<INPUT TYPE="button" VALUE="Fermer" id=cmdFermer name=cmdFermer><br>
</Td></Tr>
</Table>
<INPUT TYPE="hidden" SIZE="4" NAME="MoveAction" Value="Move">
<INPUT TYPE="hidden" SIZE="4" NAME="Atteindre">
</Form>
</BODY>
</HTML>