hai ragione ma se solo le cose le avessi fatte io e se capivo meglio l'asp avrei avuto meno confusione.... allora il prblema risiede in un altro file asp adesso....
il nome del file è home.asp... mi viene fuori diciamo sempre lo stesso errore(simile):
-----------------------------------------------------------------------------------------
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/home.asp, line 120
-----------------------------------------------------------------------------------------
ecco il codice:
codice:
<%@LANGUAGE="VBSCRIPT"%>
<%
' dichiaro la variabile che conterrà l'oggetto Connection
Dim conn
'creo l'oggetto Connection
Set conn = Server.CreateObject("ADODB.Connection")
'apro la connessione con la fonte di dati
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\db\miodb.mdb")
%>
<%
Dim RS_offerta__MMColParam
RS_offerta__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
RS_offerta__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim RS_offerta
Dim RS_offerta_numRows
Set RS_offerta = Server.CreateObject("ADODB.Recordset")
RS_offerta.ActiveConnection = conn
RS_offerta.Source = "SELECT * FROM T_auto WHERE offerta = " + Replace(RS_offerta__MMColParam, "'", "''") + ""
RS_offerta.CursorType = 0
RS_offerta.CursorLocation = 2
RS_offerta.LockType = 1
RS_offerta.Open()
RS_offerta_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title>TAURISANO - HOME</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="stile1.css" rel="stylesheet" type="text/css">
</head>
<body background="immagini/default1-10.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="left">
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p align="center">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="398" height="120">
<param name="movie" value="banner_01.swf">
<param name="quality" value="high">
<embed src="banner_01.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="398" height="120"></embed></object>
</p>
<table width="380" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor="#CCFFFF">
<td height="0" colspan="2" class="testo1"> <div align="center">[img]immagini/offerta_mese.gif[/img]</div></td>
</tr>
<tr>
<td width="36">">[img]vedi.aspx?img=immagini/usato/<%=(RS_offerta.Fields.Item([/img]&l=160&h=120" border="0"></td>
<td width="354" valign="top" bgcolor="#CCFFFF" class="testo1"><p class="testo2"><%=(RS_offerta.Fields.Item("marca").Value)%><%=(RS_offerta.Fields.Item("modello").Value)%><%=(RS_offerta.Fields.Item("versione").Value)%></p>
<p class="testo1">anno <%=(RS_offerta.Fields.Item("anno").Value)%>• chilometri <%=(RS_offerta.Fields.Item("chilometri").Value)%>
colore <%=(RS_offerta.Fields.Item("colore").Value)%>
cilindrata<%=(RS_offerta.Fields.Item("cc").Value)%> • CV <%=(RS_offerta.Fields.Item("CV").Value)%>• KW <%=(RS_offerta.Fields.Item("KW").Value)%></p>
<span class="testo2">prezzo € <%=(RS_offerta.Fields.Item("prezzo").Value)%></span></p>
</td>
</tr>
</table>
<div align="center">
[img]immagini/passione.jpg[/img]
<span class="testo2"> Nuovo e Seminuovo
• Plurimarche Garantito • Specialisti Vetture Direzionali
e <a href="scegli-auto-comm.asp">Veicoli Commerciali
</a>
</span></div></td>
</tr>
</table>
</div>
</body>
</html>
<%
RS_offerta.Close()
Set RS_offerta = Nothing
%>
la riga 120 è la seguente:
lo so vi sto creando due scatole enormi
e cmq sempre grazie!!!!!!!!!
VVoVe:
Permessi di invio
Rispondi quotando