<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("database1_ConnectionString") Set RS = Conn.Execute ("EXEC pr_web_daynames_ret_proc '" & Request("start_date") & "'" ) Do While Not rs.eof d1 = RS("d1") d2 = RS("d2") d3 = RS("d3") d4 = RS("d4") d5 = RS("d5") d6 = RS("d6") d7 = RS("d7") RS.MoveNext loop RS.Close %>
Availability
Enter your availability for the day of the week below, then hit the Submit button...
Date
Shift
Max. Hours
Note
<%response.write(d1&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d2&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d3&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d4&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d5&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d6&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close %>
Any
8
12
<%response.write(d7&":")%>
<% Set RS = Conn.Execute ("EXEC pr_web_shift_combo_ret_proc") Do While Not rs.eof Response.Write("
" & rs("combo_name") & "
") RS.MoveNext loop RS.Close Conn.Close %>
Any
8
12
">
">
">