[Resolvido] login e cadastro MD5

[razs 0]

Este codigo nao e nada de mais, penso que tenho de abrir a conexao a bd mas ja tentei mais de 10 maneiras e da sempre erro.

 

 

	Dim perg,resp
perg= Request.Form("perg")
resp= Request.Form("resp")
If perg= "" OR resp= "" Then
Response.Redirect("recpass2.asp?erro=Please try again.")
Else

Dim cn,sql
	Set cn = Server.CreateObject("ADODB.Connection")
	cn.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPath("db/12345678.mdb") &";Persist Security Info=False"
	sqlbase = "SELECT * FROM users WHERE pergunta LIKE '" & perg& "' AND resposta LIKE '" & resp& "'"
	sql.Open sqlbase,Cn,1,3

	If sql.EOF Then
		Response.Redirect("recpass2.asp?erro=Please try again.")
	Else
		response.write "Your temporary password is corc2012"

strpassword = sql.fields("username") + "corc2012"

sql.update
sql.fields("password")=MD5(strpassword)	
sql.fields("user_status")= "1"

sql.update
sql.close
cn.close
Response.Redirect("index.asp?msg=Password Change, Please login and update the password.")	


	End if

End if

 

 

Nao sei se isto ajuda

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/usercorc/recpass3.asp, line 109

 

 

a linha 109 é esta: sql.Open sqlbase,Cn,1,3

[Mário Monteiro 179]

não lembro se teria problema mas a sua conexão esta sendo declarada com letras minusculas e depois voce chama com a inicial em maiuscula

 

veja isso mas não tenho certeza se faria diferença

[xanburzum 169]

ASP não é case sensitive

[razs 0]

pois, alterei isso e nada.

 

fiz um response.write na bd

 

response.write "'"&sqlbase&"'" e ele devolveu-me os valores correctos

'SELECT * FROM users WHERE pergunta LIKE 'aaa' AND resposta LIKE 'bbb''

 

O erro so pode mesmo ser quando abro

 

Mas nao consigo perceber o que aqui pode estar mal...

 

sql.Open sqlbase,cn,1,3

[xanburzum 169]

verifique se os campos estão com os tipos de dados corretos, ou seja, passando tipo texto com texto, numérico com numérico etc

[razs 0]

Sim esta tudo correcto.

 

Nao consigo perceber o que se passa

 

Funciona bem mas nao esta a encryptar bem algum razao? terei uma plica ou aspas a mais??

strpassword = rs.fields("username") + "'"&gen_pass(intGEN)&"'"
rs.update
rs.fields("password")=MD5(strpassword)	
rs.fields("user_status")= "1"

rs.update
rs.close
conn.close

[razs 0]

tinha uma plica amais, ja funciona :)