<%@ 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 'Vertified Exist User Name and Email sql = "select * from UserMember " &_ "where UserName = '" & vUser & "' or " &_ " (FName = '" & vFName & "' and " &_ " LName = '" & vLName & "') or " &_ " UserEmail = '" & vEmail_add & "'" Set RS = IndustryNetSQL.Execute(sql) IF NOT RS.EOF THEN g_User = RS("UserName") g_Email = RS("UserEmail") g_Name = RS("FName") + " " + RS("LName") END IF IF v_User = g_user AND v_Email = g_email THEN 'call Warn_1 'User forget Password ELSEIF v_User <> g_User AND v_Email = g_email THEN 'User forget Password ELSEIF v_User = g_User AND v_Email <> g_email THEN 'User Name already Exist, Please nameing Krailart+L END IF 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) %> New Page 2

 

 
<%= 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 %>