Registration Form

Welcome, <%=Session.Contents("ID")%>	Add New Branch/Centres Info  Edit/ Delete Centre Info   Log Out
3. Insert Registration Information
Branch Name :	<%=strBranch%>
Blk :	<% rs.Open "Select Distinct BLK from centre_information where BRANCH_name='"&strBranch&"'",conn rs.MoveFirst Do until rs.EOF Response.Write(""& rs("BLK") & "") rs.MoveNext Loop rs.Close %>
Year :	<%=strYear%>
Date From :	/  / <%=strYear%>
Date To :	/  / <%=strYear%>
Time From :	:    AM PM
Time To :	:    AM PM

<% strDBPath=Server.MapPath("eci.MDB") set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" Dim strDateFrom, strDateTo, strTimeFrom, strTimeTo, strDateFromDD, strDateFromMM, strDateFromYYYY, strDateToDD, strDateToMM, strDateToYYYY Dim strTimeFromHH, strTimeFromMin, strTimeFromSession,strTimeToHH, strTimeToMin, strTimeToSession strDateFromDD=Request.Form("DateFromDD") strDateFromMM=Request.Form("DateFromMM") strDateToDD=Request.Form("DateToDD") strDateToMM=Request.Form("DateToMM") strTimeFromHH=Request.Form("TimeFromHH") strTimeFromMin=Request.Form("TimeFromMin") strTimeToHH=Request.Form("TimeToHH") strTimeToMin=Request.Form("TimeToMin") strTimeFromSession=Request.Form("Session") strTimeToSession=Request.Form("Session1") strDateFrom=strDateFromDD & "/" & strDateFromMM & "/" &strYear strDateTo=strDateToDD & "/" & strDateToMM & "/" & strYear strTimeFrom=strTimeFromHH & ":" & strTimeFromMin & strTimeFromSession strTimeTo=strTimeToHH & ":" & strTimeToMin & strTimeToSession sql="INSERT INTO RegistrationDate (BRANCH_name, BLK, Year, DateFrom, DateTo, TimeFrom, TimeTo) VALUES ('" & strBranch & "','" &request.Form("BLK")& "','" & strYear & "','" & strDateFrom & "','" & strDateTo & "','" & strTimeFrom & "','" & strTimeTo & "')" conn.Execute(sql) conn.close %>