Salve ragazzi..![]()
Utilizzo questo script di upload di Baol da tempo e ha sempre funzionato ora non riesco piu x chissā quale errore banale.. Vi posto il codice con errore:
<%
' If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "foto" 'Impostazione del percorso
oUpload.Load
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "foto"
foto = oUpload.GetFileName()
End Select
oUpload.MoveNext
Wend
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../mdb-database/dati.mdb")
Set Rs=server.CreateObject("ADODB.Recordset")
ncasuale = oUpload.Form("ncasuale")
SQL = "SELECT * FROM annunci WHERE ncasuale ="&ncasuale&""
Rs.Open SQL,Conn,3,3 <------RIGA DI ERRORE - line 25
Rs.update
Rs("foto") = foto
Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing
' End if
%>
<center>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
response.Write "L' immagine č stata inserita..
"
%>
<input type="button" value="Continua" onClick="location.href='/pannellodicontrollo.asp?azione=modificamanifestazi one&manif=scegli'" name="button223" style="color: #000000; font-size: 8 pt">
</font>
</center>
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/Programmazione/ASP/sinnai/public/upannimages.asp, line 25
Qualcuno puo indicarmi qualcosa? Grazie![]()

Rispondi quotando
