Ir para conteúdo

POWERED BY:

Arquivado

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

serpaa

Erro em código de sistema de notícias

Por , em ASP Clássico

Recommended Posts

serpaa    0

serpaa
Postado

Esse é um admin para um sistema bem simples de notícias, mas tá dando um erro. Alguém pode ajudar?

Aí vai:

 

<html>

 

<head>

<title>Journal</title>

 

<link rel="stylesheet" type="text/css" href="view.css">

</head>

 

<body>

<form method="POST" action="admin.asp?flag=1">

<%

flag = request.querystring("flag")

 

if flag = 1 then

 

If IsEmpty(request.form("ID")) then

 

response.write "<br><br><br><br><br><br><p align=center>"

response.write "<table border=1 cellpadding=3 cellspacing=0 width=423 bordercolor=#000000><tr><td width=415> <p align=center><font face=Verdana size=2>Erro de usurio!</font></p></td></tr>"

response.write "<tr><td width=415 bgcolor=#C0C0C0><p align=center><font face=Verdana size=2>Para deletar,"

response.write " alguma notcia deve ser marcada.<br>Click em BACK para tentar de novo.</font></p></td></tr></table>"

response.end

 

End If

 

set rs = nothing

ID = request.form("ID")

set conn = server.createobject("adodb.connection")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")

conn.Open DSNtemp

For each record in request("ID")

sqlstmt = "DELETE * from journal WHERE ID=" & record

Set RS = conn.execute(sqlstmt)

Next

 

end if

%>

<img border="0" src="index.2.gif" alt="title" width="166" height="53">

<br>

<div align="center">

<center>

<table border="1" cellpadding="3" cellspacing="0" width="423" bordercolor="#000000">

<tr>

<td width="415"><font face="Verdana" size="2">Journal entry's so far</font></td>

</tr>

<%

set rs = nothing

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")

sqlstmt = "SELECT * FROM journal ORDER BY id DESC"

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

rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

x = 0

For x = 1 to 9999

If rs.eof then

Exit For

Else

date1 = rs("pdate")

id = rs("ID")

name = rs("pname")

link = "<a href='view.asp?id=" & id & "'>" & date1 & "</a>"

description = name

%>

 

<tr>

<td width="415" bgcolor="#C0C0C0"><input type="checkbox" name="ID" value="<% =id %>"><font face="Verdana" size="2"><% =link%> 

-- <% =description%></font></td>

</tr>

 

<%

rs.MoveNext

End If

Next%>

 

</table>

</center>

</div>

 

<p align="center"><input type="submit" value="Delete" name="B1"><br>

<br>

<font face="Verdana" size="2"><a href="index.asp">View </a>   <a href="submit.asp">Submit</a></font></p>

</form>

</body>

 

</html>

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xaf0 Thread 0xca8 DBC 0xcfb88a4 Jet'.

 

/admin.asp, line 53

 

 

Esse problema aparece quando se tenta deletar a notícia. A notícia é deletada, mas sempre aparece o mesmo erro.

http://forum.imasters.com.br/public/style_emoticons/default/sick.gif http://forum.imasters.com.br/public/style_emoticons/default/sick.gif http://forum.imasters.com.br/public/style_emoticons/default/sick.gif http://forum.imasters.com.br/public/style_emoticons/default/sick.gif http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual é exatamente esta linha 53???

Compartilhar este post

Link para o post
Compartilhar em outros sites

serpaa    0

serpaa
Postado

Putz, muito obrigado pela ajuda e atenção da galera, mas já consegui consertar. A segunda conexão com o BD estava assim: set rs = nothingDSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")sqlstmt = "SELECT * FROM journal ORDER BY id DESC"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open sqlstmt, DSNtemp, 3, 3TotalRecs = rs.recordcountModifiquei ela, ficando assim: set rs = nothing set conn = server.createobject("adodb.connection") set rs = Server.CreateObject("ADODB.Recordset") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") conn.open DSNtemp sqlstmt = "SELECT * FROM journal ORDER BY id DESC" rs.Open sqlstmt, conn, 3, 3TotalRecs = rs.recordcountAssim ficou tudo certinho!!!De qualquer forma, mais uma vez obrigado pela atenção aê!!! ;) ;) ;) ;) ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

parabens ai tiozinhoque bom que arrumou

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