Ciao a tutti!!!
Mi è capitato un errore assurdo!!!VVoVe:
Ho una pagina ASP che effettua una normalissima SELECT * su una tabella di un .MDB ma, non riesco a capire per quale motivo, mi visualizza sempre il secondo record presente saltando il primo...
Ho provato ad eseguire la stessa stringa SQL dalle query di Access e me mi mostra tutti i record presenti nella tabella incriminata...
Vi riporto il codice della pagina...
-------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%On error resume next %>
<%
Dim annunci_tmp
Dim annunci_tmp_numRows
Set annunci_tmp = Server.CreateObject("ADODB.Recordset")
annunci_tmp.ActiveConnection = MM_work_area_STRING
if request.querystring("id_ins") <> "" then
annunci_tmp.Source = "SELECT * FROM ANNUNCI_TMP WHERE ID_ANNUNCIO = " & cint(request.querystring("id_ins")) + 1
else
annunci_tmp.Source = "SELECT * FROM ANNUNCI_TMP"
end if
annunci_tmp.CursorType = 0
annunci_tmp.CursorLocation = 2
annunci_tmp.LockType = 1
annunci_tmp.Open()
response.write annunci_tmp.Source
if annunci_tmp.eof = true then response.redirect("mannunci_insertS8.asp")
if request.querystring("num_ann") <> "" then
num_annuncio = cint(request.querystring("num_ann")) + 1
else
num_annuncio = 1
end if
annunci_tmp_numRows = 0
%>
<%
Dim categorie
Dim categorie_numRows
Set categorie = Server.CreateObject("ADODB.Recordset")
categorie.ActiveConnection = MM_visentin_STRING
categorie.Source = "SELECT * FROM TIPI"
categorie.CursorType = 0
categorie.CursorLocation = 2
categorie.LockType = 1
categorie.Open()
categorie_numRows = 0
%>
<%
Dim MM_paramName
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../stili/form_sfondo.css" rel="stylesheet" type="text/css">
<link href="../stili/moduli.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_valida teForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' deve essere un numero intero.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' è obbligatorio.\n'; }
} if (errors) alert('Si sono verificati i seguenti errori:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</p>
<form action="mannunci_insertS7.asp?id_ins=<%=annunci_tm p.Fields.Item("ID_ANNUNCIO").Value%>&num_ann=<%=nu m_annuncio%>" method="post" name="form2" onSubmit="MM_validateForm('prezzo','','NisNum','te sto','','R');return document.MM_returnValue">
<tr>
<td width="478" height="221"> <table width="478" height="502" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#CCCCCC">
<td colspan="4"> <div align="center"><font color="#FFFFFF"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Inserimento
annunci multiplo - fase finale</font></font></div></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="28" colspan="4"> <div align="center"><font color="#FFFFFF"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Annuncio
n°<%=num_annuncio%></font></font></div></td>
</tr>
<tr bgcolor="#FFFFCC">
<td height="208"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Testo:</font></div></td>
<td height="208" colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font><font size="1">
<textarea name="testo" cols="62" rows="15" class="form"><%=(annunci_tmp.Fields.Item("TESTO_AN NUNCIO").Value)%></textarea>
<input name="ID_AG" type="hidden" id="ID_AG" value="<%=(annunci_tmp.Fields.Item("ID_AGENZIA").V alue)%>">
</font></td>
</tr>
<tr bgcolor="#FFFFCC">
<td height="39"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Tipo:</font></div></td>
<td height="39"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select name="tipi" class="form">
<%
While (NOT categorie.EOF)
%>
<option value="<%=(categorie.Fields.Item("ID").Value)%>" <%If (Not isNull((annunci_tmp.Fields.Item("TIPO_ANNUNCIO").V alue))) Then If (CStr(categorie.Fields.Item("ID").Value) = CStr((annunci_tmp.Fields.Item("TIPO_ANNUNCIO").Val ue))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(categorie.Fields.Item("tipo").Value)%></option>
<%
categorie.MoveNext()
Wend
If (categorie.CursorType > 0) Then
categorie.MoveFirst
Else
categorie.Requery
End If
%>
</select>
</font></td>
<td height="39"></td>
<td width="161" height="39"></td>
</tr>
<tr bgcolor="#FFFFCC">
<td width="58" height="39"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Prezzo:</font></div></td>
<td width="144" height="39"> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
€
<input name="prezzo" type="text" class="form" size="10" value="0">
</font></div></td>
<td width="115" height="39"> <div align="right"></div></td>
<td height="39"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font> </td>
</tr>
<tr bgcolor="#FFFFCC">
<td height="37"> <div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Località:</font></div></td>
<td><font color="#000000">
<select name="loc_ann" class="form" size="8">
<option value="In Padova" selected <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In Padova" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In Padova</option>
<option value="In provincia di Padova" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Padova" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Padova</option>
<option value="In provincia di Venezia" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Venezia" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Venezia</option>
<option value="In provincia di Vicenza" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Vicenza" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Vicenza</option>
<option value="In provincia di Treviso" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Treviso" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Treviso</option>
<option value="In provincia di Belluno" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Belluno" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Belluno</option>
<option value="In provincia di Rovigo" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Rovigo" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Rovigo</option>
<option value="In provincia di Verona" <%If (Not isNull((annunci_tmp.Fields.Item("LOCALITA").Value) )) Then If ("In provincia di Verona" = CStr((annunci_tmp.Fields.Item("LOCALITA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>In
provincia di Verona</option>
</select>
</font></td>
<td> <div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Tipologia
edilizia: </font></div></td>
<td> <select name="tipo_ed_ann" class="form" id="tipo_ed_ann" size="10">
<option value="Qualsiasi" selected <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Qualsiasi" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Qualsiasi</option>
<option value="Una camera" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Una camera" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Una
camera</option>
<option value="Due camere" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Due camere" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Due
camere</option>
<option value="Tre camere" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Tre camere" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Tre
camere</option>
<option value="4 camere ed oltre" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("4 camere ed oltre" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>4
camere ed oltre</option>
<option value="A schiera o plurifamiliare" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("A schiera o plurifamiliare" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>A
schiera o plurifamiliare</option>
<option value="Bifamiliare" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Bifamiliare" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Bifamiliare</option>
<option value="Casa singola o villa" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Casa singola o villa" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Casa
singola o villa</option>
<option value="Attico" <%If (Not isNull((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Va lue))) Then If ("Attico" = CStr((annunci_tmp.Fields.Item("TIPOLOGIA_ED").Valu e))) Then Response.Write("SELECTED") : Response.Write("")%>>Attico</option>
.......
Rispondi quotando
