Forum Moderators: open
For intCounter = 1 To 6
Randomize
intDecimal = Int((26 * Rnd) + 1) + 64
strPassword = strPassword & Chr(intDecimal)
Next
set connection=Server.CreateObject("ADODB.Connection")
connection.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
server.MapPath("data/hemicustreg.mdb")
connection.Open
sql="INSERT INTO customer ([CmpName], [Address], [City], [State], [Zip], [Number], [Contact], [email], [System], [Pwrd], [Username])"
sql=sql & "VALUES"
sql=sql & "('" & Request.Form("cmpname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("state") & "',"
sql=sql & "'" & Request.Form("zip") & "',"
sql=sql & "'" & Request.Form("number") & "',"
sql=sql & "'" & Request.Form("contact") & "',"
sql=sql & "'" & Request.Form("email") & "',"
sql=sql & "'" & Request.Form("system") & "',"
sql=sql & "'" & strpassword & "',"
sql=sql & "'" & Request.Form("username") & "')"
connection.Execute(sql)
if err<>0 then
Response.Write(Err.Description)
else
response.redirect("tyreg.html")
end if
connection.close
Dim Mail
Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.to=Request.Form("email")
Mail.From="lblendowski@magneforcess.com"
Mail.Subject="Just testing my script"
Mail.Body="Your password is" & strPassword
Mail.Send
Set Mail=nothing
%>
[aspfaq.com...]