her er hele siden
<%
bDontCount = False
sPageTitle = \"2eNetWorX - Register\"
bAdminOnly = False
lSubjectID = 0
sTitleBar = \"/dev :: <a href=\"\"/dev/index.asp\"\">home</a> :: register\"
if request(\"comebackto\") <> \"\" then
sReferer = request(\"comebackto\")
sGoBackTo = \"?\" & request.querystring
end if
sub SendMail(sTo, sSubject, sBody)
\'TO DO: Change the mail configuration
sMailServer = \"213.237.54.1\"
sMailSender = \"webmaster@counselor.dk\"
sMailSenderName = \"counselor\"
Set JMail = Server.CreateObject(\"JMail.Message\")
JMail.ServerAddress = sMailServer
JMail.Sender = sMailSender
JMail.Sendername = sMailSenderName
JMail.Subject = sSubject
JMail.AddRecipient sTo
JMail.Body = sBody
JMail.Execute
end sub
sub ShowProfile(sErr)
dim arrMonths(12)
arrMonths(1) = \"January\"
arrMonths(2) = \"Fabruary\"
arrMonths(3) = \"March\"
arrMonths(4) = \"April\"
arrMonths(5) = \"May\"
arrMonths(6) = \"June\"
arrMonths(7) = \"July\"
arrMonths(8) = \"August\"
arrMonths(9) = \"September\"
arrMonths(10) = \"October\"
arrMonths(11) = \"November\"
arrMonths(12) = \"December\"
dim c(237, 2)
c(1, 1)=\"us\":c(1, 2)=\"United States of America\"
c(2, 1)=\"ca\":c(2, 2)=\"Canada\"
c(3, 1)=\"af\":c(3, 2)=\"Afghanistan\"
c(4, 1)=\"al\":c(4, 2)=\"Albania\"
c(5, 1)=\"dz\":c(5, 2)=\"Algeria\"
c(6, 1)=\"as\":c(6, 2)=\"American Samoa\"
c(7, 1)=\"ad\":c(7, 2)=\"Andorra\"
c(8, 1)=\"ao\":c(8, 2)=\"Angola\"
c(9, 1)=\"ai\":c(9, 2)=\"Anguilla\"
c(10, 1)=\"aq\":c(10, 2)=\"Antarctica\"
c(11, 1)=\"ag\":c(11, 2)=\"Antigua and Barbuda\"
c(12, 1)=\"ar\":c(12, 2)=\"Argentina\"
c(13, 1)=\"am\":c(13, 2)=\"Armenia\"
c(14, 1)=\"aw\":c(14, 2)=\"Aruba\"
c(15, 1)=\"au\":c(15, 2)=\"Australia\"
c(16, 1)=\"at\":c(16, 2)=\"Austria\"
c(17, 1)=\"az\":c(17, 2)=\"Azerbaijan\"
c(18, 1)=\"bs\":c(18, 2)=\"Bahamas\"
c(19, 1)=\"bh\":c(19, 2)=\"Bahrain\"
c(20, 1)=\"bd\":c(20, 2)=\"Bangladesh\"
c(21, 1)=\"bb\":c(21, 2)=\"Barbados\"
c(22, 1)=\"by\":c(22, 2)=\"Belarus\"
c(23, 1)=\"be\":c(23, 2)=\"Belgium\"
c(24, 1)=\"bz\":c(24, 2)=\"Belize\"
c(25, 1)=\"bj\":c(25, 2)=\"Benin\"
c(26, 1)=\"bm\":c(26, 2)=\"Bermuda\"
c(27, 1)=\"bt\":c(27, 2)=\"Bhutan\"
c(28, 1)=\"bo\":c(28, 2)=\"Bolivia\"
c(29, 1)=\"ba\":c(29, 2)=\"Bosnia and Herzegovina\"
c(30, 1)=\"bw\":c(30, 2)=\"Botswana\"
c(31, 1)=\"bv\":c(31, 2)=\"Bouvet Island\"
c(32, 1)=\"br\":c(32, 2)=\"Brazil\"
c(33, 1)=\"io\":c(33, 2)=\"British Indian Ocean Territory\"
c(34, 1)=\"vg\":c(34, 2)=\"British Virgin Islands\"
c(35, 1)=\"bn\":c(35, 2)=\"Brunei\"
c(36, 1)=\"bg\":c(36, 2)=\"Bulgaria\"
c(37, 1)=\"bf\":c(37, 2)=\"Burkina Faso\"
c(38, 1)=\"bi\":c(38, 2)=\"Burundi\"
c(39, 1)=\"kh\":c(39, 2)=\"Cambodia\"
c(40, 1)=\"cm\":c(40, 2)=\"Cameroon\"
c(41, 1)=\"cv\":c(41, 2)=\"Cape Verde\"
c(42, 1)=\"ky\":c(42, 2)=\"Cayman Islands\"
c(43, 1)=\"cf\":c(43, 2)=\"Central African Republic\"
c(44, 1)=\"td\":c(44, 2)=\"Chad\"
c(45, 1)=\"cl\":c(45, 2)=\"Chile\"
c(46, 1)=\"cn\":c(46, 2)=\"China\"
c(47, 1)=\"cx\":c(47, 2)=\"Christmas Island\"
c(48, 1)=\"cc\":c(48, 2)=\"Cocos Islands\"
c(49, 1)=\"co\":c(49, 2)=\"Colombia\"
c(50, 1)=\"km\":c(50, 2)=\"Comoros\"
c(51, 1)=\"cg\":c(51, 2)=\"Congo\"
c(52, 1)=\"ck\":c(52, 2)=\"Cook Islands\"
c(53, 1)=\"cr\":c(53, 2)=\"Costa Rica\"
c(54, 1)=\"hr\":c(54, 2)=\"Croatia\"
c(55, 1)=\"cu\":c(55, 2)=\"Cuba\"
c(56, 1)=\"cy\":c(56, 2)=\"Cyprus\"
c(57, 1)=\"cz\":c(57, 2)=\"Czech Republic\"
c(58, 1)=\"dk\":c(58, 2)=\"Denmark\"
c(59, 1)=\"dj\":c(59, 2)=\"Djibouti\"
c(60, 1)=\"dm\":c(60, 2)=\"Dominica\"
c(61, 1)=\"do\":c(61, 2)=\"Dominican Republic\"
c(62, 1)=\"tp\":c(62, 2)=\"East Timor\"
c(63, 1)=\"ec\":c(63, 2)=\"Ecuador\"
c(64, 1)=\"eg\":c(64, 2)=\"Egypt\"
c(65, 1)=\"sv\":c(65, 2)=\"El Salvador\"
c(66, 1)=\"gq\":c(66, 2)=\"Equatorial Guinea\"
c(67, 1)=\"er\":c(67, 2)=\"Eritrea\"
c(68, 1)=\"ee\":c(68, 2)=\"Estonia\"
c(69, 1)=\"et\":c(69, 2)=\"Ethiopia\"
c(70, 1)=\"fk\":c(70, 2)=\"Falkland Islands\"
c(71, 1)=\"fo\":c(71, 2)=\"Faroe Islands\"
c(72, 1)=\"fj\":c(72, 2)=\"Fiji\"
c(73, 1)=\"fi\":c(73, 2)=\"Finland\"
c(74, 1)=\"fr\":c(74, 2)=\"France\"
c(75, 1)=\"gf\":c(75, 2)=\"French Guiana\"
c(76, 1)=\"pf\":c(76, 2)=\"French Polynesia\"
c(77, 1)=\"tf\":c(77, 2)=\"French Southern Territories\"
c(78, 1)=\"ga\":c(78, 2)=\"Gabon\"
c(79, 1)=\"gm\":c(79, 2)=\"Gambia\"
c(80, 1)=\"ge\":c(80, 2)=\"Georgia\"
c(81, 1)=\"de\":c(81, 2)=\"Germany\"
c(82, 1)=\"gh\":c(82, 2)=\"Ghana\"
c(83, 1)=\"gi\":c(83, 2)=\"Gibraltar\"
c(84, 1)=\"gr\":c(84, 2)=\"Greece\"
c(85, 1)=\"gl\":c(85, 2)=\"Greenland\"
c(86, 1)=\"gd\":c(86, 2)=\"Grenada\"
c(87, 1)=\"gp\":c(87, 2)=\"Guadeloupe\"
c(88, 1)=\"gu\":c(88, 2)=\"Guam\"
c(89, 1)=\"gt\":c(89, 2)=\"Guatemala\"
c(90, 1)=\"gn\":c(90, 2)=\"Guinea\"
c(91, 1)=\"gw\":c(91, 2)=\"Guinea-Bissau\"
c(92, 1)=\"gy\":c(92, 2)=\"Guyana\"
c(93, 1)=\"ht\":c(93, 2)=\"Haiti\"
c(94, 1)=\"hm\":c(94, 2)=\"Heard and McDonald Islands\"
c(95, 1)=\"hn\":c(95, 2)=\"Honduras\"
c(96, 1)=\"hk\":c(96, 2)=\"Hong Kong\"
c(97, 1)=\"hu\":c(97, 2)=\"Hungary\"
c(98, 1)=\"is\":c(98, 2)=\"Iceland\"
c(99, 1)=\"in\":c(99, 2)=\"India\"
c(100, 1)=\"id\":c(100, 2)=\"Indonesia\"
c(101, 1)=\"ir\":c(101, 2)=\"Iran\"
c(102, 1)=\"iq\":c(102, 2)=\"Iraq\"
c(103, 1)=\"ie\":c(103, 2)=\"Ireland\"
c(104, 1)=\"il\":c(104, 2)=\"Israel\"
c(105, 1)=\"it\":c(105, 2)=\"Italy\"
c(106, 1)=\"ci\":c(106, 2)=\"Ivory Coast\"
c(107, 1)=\"jm\":c(107, 2)=\"Jamaica\"
c(108, 1)=\"jp\":c(108, 2)=\"Japan\"
c(109, 1)=\"jo\":c(109, 2)=\"Jordan\"
c(110, 1)=\"kz\":c(110, 2)=\"Kazakhstan\"
c(111, 1)=\"ke\":c(111, 2)=\"Kenya\"
c(112, 1)=\"ki\":c(112, 2)=\"Kiribati\"
c(113, 1)=\"kp\":c(113, 2)=\"Korea, North\"
c(114, 1)=\"kr\":c(114, 2)=\"Korea, South\"
c(115, 1)=\"kw\":c(115, 2)=\"Kuwait\"
c(116, 1)=\"kg\":c(116, 2)=\"Kyrgyzstan\"
c(117, 1)=\"la\":c(117, 2)=\"Laos\"
c(118, 1)=\"lv\":c(118, 2)=\"Latvia\"
c(119, 1)=\"lb\":c(119, 2)=\"Lebanon\"
c(120, 1)=\"ls\":c(120, 2)=\"Lesotho\"
c(121, 1)=\"lr\":c(121, 2)=\"Liberia\"
c(122, 1)=\"ly\":c(122, 2)=\"Libya\"
c(123, 1)=\"li\":c(123, 2)=\"Liechtenstein\"
c(124, 1)=\"lt\":c(124, 2)=\"Lithuania\"
c(125, 1)=\"lu\":c(125, 2)=\"Luxembourg\"
c(126, 1)=\"mo\":c(126, 2)=\"Macau\"
c(127, 1)=\"mk\":c(127, 2)=\"Macedonia, Former Yugoslav Republic\"
c(128, 1)=\"mg\":c(128, 2)=\"Madagascar\"
c(129, 1)=\"mw\":c(129, 2)=\"Malawi\"
c(130, 1)=\"my\":c(130, 2)=\"Malaysia\"
c(131, 1)=\"mv\":c(131, 2)=\"Maldives\"
c(132, 1)=\"ml\":c(132, 2)=\"Mali\"
c(133, 1)=\"mt\":c(133, 2)=\"Malta\"
c(134, 1)=\"mh\":c(134, 2)=\"Marshall Islands\"
c(135, 1)=\"mq\":c(135, 2)=\"Martinique\"
c(136, 1)=\"mr\":c(136, 2)=\"Mauritania\"
c(137, 1)=\"mu\":c(137, 2)=\"Mauritius\"
c(138, 1)=\"yt\":c(138, 2)=\"Mayotte\"
c(139, 1)=\"mx\":c(139, 2)=\"Mexico\"
c(140, 1)=\"fm\":c(140, 2)=\"Micronesia, Federated States of\"
c(141, 1)=\"md\":c(141, 2)=\"Moldova\"
c(142, 1)=\"mc\":c(142, 2)=\"Monaco\"
c(143, 1)=\"mn\":c(143, 2)=\"Mongolia\"
c(144, 1)=\"ms\":c(144, 2)=\"Montserrat\"
c(145, 1)=\"ma\":c(145, 2)=\"Morocco\"
c(146, 1)=\"mz\":c(146, 2)=\"Mozambique\"
c(147, 1)=\"mm\":c(147, 2)=\"Myanmar\"
c(148, 1)=\"na\":c(148, 2)=\"Namibia\"
c(149, 1)=\"nr\":c(149, 2)=\"Nauru\"
c(150, 1)=\"np\":c(150, 2)=\"Nepal\"
c(151, 1)=\"nl\":c(151, 2)=\"Netherlands\"
c(152, 1)=\"an\":c(152, 2)=\"Netherlands Antilles\"
c(153, 1)=\"nc\":c(153, 2)=\"New Caledonia\"
c(154, 1)=\"nz\":c(154, 2)=\"New Zealand\"
c(155, 1)=\"ni\":c(155, 2)=\"Nicaragua\"
c(156, 1)=\"ne\":c(156, 2)=\"Niger\"
c(157, 1)=\"ng\":c(157, 2)=\"Nigeria\"
c(158, 1)=\"nu\":c(158, 2)=\"Niue\"
c(159, 1)=\"nf\":c(159, 2)=\"Norfolk Island\"
c(160, 1)=\"mp\":c(160, 2)=\"Northern Mariana Islands\"
c(161, 1)=\"no\":c(161, 2)=\"Norway\"
c(162, 1)=\"om\":c(162, 2)=\"Oman\"
c(163, 1)=\"pk\":c(163, 2)=\"Pakistan\"
c(164, 1)=\"pw\":c(164, 2)=\"Palau\"
c(165, 1)=\"pa\":c(165, 2)=\"Panama\"
c(166, 1)=\"pg\":c(166, 2)=\"Papua New Guinea\"
c(167, 1)=\"py\":c(167, 2)=\"Paraguay\"
c(168, 1)=\"pe\":c(168, 2)=\"Peru\"
c(169, 1)=\"ph\":c(169, 2)=\"Philippines\"
c(170, 1)=\"pn\":c(170, 2)=\"Pitcairn Island\"
c(171, 1)=\"pl\":c(171, 2)=\"Poland\"
c(172, 1)=\"pt\":c(172, 2)=\"Portugal\"
c(173, 1)=\"pr\":c(173, 2)=\"Puerto Rico\"
c(174, 1)=\"qa\":c(174, 2)=\"Qatar\"
c(175, 1)=\"re\":c(175, 2)=\"Reunion\"
c(176, 1)=\"ro\":c(176, 2)=\"Romania\"
c(177, 1)=\"ru\":c(177, 2)=\"Russia\"
c(178, 1)=\"rw\":c(178, 2)=\"Rwanda\"
c(179, 1)=\"gs\":c(179, 2)=\"S. Georgia and S. Sandwich Isls.\"
c(180, 1)=\"kn\":c(180, 2)=\"Saint Kitts & Nevis\"
c(181, 1)=\"lc\":c(181, 2)=\"Saint Lucia\"
c(182, 1)=\"vc\":c(182, 2)=\"Saint Vincent and The Grenadines\"
c(183, 1)=\"ws\":c(183, 2)=\"Samoa\"
c(184, 1)=\"sm\":c(184, 2)=\"San Marino\"
c(185, 1)=\"st\":c(185, 2)=\"Sao Tome and Principe\"
c(186, 1)=\"sa\":c(186, 2)=\"Saudi Arabia\"
c(187, 1)=\"sn\":c(187, 2)=\"Senegal\"
c(188, 1)=\"sc\":c(188, 2)=\"Seychelles\"
c(189, 1)=\"sl\":c(189, 2)=\"Sierra Leone\"
c(190, 1)=\"sg\":c(190, 2)=\"Singapore\"
c(191, 1)=\"sk\":c(191, 2)=\"Slovakia\"
c(192, 1)=\"si\":c(192, 2)=\"Slovenia\"
c(193, 1)=\"so\":c(193, 2)=\"Somalia\"
c(194, 1)=\"za\":c(194, 2)=\"South Africa\"
c(195, 1)=\"es\":c(195, 2)=\"Spain\"
c(196, 1)=\"lk\":c(196, 2)=\"Sri Lanka\"
c(197, 1)=\"sh\":c(197, 2)=\"St. Helena\"
c(198, 1)=\"pm\":c(198, 2)=\"St. Pierre and Miquelon\"
c(199, 1)=\"sd\":c(199, 2)=\"Sudan\"
c(200, 1)=\"sr\":c(200, 2)=\"Suriname\"
c(201, 1)=\"sj\":c(201, 2)=\"Svalbard and Jan Mayen Islands\"
c(202, 1)=\"sz\":c(202, 2)=\"Swaziland\"
c(203, 1)=\"se\":c(203, 2)=\"Sweden\"
c(204, 1)=\"ch\":c(204, 2)=\"Switzerland\"
c(205, 1)=\"sy\":c(205, 2)=\"Syria\"
c(206, 1)=\"tw\":c(206, 2)=\"Taiwan\"
c(207, 1)=\"tj\":c(207, 2)=\"Tajikistan\"
c(208, 1)=\"tz\":c(208, 2)=\"Tanzania\"
c(209, 1)=\"th\":c(209, 2)=\"Thailand\"
c(210, 1)=\"tg\":c(210, 2)=\"Togo\"
c(211, 1)=\"tk\":c(211, 2)=\"Tokelau\"
c(212, 1)=\"to\":c(212, 2)=\"Tonga\"
c(213, 1)=\"tt\":c(213, 2)=\"Trinidad and Tobago\"
c(214, 1)=\"tn\":c(214, 2)=\"Tunisia\"
c(215, 1)=\"tr\":c(215, 2)=\"Turkey\"
c(216, 1)=\"tm\":c(216, 2)=\"Turkmenistan\"
c(217, 1)=\"tc\":c(217, 2)=\"Turks and Caicos Islands\"
c(218, 1)=\"tv\":c(218, 2)=\"Tuvalu\"
c(219, 1)=\"um\":c(219, 2)=\"U.S. Minor Outlying Islands\"
c(220, 1)=\"ug\":c(220, 2)=\"Uganda\"
c(221, 1)=\"ua\":c(221, 2)=\"Ukraine\"
c(222, 1)=\"ae\":c(222, 2)=\"United Arab Emirates\"
c(223, 1)=\"uk\":c(223, 2)=\"United Kingdom\"
c(224, 1)=\"uy\":c(224, 2)=\"Uruguay\"
c(225, 1)=\"uz\":c(225, 2)=\"Uzbekistan\"
c(226, 1)=\"vu\":c(226, 2)=\"Vanuatu\"
c(227, 1)=\"va\":c(227, 2)=\"Vatican City\"
c(228, 1)=\"ve\":c(228, 2)=\"Venezuela\"
c(229, 1)=\"vn\":c(229, 2)=\"Vietnam\"
c(230, 1)=\"vi\":c(230, 2)=\"Virgin Islands\"
c(231, 1)=\"wf\":c(231, 2)=\"Wallis and Futuna Islands\"
c(232, 1)=\"eh\":c(232, 2)=\"Western Sahara\"
c(233, 1)=\"ye\":c(233, 2)=\"Yemen\"
c(234, 1)=\"yu\":c(234, 2)=\"Yugoslavia (Former)\"
c(235, 1)=\"zr\":c(235, 2)=\"Zaire\"
c(236, 1)=\"zm\":c(236, 2)=\"Zambia\"
c(237, 1)=\"zw\":c(237, 2)=\"Zimbabwe\"
%>
<br>
<p class=\"smallaction\">Register Yourself</p>
<p class=\"smallertext\">
<%=sErr%>
</p>
<form action=\"register.asp<%=sGoBackTo%>\" method=\"post\">
<table border=0>
<tr>
<td class=\"smallerheader\">User Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtUserName\" value=\"<%=sUserName%>\"></td>
<td class=\"smallertext\"></td>
</tr>
<tr>
<td class=\"smallerheader\">E-Mail</td>
<td><input type=\"text\" name=\"txtEMail\" value=\"<%=sEmail%>\" size=\"30\" class=\"tbflat\"></td>
</tr>
<tr>
<td class=\"smallerheader\">First Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtFirstName\" value=\"<%=sFirstName%>\"></td>
</tr>
<tr>
<td class=\"smallerheader\">Last Name</td>
<td><input type=\"text\" class=\"tbflat\" name=\"txtLastName\" value=\"<%=sLastName%>\"></td>
</tr>
<tr>
<td class=\"smallerheader\">Gender</td>
<td class=\"smallertext\">
<input type=\"radio\" name=\"optGender\" value=\"1\"<%=sGenderMale%>>Male
<input type=\"radio\" name=\"optGender\" value=\"0\"<%=sGenderFemale%>>Female
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Month</td>
<td class=\"smallertext\">
<select name=\"txtBirthMonth\" class=\"tbflat\">
<%
for iTemp = 1 to 12
if sBirthMonth = iTemp then
response.write \"<option value=\"\"\" & iTemp & \"\"\" selected>\" & arrMonths(iTemp)
else
response.write \"<option value=\"\"\" & iTemp & \"\"\">\" & arrMonths(iTemp)
end if
next
%>
</select>
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Day</td>
<td class=\"smallertext\">
<input type=\"text\" name=\"txtBirthDay\" size=\"2\" maxlength=\"2\" class=\"tbflat\" value=\"<%=sBirthDay%>\">
</td>
</tr>
<tr>
<td class=\"smallerheader\">Birth Date : Year</td>
<td class=\"smallertext\">
<input type=\"text\" name=\"txtBirthYear\" size=\"4\" maxlength=\"4\" class=\"tbflat\" value=\"<%=sBirthYear%>\">
</td>
</tr>
<tr>
<td class=\"smallerheader\">Notifications</td>
<td class=\"smallertext\"><input type=\"checkbox\" name=\"chkNotifications\" value=\"1\" <%=sNotifications%>>Notification for site updates</td>
</tr>
<tr>
<td class=\"smallerheader\">Newsletter</td>
<td class=\"smallertext\"><input type=\"checkbox\" name=\"chkNewsletter\" value=\"1\"<%=sNewsletter%>>Periodic Newsletter</td>
</tr>
<tr>
<td class=\"smallerheader\">Country</td>
<td class=\"smallertext\" align=right>
<select name=\"txtCountryCode\" class=\"tbflat\">
<%
for iTemp = 1 to 237
if sCountryCode = c(iTemp,1) then
response.write \"<option value=\"\"\" & c(iTemp,1) & \"\"\" selected>\" & c(iTemp,2)
else
response.write \"<option value=\"\"\" & c(iTemp,1) & \"\"\">\" & c(iTemp,2)
end if
next
%>
</select>
</td>
</tr>
<tr>
<td></td>
<td><input type=\"submit\" name=\"cmdSave\" value=\" Save \" class=\"cmdflat\"></td>
</tr>
</table>
</form>
<br><br>
<!--#include virtual=\"/dev/_footer.asp\"-->
<%
end sub
if request(\"cmdsave\") <> \"\" then
\'New values Submitted
sUserName = request(\"txtUserName\")
sEMail = request(\"txtEmail\")
sFirstName = request(\"txtFirstName\")
sLastName = request(\"txtLastName\")
if request(\"optGender\") = \"1\" then sGenderMale = \" checked\" else sGenderFemale = \" checked\"
sBirthMonth = request(\"txtBirthMonth\")
sBirthDay = request(\"txtBirthDay\")
sBirthYear = request(\"txtBirthYear\")
if request(\"chkNotifications\") <> \"\" then sNotifications = \" checked\"
if request(\"chkNewsletter\") <> \"\" then sNewsletter = \" checked\"
sCountryCode = request(\"txtCountryCode\")
if request.cookies(\"devUserName\") <> \"\" then
sRemember = \" checked\"
end if
OpenDB sConnUsers
sSQL = \"SELECT * FROM Users WHERE UserName = \'\" & sUserName & \"\'\"
rs.Open sSQL,,,adCmdTable
if not (rs.bof or rs.eof) then
sErr = \"User name \'\" & sUserName & \"\' already exists. Please choose a different user name.\"
bErr = True
end if
if sUserName = \"\" then
sErr = \"Please specify a user name.\"
bErr = True
end if
if len(sEmail) < 6 then
sErr = \"Please specify a correct email.\"
bErr = True
end if
if (instr(sEmail, \"@\") = 0) or (instr(sEmail,\".\")=0) then
sErr = \"Please specify a correct email.\"
bErr = True
end if
if sFirstName = \"\" then
sErr = \"Please specify your first name.\"
bErr = True
end if
if bErr then
ShowProfile sErr
else
randomize time
for iTemp = 1 to 10
iChar = 97 + (rnd * 25)
sPassword = sPassword & chr(iChar)
next
rs.AddNew
rs(\"UserName\") = sUserName
rs(\"Password\") = sPassword
rs(\"Email\") = sEmail
rs(\"FirstName\") = sFirstName
rs(\"LastName\") = sLastName
if len(sGenderMale)>0 then rs(\"GenderMale\") = true else rs(\"GenderMale\") = False
if (len(sBirthYear) > 0) and (len(sBirthMonth)>0) and (len(sBirthDay)>0) then
dBirthDate = dateserial(sBirthYear, sBirthMonth, sBirthDay)
end if
if isDate(dBirthDate) then rs(\"BirthDate\") = dBirthDate
if len(sNotifications)>0 then rs(\"subNotifications\") = True else rs(\"subNotifications\") = False
if len(sNewsletter)>0 then rs(\"subNewsletter\") = True else rs(\"subNewsletter\") = False
rs(\"CountryCode\")= sCountryCode
rs(\"CreateDate\") = Date
rs.update
sSubject = \"Your login information\"
sBody = \"This email is sent because you asked to register with 2eNetWorX/dev.\" & vbcrlf & vbcrlf
sBody = sBody & \"You may change your password after logging in by editing your profile.\" & vbcrlf & vbcrlf
sBody = sBody & \"Your user name: \" & sUserName & vbcrlf
sBody = sBody & \"Your password: \" & sPassword & vbcrlf & vbcrlf
sBody = sBody & \"Go to
http://www.2enetworx.com/dev/servies/login.asp to login.\" & vbcrlf
SendMail sEmail, sSubject, sBody
%>
<br><br>
You will receive an email in a few minutes regarding your password to login.
<br><br>
You may <a href=\"login.asp\">login here.</>
<!--#include virtual=\"/dev/_footer.asp\"-->
<%
end if
else
sGenderMale = \" checked\"
sNotifications = \" checked\"
sNewsletter = \" checked\"
sRemember = \" checked\"
ShowProfile \"\"
end if
%>
Den nye version af W3 JMAIL har ikke denne kommando under de eksempler der er med JMail.SMTPMail men derimod JMail.Message
