Newsgroup: it.comp.www.asp
Titolo: '800a000d'

Ciao a tutti,
sono l'amministratore del sito 
ww.mna.it
 che mantiene al suo interno anche
una sezione in asp per effettuare delle ricerche in un database di campioni
biologici.
Non sono uno sviluppatore asp, per cui la mia conoscenza è relativamente
scarsa, e mi ritrovo a dover "aggiustare" una pagina che non funziona...
Partendo da 
http://192.167.121.43/centrostudi/biolo_db.htm
, scegliendo
ricerca nel "NEKTON", poi per crociera "Rossmize cruise", si seleziona un
campione risultante per vederne le caratteristiche, in queste
caratteristiche c'è riportato sulla destra un microscopio al cui clic si
genera l'errore
Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'CInt'
/centrostudi/campioni.asp, line 45
riporto sotto il codice della pagina in questione da cui si genera l'errore:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="mna_01.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY  MARGINHEIGHT=10 TOPMARGIN=10 LEFTMARGIN=10 RIGHTMARGIN=10
MARGINWIDTH=10 LINK="#FF0000" VLINK="#FF6633" ALINK="#FF6633">  </p>
  <table width="780" border="0" align="left">
    <tr>
      <td class="tit_par_start"> <div align="center"></div></td>
    </tr>
    <tr>
      <td class="tit_par_start" height="472">
<%
Set DBConn=Server.CreateObject("ADODB.Connection")
If Request.Form("Tipo")="Benthos" Then
 DBConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("BENTHOS.MDB")
Else
 DBConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("PLANCTON.MDB")
End If
Set RS=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Campioni.N_Camp, Gruppo.Gruppo, Gruppo.Cod_Cat, Specie.Spec
FROM "
SQL = SQL & "Gruppo RIGHT JOIN (Specie RIGHT JOIN (Campioni RIGHT JOIN
[Specie*Campioni] ON "
SQL = SQL & "Campioni.Cod_Camp=[Specie*Campioni].Cod_Camp) ON "
SQL = SQL & "Specie.Cod_Spec=[Specie*Campioni].Cod_Spec) ON "
SQL = SQL & "Gruppo.Cod_gruppo=[Specie*Campioni].Cod_Gruppo WHERE "
SQL = SQL & "Campioni.Cod_Camp=" & Request.Form ("Campione")
'Response.Write (SQL)
RS.Open SQL, DBConn
%>
<CENTER>
<TABLE BORDER=1 align="center" CELLPADDING=7 CELLSPACING=1
BORDERCOLOR="#0080C0">
<TR >
          <TD ><span class="mna_04">SAMPLE</span></FONT></TD>
<TD  ALIGN=CENTER><%=RS("N_camp")%></FONT></TD>
</TR>
<TR >
          <TD ><span class="mna_04">SPECIES</span></FONT></TD>
          <TD ><span class="mna_04">GROUP</span></FONT></TD>
</TR>
<%
Do While Not(RS.EOF)%>
<TR ><%
If RS("Cod_Cat")=CInt(Request.Form("Tipo")) Then %>
<TD  ALIGN=CENTER><FONT FACE="Arial,Helvetica" COLOR="#FFFFFF"
SIZE="-1"><%=RS("Spec")%></FONT></TD>
<TD  ALIGN=CENTER><FONT FACE="Arial,Helvetica" COLOR="#FFFFFF"
SIZE="-1"><%=RS("Gruppo")%></FONT></TD><%
Else%>
<TD  ALIGN=CENTER><FONT FACE="Arial,Helvetica" COLOR="#ABABAB"
SIZE="-1"><%=RS("Spec")%></FONT></TD>
<TD  ALIGN=CENTER><FONT FACE="Arial,Helvetica" COLOR="#ABABAB"
SIZE="-1"><%=RS("Gruppo")%></FONT></TD><%
End If%>
</TR>
<% RS.MoveNext
Loop%>
</TABLE>
      <div align="center"></div>
      <div align="center"><BR>
      </div>
      <FORM METHOD="POST" ACTION="visualizza.asp">
<INPUT TYPE="HIDDEN" NAME="Tipo" VALUE="<%=Request.Form("Tipo")%>">
<INPUT TYPE="HIDDEN" NAME="Origine" VALUE="<%=Request.Form("Origine")%>">
<INPUT TYPE="HIDDEN" NAME="SQL" VALUE="<%=Request.Form("SQL")%>">
<INPUT TYPE="HIDDEN" NAME="CurStaz" VALUE="<%=Request.Form("CurStaz")%>">
<INPUT TYPE="HIDDEN" NAME="NStaz" VALUE="<%=Request.Form("NStaz")%>">
<INPUT TYPE="HIDDEN" NAME="FromCampioni" VALUE="True">
<INPUT TYPE="IMAGE" SRC="gifs/app_altraricerca.gif" BORDER=0 ALT="ALTRA
RICERCA" NAME="Back">
</FORM>
  <p>
    <%
RS.Close
DBConn.Close
%>
</td>
ecc............
come fare?
grazie
antonio

 If RS("Cod_Cat") & "" = Request.Form("Tipo") & "" Then %>
Che ottiene lo stesso identico risultato ma non ti da errore in caso di dati
non numerici inviati.
-- 
:: Massimiliano Mattei
:: Project Leader
:: EVA Group :: 
www.evagroup.net
:: Soluzioni extranet :: e-business :: corporate portal

 ha scritto nel messaggio
news:c6amnb$4qm$1...@lacerta.tiscalinet.it...

ti ringrazio!
ora funziona
:-)

questione da cui si genera l'errore:
Ciao, ti hanno gia' risposto al tuo post. Io aggiungo solo
che la prossima volta che posti del codice ,
ti conviene non mettere il nome con il percorso
completo del database!!! Il newsgroup e' pubblico
di conseguenza non si sa mai chi lo legge....
per dirla tutta, se hai possibilita' di farlo, ti suggerirei
di cambiare nome alle banche dati...
Ciao
Nev

 
Ecco, adesso comincia a fare due piccole migliorie:
1) usa, se possibile, una connessione OLEDB al posto di ODBC
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=...."
2) NON usare il server.mappath se il db sta sempre lì.
Se non lo sai, fai una paginetta che lo stampa a video (poi la togli), 
quindi ti copi il percorso (che sarà tipo "c:\cartella...." e incolli 
quello nelle stringhe di connessione. E' inutile che il server si 
calcoli il percorso ogni volta, se poi è sempre quello.
Ciao!
------------------------------------------------
Meglio dire a tua madre che fai il pianista 
in un bordello, piuttosto che il webmaster.
------------------------------------------------

"Neverino" <never...@superevaSPAM.it> ha scritto nel messaggio
news:c6b4cf$g8g$1...@news.ngi.it...

grazie!
anche se non sono banche dati vitali cerco di aggiustare la mia bischerata
:-)
antonio


ciao, ti ringrazio per queste dritte, ma ho assoluta necesità di studiare un
pò prima di poterci mettere le mani in questo modo...
già, la stampa del path non mi è riuscita, quindi pensa un pò in che
condizioni sono :-)
comprato libro nuovo, vediamo se riesco a cavarci le gambe
antonio

Mi sai dire perchč cambiare ODBC in OLEDB?
Io ho una cinquantina di siti in gestione e usano tutti ODBC locali
(dsnless)
vi vedono le differenze?


si...
-- 
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.ebow.it/blog/
 - Mktg Log
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004

E' sufficiente cambiare la stringa?

 
Sě.
http://www.connectionstrings.com/
