Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ivan.Teles

Comose resolve esse erro mostrado pelo IE?

Por , em ASP Clássico

Recommended Posts

Ivan.Teles    23

Ivan.Teles
Postado

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/mylogin/reg.asp, line 32

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

 

Página:

POST 36 bytes to /mylogin/reg.asp

 

POST Data:

user=pppppppp&email=

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Isso é problema de permissão de arquivo.. Faça o seguinte: Vá até a pasta onde está o bd/botão direito do mouse/propriedades/segurança. Nesta Guia de segurança você vai dar as permissões de usuários gravarem ou só lerem o bd. Falows Jucamaster

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

Esse é o código do arquivo Reg.asp

 

 

<!--#include file="connect.asp"-->

<%

response.buffer = true

Function rndit()'generate password from randomize number

Dim RndTemp

Randomize

RndTemp = Rnd * 1000000

RndTemp= Int(RndTemp)

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")

'response.write user & email & rndit'***debug

'database objects

Set Conn = Server.CreateObject("ADODB.Connection")

Set Rs = Server.CreateObject("ADODB.Recordset")

'sql query

sql = "select pass from users where pass='"&PasswordTemp&"' or user='"& user & "'"

Conn.Open dsn

rs.open sql,conn

if rs.eof and rs.bof then

sql1 = "insert into users (user,pass,email) values('"& user & "',"& PasswordTemp & ", '"& email & "')"

conn.execute(sql1)

response.write "<script>alert('Cadastro realizado com sucesso!');location.href='index.asp';</script>"

Dim objCDO

Set objCDO = Server.CreateObject("CDONTS.NewMail")

body = "Goto http://www.myscript.co.il/index.asp " & vbCrLf

body = body & " Your username is: " & user & vbCrLf

body = body & " Your password is: " & PasswordTemp & vbCrLf

 

objCDO.To = email

objCDO.From = "eladr@tip.co.il"

objCDO.Subject = "Welcome to our member section!"

objCDO.Body = body

objCDO.Send

else

response.write "<script>alert('Este nome de usuário ja Existe!');</script>"

 

end if

 

rs.close

set rs = nothing

conn.close

set conn = nothing

 

end select

%>

 

 

<html>

<head>

<script>

function valid(){

var user = document.theform.user.value

var userLength = document.theform.user.value.length

if(userLength<4 || user==""){

alert("User fieled should contain 4-10 chars");

document.theform.user.focus()

return false

}

var email=document.theform.email.value;

if (email==""){

alert("Please type your Email")

document.theform.email.focus()

return false

}

if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("Este email não é válido!");

document.theform.email.focus()

return false

}

}

</script>

 

<title>Untitled</title>

</head>

 

<body><br><br><br><br>

<form name="theform" action="reg.asp?action=login" method="post" onsubmit="return valid()">

<table align=center bgcolor="Silver">

<tr>

<td> </td>

</tr>

<tr>

<td>

<table width="100%" border="0">

<tr>

<td><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Usuário:

</font></div></td>

<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<input type="text" name="user" size=15 maxlength=10>

(4-10 caracteres)</font></td>

</tr>

<tr>

<td><div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Email:</font></div></td>

<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<input type="text" name="email" size=20 maxlength=30>

(email deve ser válido)</font></td>

</tr>

</table>

</td>

</tr>

<tr><td colspan=2 align=center><input type="submit" value="login"></td></tr>

 

</form>

 

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito