%@ Language=VBScript %>
<%
Dim MemberId, FirstName, LastName, CompanyName, Title, Email, Password
Dim HintQuestion, HintAnswer, PrimaryAddress1, PrimaryAddress2, PrimaryCity, PrimaryState, PrimaryZip, PrimaryCountry
Dim AlternateAddress1, AlternateAddress2, AlternateCity, AlternateState, AlternateZip, AlternateCountry
Dim PrimaryPhone, SecondaryPhone, MembershipType, Comments
Dim sSQL
Dim objRs, objRs1
'MemberId = 0
'If len(Session("MemberId")) > 0 Then
' MemberId = clng(Session("MemberId"))
'End If
'Open Connection
Conn_Open
Set objRs1 = Server.CreateObject("ADODB.Recordset")
sSQL = "select countryname from country"
objRs1.Open sSQL, objConn
'If MemberId > 0 Then
' Set objRs = Server.CreateObject("ADODB.Recordset")
' sSQL = "select * from member where memberid = " & cstr(MemberId)
' objRs.Open sSQL, objConn
'
' If Not objRs.EOF Then
' FirstName = objRs("FirstName")
' LastName = objRs("LastName")
' CompanyName = objRs("CompanyName")
' Title = objRs("Title")
' Email = objRs("Email")
' Password = objRs("Password")
' HintQuestion = objRs("HintQuestion")
' HintAnswer = objRs("HintAnswer")
' PrimaryAddress1 = objRs("PrimaryAddress1")
' PrimaryAddress2 = objRs("PrimaryAddress2")
' PrimaryCity = objRs("PrimaryCity")
' PrimaryState = objRs("PrimaryState")
' PrimaryZip = objRs("PrimaryZip")
' PrimaryCountry = objRs("PrimaryCountry")
' AlternateAddress1 = objRs("AlternateAddress1")
' AlternateAddress2 = objRs("AlternateAddress2")
' AlternateCity = objRs("AlternateCity")
' AlternateState = objRs("AlternateState")
' AlternateZip = objRs("AlternateZip")
' AlternateCountry = objRs("AlternateCountry")
' PrimaryPhone = objRs("PrimaryPhone")
' SecondaryPhone = objRs("SecondaryPhone")
' MembershipType = objRs("MembershipType")
' Comments = objRs("Comments")
' End If
' objRs.close
' set objRs = nothing
'End If
%>
Member Registration
|
|
(Step
1 of 3)
|
|
| |
All
Rights Reserved. Website designed by Meditroniks Infotech |
|
<%
set objRs1 = Nothing
'Close Connection
Conn_Close
%>