Trade & Visitor Registration!

<%@LANGUAGE="VBSCRIPT"%> <% Set MM_connDSN_STRING = Server.CreateObject("ADODB.Connection") MM_connDSN_STRING.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("/db/Member.mdb") Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% If (CStr(Request("MM_insert")) = "Memberform") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_connDSN_STRING MM_editCmd.CommandText = "INSERT INTO Member (Member_Type, Member_Name, Gendar, Member_Email, Member_Password, Confirm_Password, How_Knowus, Country) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("type")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("name")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("gendar")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("password")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("password2")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("howtoknowus")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("Country")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "thanks.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> Trade & Visitor Registration!

Trade & Visitor Registration

Member Type
How do you know us?
Gender
Name
Email Address (this will be your login ID)
Password
Reconfirm Password



Diving Resort Travel Expo (Southeast Asia Region) SINGAPORE 01-03 June 2012 Singapore Supported by SSI, NAUI, TDISDI, DDI	Diving Resort Travel Expo (Southern China Region) HONG KONG 15-17 Dec 2012 Hong Kong Supported by HKUA, CUA, PADI, SSI, NAUI, TDISDI	Diving Resort Travel Expo (Northern China Region) SHANGHAI 28-30 March 2014 Shanghai Supported by CUA, HKUA, SSI, NAUI, TDISDI