<%@ LANGUAGE="VBSCRIPT" %> <% DIM db_UserID Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" 'Assign initial variable vUser = Request.Form("User_name") vFName = Request.Form("First_name") vLName = Request.Form("Last_name") vEmail = Request.Form("Email_add") vComp = Request.Form("Company") vComtype = Request.Form("Company_type") vCountry = Request.Form("Country") vPasswd = RandomPasswd() vUserType = 0 vUlevel = 1 vRegD = Now vLast = Now v_name = vFName + " " + vLName 'Vertified Exist User Name and Email sql = "select top 1 * from UserMember " &_ "where (UserName = '" & vUser & "' AND (FName = '" & vFName & "' and LName = '" & vLName & "')) or " &_ " (UserEmail = '" & vEmail_add & "' AND (FName = '" & vFName & "' and LName = '" & vLName & "')) or " &_ " (UserEmail = '" & vEmail_add & "' AND UserName = '" & vUser & "')" Set RS = IndustryNetSQL.Execute(sql) IF NOT RS.EOF THEN Response.Redirect "RegDup.asp" END IF AdminEmail ="Thai Industry Administrator" Set Mailer = server.CreateObject("SMTPsvg.Mailer") Mailer.ConfirmRead = true Mailer.ReturnReceipt = true Mailer.FromName = AdminEmail Mailer.FromAddress = "viney@thai-industry.net" Mailer.RemoteHost = "mail.thai-industry.net" Mailer.AddRecipient vFName & " " & vLName ,vEmail AddBCC = "Krailart@thai-industry.net" Mailer.Subject = "Welcome to Thai Industry Network" Mailer.BodyText = "Dear "& vFName & " " & nLname & VbCrLf & VbCrLf & VbCrLf &_ "Welcome to Thai Industry Member" & VbCrLf & VbCrLf &_ "User Name: " & vUser & VbCrLf & VbCrLf &_ "Password: " & vPasswd & VbCrLf & VbCrLf &_ "First Name: " & vFName & VbCrLf & VbCrLf &_ "Last Name: " & vLName & VbCrLf & VbCrLf &_ "Email Address: " & vEmail & VbCrLf & VbCrLf &_ "Company Name: " & vComp & VbCrLf & VbCrLf &_ "Country: " & vCountry & VbCrLf & VbCrLf &_ "Sincerely," & VbCrLf & VbCrLf &_ AdminEmail 'Mailer.sendMail '%> '<% 'Insert data to DB sql1 = "INSERT INTO UserMember " & _ " (UserName, UserPasswd, FName, LName," & _ " UserConfirm, UserEmail, CompanyName, User_are," & _ " Country, Ulevel, Register_d, Last_Access_d)" & _ " VALUES ('"& vUser &"','"& vPasswd &"','"& vFName &"','"& vLName &"','"&_ vUserType &"','"& vEmail &"','"& vComp &"','"& _ vComtype &"','"& vCountry &"','"& vUlevel &"','"& vRegD &"','"& vLast & "')" Set RS = IndustryNetSQL.Execute(sql1) %> Register Page

 

 
<%= FormatDateTime (date, vbLongDate) %>
You are invited to register your company with Thai Industry Network --> Free of charge!! All you have to do is to enter the fill in the form below and you will be minutes away from receiving free benefits form Thai Industry Network. 

User Name
 <%=vUser%>
Password
 <%=vPasswd%>
First Name
 <%=vFName%>
Last Name
 <%=vLName%>
Register Date
 <%=vRegD%>
Email Address
 <%=vEmail%>
Company Name
 <%=vComp%>
Which function best describes your company
 <%=vComtype%>
Country
 <%=vCountry%>

<% Function GetRandomNumber(LowerBound,UpperBound) Randomize() GetRandomNumber = Int((UpperBound - LowerBound + 1 ) * Rnd + LowerBound) End Function '------------------------------------ Function RandomPasswd() RandomPasswd = CHR(GetRandomNumber(65,90)) + CHR(GetRandomNumber(65,90)) + _ CHR(GetRandomNumber(65,90)) + CHR(GetRandomNumber(65,90)) + _ CHR(GetRandomNumber(65,90)) + CHR(GetRandomNumber(65,90)) + _ CHR(GetRandomNumber(48,57)) + CHR(GetRandomNumber(48,57)) + _ CHR(GetRandomNumber(48,57)) End Function IndustryNetSQL.CLOSE %>