cara... fiz o q vc disse e deu o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/conselhojedi/admin/edit_membro.asp, line 59
e o meu código fonte ficou assim:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("../light/css/link.css");
@import url("../light/css/texto.css");
-->
</style>
</head>
<%Response.Buffer = True%>
<%
if not session("logado") then Response.Redirect ("erro.asp?erro=4")
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
Dim ConnDB
Set ConnDB = Server.CreateObject("ADODB.Connection")
ConnDB.Open "DBQ=" & Server.MapPath("../db/sw.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs2 = Server.CreateObject("ADODB.Recordset")
Session.LCID = 1033 'EUA%>
<body>
<p class="text"> Administrador <b><%=Session("admin")%></b></p>
<form method="POST" action="edit_membro.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>User Error</font></p></td></tr>"
response.write "<tr><td width=415 bgcolor=#C0C0C0><p align=center><font face=Verdana size=2>If you want to delete an"
response.write " entry, check the checkbox<br>Hit the back button and try again.</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("../db/sw.mdb")
conn.Open DSNtemp
For each record in request("ID")
DbSql = "Update membros set nome = ' " & nome1 & " ', nasc = " & nasc1 & " , site = " & site1 & ", foto = " & foto1 & " , nick = " & nick1 & " where id = " & Request.Form("COD") & " "
Set RS = conn.execute(DbSql)
Next
end if
%>
<%
set rs = nothing
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/sw.mdb")
sqlstmt = "SELECT * FROM membros WHERE id="&request("COD")&""
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
nome1 = rs("nome")
nasc1 = rs("nasc")
site1 = rs("site")
foto1 = rs("foto")
nick1 = rs("nick")
id = rs("ID")
name = rs("nick")
description = name
%>
<input name="ID" type="hidden" class="btbox" id="ID" value="<%=RS("id")%>" size="2" readonly> <table width="67%" border="0">
<tr>
<td width="11%" class="text">Nome:</td>
<td width="89%">
<input name="nome1" type="text" class="form" id="nome1" value="<%=rs("nome")%>" size="30"></td>
</tr>
<tr>
<td height="26" class="text">Nasc:</td>
<td>
<input name="nasc1" type="text" class="form" id="nasc1" value="<%=rs("nasc")%>" size="30"></td>
</tr>
<tr>
<td class="text">Site:</td>
<td>
<input name="site1" type="text" class="form" id="site1" value="<%=rs("site")%>" size="30"></td>
</tr>
<tr>
<td class="text">Foto:</td>
<td>
<input name="foto1" type="text" class="form" id="foto1" value="<%=rs("foto")%>" size="30"></td>
</tr>
<tr>
<td class="text">Nick:</td>
<td>
<input name="nick1" type="text" class="form" id="nick1" value="<%=rs("nick")%>" size="30"></td>
</tr>
<tr>
<td class="text"><%
RS.MoveNext%>
<p class="text"> </td>
<td><input name="B1" type="submit" class="form" value="Atualizar"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%End If%>
<%Next%>
</p>
</body>
</html>
Se puder ver pra mim... agradeço... hehe
