Inscol Academy

<% If request("Submit")="Submit" and request("submitflag") = 1 Then fname=request("fname") lname=request("lname") mm1=request("mm1") dd1=request("dd1") yy1=request("yy1") dob= monthname(mm1)&" "&dd1&", "&yy1 email=request("email") address=request("address") ' contact=request("contact") phoneno=request("phoneno") mphoneno=request("mphoneno") education=request("education") experience=request("experience") course=request("course") usmlesteps=request("usmlesteps") paymentamount=request("paymentamount") paymentmode=request("paymentmode") if paymentmode =1 then paymentmode1 = "Cheque / DD" else paymentmode1 = "Credit Card" end if 'database connection ' accessdb=server.mappath("db/inscol.mdb") accessdb=server.mappath("../db/inscol.mdb") ' accessdb="D:\web\server\inscol\inscolacademy.com\db\inscol.mdb" strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & accessdb & ";" set conn=server.createobject("adodb.connection") conn.open strconn inputquery="insert into Registration (fname,lname,dob,email,address,phoneno,mphoneno,education,experience,course,steps,paymentamount,paymentmode,dated,regfor) values ('"&fname&"','"&lname&"','"&dob&"','"&email&"','"&address&"','"&phoneno&"','"&mphoneno&"','"&education&"','"&experience&"','"&course&"','"&steps&"',"&paymentamount&",'"&paymentmode1&"','"&now()&"','USMLE')" ' response.write inputquery conn.execute(inputquery) ' conn.close ' strSQL = "Set Nocount on " ' strSQL = strSQL & inputquery ' strSQL = strSQL & " select IdentityInsert=@@identity" ' strSQL = strSQL + " set nocount off" ' Set objRs=conn.execute(strSQL) ' ReturnIdentity_fun=objRs("IdentityInsert") ' closedatabase conn Set RS = Conn.Execute( "SELECT @@IDENTITY" ) orderno = RS(0) RS.Close conn.close 'SendMail(mailfrom, mailto,mailcc, mailsubject, mailbody) mailsubject="USMLE Registration Details" mailBody=" Inscol Academy

Congratulations, your "&messg&" registration has been completed.
Please take a printout of this page for your records.
A copy of your registration has been emailed to you at "&email&"


Registration No.:		"&orderno&"

First Name:		"&fname&"

Last Name:		"&lname&"

Date Of Birth:		"&dob&"

Email id:		"&email&"

Postal Address:		"&address&"

Telephone No.:		"&phoneno&"

Mobile No.:		"&mphoneno&"

Educational Qualification:		"&education&"

Professional Experience:		"&experience&"
Courses Options:		"&course&"


USMLE Steps:		"&usmlesteps&"
Amount Payable:		"&paymentamount&"

" mailBody=mailBody&"

Please Note :

Please retain this page and quote your registration number for any future correspondence with us.
Write down the registration number on the reverse of your cheque or DD's.
All Chqs/ DD's has to made payable to us within 15 days from the date of transaction,
pending which your transaction would be deleted from our records.

Make all cheques/DD's payable to INSCOL ACADEMY at the following address:
INSCOL ACADEMY
Sector - 34 A
Chandigarh - 160022
India
Ph:
Email: info@inscolacademy.com

" else mailBody=mailBody&"" end if mailBody=mailBody&"

" DIM iMsg, Flds, iConf Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "69.56.178.20" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf ' .To = "daljit@inscol.com" .To = "hemant@hemant.com" .From = "Administrator-INSCOLACADEMY" ' .CC = "lily@inscol.com" .Sender = "admin@inscolacademy.com" .Subject = mailsubject ' .TextBody = mailBody .HTMLBody = mailBody .Send End With With iMsg Set .Configuration = iConf .To = email .From = "Administrator - INSCOL ACADEMY" .Sender = "admin@inscolacademy.com" .Subject = mailsubject .HTMLBody = mailBody .Send End With Set iMsg = Nothing Set iConf = Nothing fullname = fname & " " & lname if paymentmode =1 then redirtoinvoice else redirtoccdetails end if ' response.write "Now Show Invoice" ' response.end ' ' ' response.redirect ("http://www.inscolacademy.com") ' response.redirect ("http://www.inscolacademy.com/thanks.asp?n="&fullname) ' response.end End If %> Inscol Academy

Course options
EXAM MASTER
Online Registrations
About USMLE

USMLE Online Registration

*First Name:

*Last Name:

*Date Of Birth:

*Email id :

Postal Address:

*Telephone No. :

Mobile No. :

Educational Qualifications:

Professional Experiences:

*Courses Options:

*USMLE Steps:		Step I Step II Step III

*Amount Payable:

*Payment Mode:		CHEQUE / DD CREDIT CARD



* Required Fields

<% Function SendMail(mailfrom, mailto,mailcc, mailsubject, mailbody) Dim mymail set mymail = server.CreateObject("CDONTS.Newmail") mymail.MailFormat =0 mymail.BodyFormat = 0 mymail.to = mailto mymail.from = mailfrom if mailcc<>"" then mymail.cc = mailcc end if mymail.subject = mailsubject mymail.body = mailbody mymail.Send set mymail = nothing End Function function redirtoinvoice() %> <% If request("Submit")="Submit" and request("submitflag") = 1 Then %> <% end if end function function redirtoccdetails() %> <% If request("Submit")="Submit" and request("submitflag") = 1 Then %> <% end if end function %>