Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
[blue]While (([/blue]Repeat1__numRows [blue]<>[/blue] [color #ff0000]0[/color][blue]) AND (NOT[/blue] Recordset1.[color #990099]EOF[/color][blue]))[/blue]
%>
[color red yellow]<% intRecID =(Recordset1.Fields.Item("RecID").Value) ' Store the current RecordID in a variable %>[/color]
<tr><td><% =intRecID%><input name="HidRecID"<% =intRecID%>" type="hidden" value="<% =intRecID%>" /></td><td><label>
<input name="Surname<% =intRecID%>" type="text" id="Surname" value="<%=(knectMbr.Fields.Item("mbr_Surname").Value)%>" size="15" />
</label></td>
<td bgcolor="#E2E2E2" class="normalTxtnobox"><input name="Firstname[color red yellow]<% =intRecID%>[/color]" type="text" id="Firstname" value="<%=(knectMbr.Fields.Item("mbr_Firstname").Value)%>" size="15" /></td>
[/color]
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
knectMbr.MoveNext()
Wend
%>
<tr>
<td colspan="7" align="left" bgcolor="#E2E2E2" class="normalTxtnobox"><label>
[color red yellow]<input name="hidRecID" type="hidden" id="hidRecID" size="80" />[/color]
</label></td>
<script type="text/javascript">
function RecUpdate(RecID){
var ThisID = "*" + (RecID) + "*"
if (document.AddMbrFRM.hidRecID.value == ""){
document.AddMbrFRM.hidRecID.value = (ThisID)
}
if (document.AddMbrFRM.hidRecID.value != ""){
var str = document.AddMbrFRM.hidRecID.value;
var pos = str.indexOf(ThisID);
if (pos == -1) {
document.AddMbrFRM.hidRecID.value = document.AddMbrFRM.hidRecID.value + ", " + (ThisID)
}
}
}
</script>
<select name="Attended<% =intRecID%>" id="Attended<% =intRecID%>" [color red yellow]onchange="RecUpdate('<%= intRecID %>[/color]')">
<option>Select</option>
<option value="Yes">Yes</option>
<option value="No">No</option>
</select>
<%
If Request("button")<>"" Then
intRecID = Replace(Request("hidRecID"), "*", "")
arrRecIDs = Split(intRecID, ", ")
For i = 0 to Ubound(arrRecIDs)
SN=Replace(Request("Surname"&arrRecIDs(i)),"'","''")
FN = Replace(Request("Firstname"&arrRecIDs(i)),"'","''")
EM = Replace(Request("Email"&arrRecIDs(i)),"'","''")
PH = Replace(Request("Ph" & arrRecIDs(i)), "'", "''")
MOB = Replace(Request("Mob" &arrRecIDs(i)),"'","''")
GP = Replace(Request("GroupID" & arrRecIDs(i)),"'","''")
DTE=Replace(Request("Meet_Date"&arrRecIDs(i)),"'","''")
ATT = Replace(Request("Attended"&arrRecIDs(i)),"'","''")
TDTE=Replace(Request("txtDate"&arrRecIDs(i)),"'","''") MBRID=Replace(Request("MbrID"&arrRecIDs(i)),"'","''")
GPN = Replace(Request("Group"&arrRecIDs(i)),"'",''")
Set MbrIns = Server.CreateObject ("ADODB.Command")
MbrIns.ActiveConnection = MM_connect_STRING
MbrIns.CommandText = "INSERT INTO attendanceTBL (Surname, Firstname, Email, Ph, Mob, GroupID, Meet_Date, Attended, txtDate, GpName, MbrID) VALUES ('"_
&SN&"','"&FN&"','"&EM&"','"&PH&"','"&MOB&"','"&GP&"','"&DTE&"','"&ATT&"','"&TDTE&"','"&GPN&"','"&MBRID&"')"
MbrIns.CommandType = 1
MbrIns.CommandTimeout = 0
MbrIns.Prepared = true
MbrIns. Execute()
Next
Response.Redirect("Index.asp")
End IF
%>