%
'Dim ConString
'ConString = "dsn=nietodb"
'Password protect your database and then substitute the password for "foo" in the code below
Dim vPath, pPath, ConString
vPath = "..\access_db\artistanetdb.mdb"
'vPath = "..\dbase\ArtistaNetdb.mdb"
pPath = Server.MapPath( vPath )
ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=aleric"
%>
<%
response.buffer = true
Function rndit()'generate password from randomize number
Dim RndTemp
Randomize
RndTemp = Rnd * 1000000000
RndTemp= Int(RndTemp)
RndTemp= left(RndTemp, 6)
rndit = RndTemp
End Function
'decleration
dim useraction,conn,rs,sql,sql1,user,pass
useraction = request("action")
select case useraction
case "login"
'generate the function
PasswordTemp = rndit()
'collect data from form
user = request.form("user")
email = request.form("email")
strtipo = request.form("strtipo")
strNombre = request.form("strNombre")
strApellido = request.form("strApellido")
strotro = request.form("strotro")
strpais = request.form("strpais")
'response.write user & email & rndit'***debug
'database objects
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'sql query
sql = "select password,username from miembros where password='"&PasswordTemp&"' or username='"& user & "'"
Conn.Open dsn
rs.open sql,conn
if rs.eof and rs.bof then
' sql1 = "insert into clientes (username, password) values('"& user & ","& PasswordTemp &"')"
sql1 = "insert into miembros (username,password,email,pais,tipo,Nombre,Apellido,otro) values('"& user & "',"& PasswordTemp & ", '"& email & "','"& strpais & "','"& strtipo & "','"& strNombre & "','"& strApellido & "','"& strotro & "')"
conn.execute(sql1)
response.write ""
Dim oMail, Soporte
Soporte="Registro - ArtistaNet.com"
strBody = "ArtistaNet.com - reg Form " & vbCrLf
strBody= strBody& "Goto http://www.ArtistaNet.com/site/login_miembros.asp " & vbCrLf
strBody= strBody& " " & vbCrLf
strBody= strBody& " Su Nombre de Usuario es: " & user & vbCrLf
strBody= strBody& " Su Password es: " & PasswordTemp & vbCrLf
strBody= strBody& " " & vbCrLf
strBody= strBody& "info@ArtistaNet.com " & vbCrLf
Set oMail = Server.CreateObject("CDO.Message")
oMail.From = "info@artistanet.com"
oMail.To = email
'oMail.Bcc ="info@artistanet.com"
oMail.Subject= "Register Form ArtistaNet.com"
oMail.TextBody = strBody
oMail.Send
Set oMail = Nothing
' Response.Redirect("respuesta.asp")
else
response.write ""
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
end select
%>
ArtistaNet.com - Members Site