ho inserito uno script per un sondaggio,ma al momento di immettere il voto mi appare:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/vota.asp, line 49
il locale va bene ma sul server no.riguarda per caso i permessi di scrittura sul database?oppure devo cambiare qualcosa nel codice quando va sul server?
popsta il codice che gli diamo un okkiata
pagina sondaggio:
<%
dim strCode
strCode="innovatel"
dim intVal
intVal = "0"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db_sond.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open (strConn)
sql = "SELECT * FROM Sondaggio"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.filter = " val = 'OK' "
if not(rs.eof) then
%>
<html>
<head>
<title>Sondaggio Asp</title>
<script>
<!-- Begin
function PopUp(pagina,w,h) {
window.open(pagina, 'PopUp','scrollbars=yes,status=no,menubar=no,width ='+w+',height='+h);
}
End -->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<div align="center">
<form method="post" action="vota.asp" target='PopUp'>
<table width="233" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><%=rs(1)%></div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="7"><%=rs(2)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="8" checked><%=rs(3)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="9"><%=rs(4)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="10"><%=rs(5)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="11"><%=rs(6)%>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" value="Vota !" onclick="javascript:PopUp('vota.asp',200,100)">
</div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">Guarda i risultati</div>
</td>
</tr>
</table>
</form>
</div>
<div align="center">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><font color="#FFFFFF"></font></div>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
else
response.end
end if
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
l'hai messo il database nella cartella mdb-database?
no.....
l'ho spostato ma nulla lo stesso errore!
scusami ecco il codice spostato il database in mdb:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sondaggi_STRING
Recordset1.Source = "SELECT * FROM sondaggio"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
dim strCode
strCode="innovatel"
dim intVal
intVal = "0"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db_sond.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open (strConn)
sql = "SELECT * FROM Sondaggio"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.filter = " val = 'OK' "
if not(rs.eof) then
%>
<html>
<head>
<title>Sondaggio Asp</title>
<script>
<!-- Begin
function PopUp(pagina,w,h) {
window.open(pagina, 'PopUp','scrollbars=yes,status=no,menubar=no,width ='+w+',height='+h);
}
End -->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<div align="center">
<form method="post" action="vota.asp" target='PopUp'>
<table width="233" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><%=rs(1)%></div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="7"><%=rs(2)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="8" checked><%=rs(3)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="9"><%=rs(4)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="10"><%=rs(5)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="11"><%=rs(6)%>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" value="Vota !" onclick="javascript:PopUp('vota.asp',200,100)">
</div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">Guarda i risultati</div>
</td>
</tr>
</table>
</form>
</div>
<div align="center">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><font color="#FFFFFF"></font></div>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
else
response.end
end if
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
ti da sempre lo stesso errore?
si sempre lo stesso non scrive sul database
è probabile che tu debba chiedere delucidazioni all'assistenza.. qualche volta può capitare che non assegnino privilegi a specifiche cartelle
Permessi di invio
Rispondi quotando