<%
dim connx, rs_connx
dim name, sname, f_h, f_h_name, dob
dim add1, add2, add3, country, padd1, padd2, padd3, pcountry
dim stdcode, phone, cell, email
dim fromclass, fromyear, toclass, toyear
dim icourse, icollege, iuniv, iyear, iclass
dim gcourse, gcollege, guniv, gyear, gclass
dim pgcourse, pgcollege, pguniv, pgyear, pgclass
dim bcourse, bcollege, buniv, byear, bclass
dim dcourse, dcollege, duniv, dyear, dclass
dim ocourse, ocollege, ouniv, oyear, oclass
dim awards, marriage
dim cname1, cdob1, cgender1
dim cname2, cdob2, cgender2
dim cname3, cdob3, cgender3
dim password, tr_date, queryx
dim submitx
name = trim(Request.Form("name"))
sname = trim(Request.Form("sname"))
f_h_name = Request.Form("f_h") &" " &trim(Request.Form("f_h_name"))
dob = Request.Form("dob")
add1 = trim(Request.Form("add1"))
add2 = trim(Request.Form("add2"))
add3 = trim(Request.Form("add3"))
country = trim(Request.Form("country"))
padd1 = trim(Request.Form("padd1"))
padd2 = trim(Request.Form("padd2"))
padd3 = trim(Request.Form("padd3"))
pcountry = trim(Request.Form("pcountry"))
stdcode = trim(Request.Form("stdcode"))
phone = trim(Request.Form("phone"))
cell = trim(Request.Form("cell"))
email = trim(Request.Form("email"))
fromclass = trim(Request.Form("fromclass"))
fromyear = trim(Request.Form("fromyear"))
toclass = trim(Request.Form("toclass"))
toyear = trim(Request.Form("toyear"))
icourse = "Intermediate/+2"
icollege = trim(Request.Form("icollege"))
if icollege = "COLLEGE NAME" then icollege = "--"
iuniv = trim(Request.Form("iuniv"))
if iuniv = "BOARD NAME" then iuniv = "--"
iyear = trim(Request.Form("iyear"))
iclass = trim(Request.Form("iclass"))
gcourse = "Graduation"
gcollege = trim(Request.Form("gcollege"))
if gcollege = "COLLEGE NAME" then gcollege = "--"
guniv = trim(Request.Form("guniv"))
if guniv = "UNIVERSITY NAME" then guniv = "--"
gyear = trim(Request.Form("gyear"))
gclass = trim(Request.Form("gclass"))
pgcourse = "Post Graduation"
pgcollege = trim(Request.Form("pgcollege"))
if pgcollege = "COLLEGE NAME" then pgcollege = "--"
pguniv = trim(Request.Form("pguniv"))
if pguniv = "UNIVERSITY NAME" then puniv = "--"
pgyear = trim(Request.Form("pgyear"))
pgclass = trim(Request.Form("pgclass"))
bcourse = "B.ED."
bcollege = trim(Request.Form("bcollege"))
if bcollege = "COLLEGE NAME" then bcollege = "--"
buniv = trim(Request.Form("buniv"))
if buniv = "UNIVERSITY NAME" then buniv = "--"
byear = trim(Request.Form("byear"))
bclass = trim(Request.Form("bclass"))
dcourse = "Diploma"
dcollege = trim(Request.Form("dcollege"))
if dcollege = "COLLEGE NAME" then dcollege = "--"
duniv = trim(Request.Form("duniv"))
if duniv = "UNIVERSITY NAME" then duniv = "--"
dyear = trim(Request.Form("dyear"))
dclass = trim(Request.Form("dclass"))
ocourse = "Others"
ocollege = trim(Request.Form("ocollege"))
if ocollege = "COLLEGE NAME" then ocollege = "--"
ouniv = trim(Request.Form("ouniv"))
if ouniv = "UNIVERSITY NAME" then ouniv = "--"
oyear = trim(Request.Form("oyear"))
oclass = trim(Request.Form("oclass"))
awards = trim(Request.Form("awards"))
marriage = trim(Request.Form("marriage"))
cname1 = trim(Request.Form("cname1"))
cdob1 = trim(Request.Form("cdob1"))
cgender1 = trim(Request.Form("cgender1"))
cname2 = trim(Request.Form("cname2"))
cdob2 = trim(Request.Form("cdob2"))
cgender2 = trim(Request.Form("cgender2"))
cname3 = trim(Request.Form("cname3"))
cdob3 = trim(Request.Form("cdob3"))
cgender3 = trim(Request.Form("cgender3"))
tr_date = day(date()) &"-" &monthname(month(date()), true) &"-" &year(date()) &" " &hour(Now) &":" &Minute(Now) &":" &Minute(Now)
password = "" &Second(now) &"" &hour(now) &"" &minute(now) &"" &month(date()) &"" &right(year(date()), 2) &Weekday(date()) &"" &left(year(date()), 2)
submitx = Request.Form("submitx")
if len(submitx) > 0 then
set connx = Server.CreateObject("ADODB.Connection")
%>
<%
connx.open Server.Mappath("kennedy.mdb")
set rs_connx = Server.CreateObject("ADODB.Recordset")
rs_connx.Open "select * from alumni where ltrim(rtrim(lcase(email))) = '" <rim(rtrim(lcase(email))) &"' ", connx
Response.Write " "
if not rs_connx.eof then
rs_connx.Close
Response.Write " | SORRY - USER ALREADY EXISTS WITH THE EMAIL | "
else
queryx = "insert into alumni values('" &name &"', '" &sname &"', '" &f_h_name &"', '" &dob &"', '"
queryx = queryx &add1 &"', '" &add2 &"', '" &add3 &"', '" &country &"', '" &padd1 &"', '" &padd2 &"', '" &padd3 &"', '" &pcountry &"', '"
queryx = queryx &stdcode &"', '" &phone &"', '" &cell &"', '" &email &"', '" &password &"', '" &fromclass &"', " &fromyear &", '" &toclass &"', " &toyear &", '"
queryx = queryx &icourse &"', '" &icollege &"', '" &iuniv &"', " &iyear &", '" &iclass &"', '" &gcourse &"', '" &gcollege &"', '" &guniv &"', " &gyear &", '" &gclass &"', '"
queryx = queryx &pgcourse &"', '" &pgcollege &"', '" &pguniv &"', " &pgyear &", '" &pgclass &"', '" &bcourse &"', '" &bcollege &"', '" &buniv &"', " &byear &", '" &bclass &"', '"
queryx = queryx &dcourse &"', '" &dcollege &"', '" &duniv &"', " &dyear &", '" &dclass &"', '" &ocourse &"', '" &ocollege &"', '" &ouniv &"', " &oyear &", '" &oclass &"', '"
queryx = queryx &awards &"', '" &marriage &"', '" &cname1 &"', '" &cdob1 &"', '" &cgender1 &"', '" &cname2 &"', '" &cdob2 &"', '" &cgender2 &"', '" &cname3 &"', '" &cdob3 &"', '" &cgender3 &"', '"
queryx = queryx &tr_date &"') "
rs_connx.Close
connx.BeginTrans
rs_connx.Open queryx, connx
connx.CommitTrans
%>
<%
Response.Write " | Thank you for Registering Your Login ID is : " &lcase(email) &" Your Password will be mailed to you." &" | "
end if
Response.Write " "
connx.Close
else
%>
| |
