|
Online registration to
become participants of the National Cardiovascular Disease Database
<%
If request("FlagSub") = "" then
%>
Register today!
<% else
'INSERT SQL STAMENT
iSQLstmt = "INSERT INTO REGISTRATION " + "(INTEREST,NAMEINCHARGE,DESIGNATION,CENTRENAME,SECTOR,SECOTHERS,DISCIPLINE,DISOTHERS,ADDRESS,POSTALCODE,TOWN,STATE,TEL1,TEL2,FAX1,FAX2,MOBILE1,MOBILE2,EMAIL)" + " VALUES (" + "'" + Request.Form("Interest") + "'," + "'" + Request.Form("NameInCharge") + "'," + "'" + Request.Form("Designation") + "'," + "'" + Request.Form("CentreName") + "'," + "'" + Request.Form("Sector") + "'," + "'" + Request.Form("SecOthers") + "'," + "'" + Request.Form("Discipline") + "'," + "'" + Request.Form("DisOthers") + "'," + "'" + Request.Form("Address") + "'," + "'" + Request.Form("PostalCode") + "'," + "'" + Request.Form("Town") + "'," + "'" + Request.Form("State") + "'," + "'" + Request.Form("Tel1") + "'," + "'" + Request.Form("Tel2") + "'," + "'" + Request.Form("Fax1") + "'," + "'" + Request.Form("Fax2") + "'," + "'" + Request.Form("Mobile1") + "'," + "'" + Request.Form("Mobile2") + "'," + "'" + Request.Form("Email") + "')"
set CONN = server.createobject("adodb.connection")
MdbFilePath = Server.MapPath("..\..\data\ncvd.mdb")
'MdbFilePath = Server.MapPath("..\data\ncvd.mdb")
CONN.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
'StrDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
'If you are going to use a password on the database you will need this next line
'StrDSN = StrDSN & "PASSWORD=; "
'StrDSN = StrDSN & "DBQ=" & server.mappath("/data/ncvd.mdb")
'CONN.Open StrDSN
Set RS = CONN.execute(iSQLstmt)
%>
Thank you. Your application has been submitted for processing and we
will get in touch with you as soon as possible.
<% end if %>
|
|