cint in errore in IE

**tosk** · 14-11-2006, 17:54

Salve a tutti, ho creato, con un emulatore di server, un sito in asp per un ufficio che fa da gestionale. Sul mio firefox va tutto bene, ma su IE (che ha il cliente) va in errore quando chiamo il comando "cint" o "cdbl". Il fatto è che devo impostare una variabile, passata da un link, a valore numerico, per confrontarla in un "IF" per fare eseguire un'azione. Suggerimenti? Grazie

**wallrider** · 14-11-2006, 17:57

se stai parlando di ASP mi sembra strano che dipenda dal browser :master:

**willybit** · 14-11-2006, 18:00

ma tu hai provato con FF funziona e con IE da errore?
ASP lavora lato server quindi è indipendente dal browser... porva a postare un po' di codice

**tosk** · 14-11-2006, 18:03

Lo so che sembra impossibile, eppure su FF va
Su IE si pianta, sia da me che dal cliente

codice:

<html>

<%

ID = request("ID")
ancora = request("ancora")
ancoretta = cint(request("ancoretta"))

sql = "SELECT * FROM fatture WHERE ID = "& ID
	
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

numerofattura = rs("numero")

destinatario = rs("cliente")
if destinatario = "" then
	destinatario = rs("fornitore")
End if

'DETERMINO IVA E SCONTO DEL CLIENTE
sql3 = "SELECT * FROM clienti WHERE cliente = '"& destinatario &"'"
Set rs3 = Conn.Execute(sql3)
if rs3("iva") = 1 then
	IVA = 20
Else
	IVA = 0
End IF
percsconto = rs("sconto")



'SALDI SCADENZE
If rs("saldo1") = true then
	saldato1 = "Saldato!"
Else
	saldato1 = "Non Ancora saldato SALDA"
End  IF

If rs("saldo2") = true then
	saldato2 = "Saldato!"
Else
	saldato2 = "Non Ancora saldato SALDA"
End  IF

If rs("saldo3") = true then
	saldato3 = "Saldato!"
Else
	saldato3 = "Non Ancora saldato SALDA"
End  IF

If rs("saldo4") = true then
	saldato4 = "Saldato!"
Else
	saldato4 = "Non Ancora saldato SALDA"
End  IF

'TIPO DOCUMENTO
If rs("tipo") = "fattura" THEN
	tipo = "Fattura"
Elseif rs("tipo") = "nota" then
	tipo = "Nota di Accredito"
End IF

'SCADENZIARIO
numerorate = 1
If rs("scadenza2") <> "0.01.18" then
numerorate = numerorate + 1
end If
If rs("scadenza3") <> "0.01.18" then
numerorate = numerorate + 1
end If
If rs("scadenza4") <> "0.01.18" then
numerorate = numerorate + 1
end If

'CALCOLI
lordo = rs("imponibile")
sconto = lordo * percsconto / 100
netto = lordo - sconto
ivacifra = netto * iva / 100
totale = netto + ivacifra
rata = totale / numerorate

'ANCORA INTERNA
if ancora <> "" then
	response.redirect "fatture_scheda.asp?ID=" & ID & "&ancoretta=" & ancoretta &"#" & ancora
End if
%>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>scheda fattura</title>
<link media="print" rel="stylesheet" href="images/stampa.css" type="text/css">
<link rel="stylesheet" type="text/css" href="images/veneta.css">
<script>
<!--
function elimina()
{
return confirm("Sicuri di voler procedere con l'eliminazione?");
}
-->
</script>
</head>

<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="600" id="AutoNumber1" bgcolor="#FFFFFF">
  <tr>
    <td width="587"></td>
    <td width="13" align="left" valign="bottom">[img]images/top.gif[/img]</td>
  </tr>
  <tr>
    <td width="587">
    


    [img]images/titolo-pagine.gif[/img]</p>
    <p align="center">
    [img]images/fatture_scheda_titolo.gif[/img]

	Tipo documento: <%=tipo%>
	</p>
    <p align="left">
    [img]images/ddt_clienti_scheda_titolo2.gif[/img]</p>
    </td>
    <td width="13" background="images/lateral.gif"></td>
  </tr>
  <tr>
    <td width="587">
    
    <font size="2">Cliente/fornitore: <%=destinatario%>

    Data fattura: <%=rs("data")%>

    Numero fattura: <%=rs("numero")%>

    Data prima scadenza: <%=rs("scadenza1") & ", Euro " & rata & " - " & saldato1 %>

	<% If rs("scadenza2") <> "0.01.18" then %>
	Data seconda scadenza: <%=rs("scadenza2") & ", Euro " & rata &  " - " & saldato2 %>

	<% End IF 
	 If rs("scadenza3") <> "0.01.18" then %>
	Data terza scadenza: <%=rs("scadenza3") & ", Euro " & rata &  " - " & saldato3 %>

	<% End IF 
	 If rs("scadenza4") <> "0.01.18" then %>
	Data quarta scadenza: <%=rs("scadenza4") & ", Euro " & rata &  " - " & saldato4 %>

	<% End IF %>
    Riferimenti: <%=rs("riferimenti")%> 

	<%
	if rs("tipopagamento") <> "" then
			  tipopagamento = rs("tipopagamento")
			  else
			  	tipopagamento = rs3("tipopagamento")
			End if 
			%>
    Pagamento: <%=tipopagamento%> 

    Note fattura: <%=rs("note")%>
    </td>
    <td width="13" background="images/lateral.gif"></td>
  </tr>
  <tr>
    <td width="587">
    
    

    
    [img]images/fatture_scheda_titolo2.gif[/img]</td>
    <td width="13" background="images/lateral.gif"></td>
  </tr>
  <tr>
    <td width="587">
    <%

sql2 = "SELECT * FROM fatturearticoli WHERE numero = "& ID &" ORDER BY IDbolla, ID"
Set rs2 = Conn.Execute(sql2)

%>
    

    <% 
    If rs2.bof or rs2.eof then 
    response.write "Non ci sono Articoli in fattura al momento!!!!
"
    Else
    do while not rs2.eof
	IDbolla = rs2("IDbolla")
	IDtext = trim(rs2("ID"))
	if IDbolla <> 0 then
    bolla = "DDTn. " & rs2("numerobolla") & ""
	Else
	bolla = ""
	End IF
	if rs2("ID") <> ancoretta then
		gemacht = ""
	else
		gemacht = "QUI&gt;"
	End if	
	%>
	<font size="2"><a name="<%=rs2("ID")%>" id="<%=rs2("ID")%>"><%=gemacht%></a>-Art/serv:  <%=rs2("descrizione")%>, prezzo: <%=formatnumber(rs2("prezzo"),2)%>, quantità: <%=rs2("totalepezzi")%>, totale: <%=formatnumber(rs2("totaleriga"),2) & " " & bolla%></font>
	">[img]images/edit_mini.gif[/img]
	&IDbolla=<%=IDbolla%>" onCLick="return elimina();">[img]images/b3-canc.gif[/img]
	

    <%
	rs2.movenext
    Loop 
    End IF 
    rs2.close
    set rs2 = nothing
	%>
    


    <font size="2">Imponibile lordo fattura: € <%=formatnumber(lordo,2)%>

	Sconto (<%=percsconto%>%): <%=formatnumber(sconto,2)%>

	Imponibile netto fattura: <%=formatnumber(netto,2)%>

	IVA (<%=iva%>%): € <%=formatnumber(ivacifra,2)%>

	Totale Fattura: € <%=formatnumber(totale,2)%>

	Rateazione Pagamento: n. <%=numerorate%> rate da € <%=formatnumber(rata,2)%> cad.</font>
    </td>
    <td width="13" background="images/lateral.gif"></td>
  </tr>
  <tr>
    <td width="587">
    
    <div align="center">
      <center>
     
      
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="tabsup">
        <tr>
          <td width="25%" align="center">
          <a href="fatture_add_ddt.asp?ID=<%=rs("ID")%>&destinatario=<%=destinatario%>&numero=<%=rs("numero")%>">
          [img]images/b-ddt.gif[/img]</a></td>
          <td width="25%" align="center"><a href="fatture_stampa.asp?ID=<%=ID%>&numero=<%=rs("numero")%>">
        [img]images/b2-stampa.gif[/img]</a></td>
          <td width="25%" align="center">
        <a href="fatture_edit.asp?ID=<%=rs("ID")%>">
        [img]images/b2-modifica.gif[/img]"></a></td>
          <td width="25%" align="center">
        <a href="fatture_canc.asp?ID=<%=rs("ID")%>" onCLick="return elimina();">
        [img]images/b2-elimina.gif[/img]"></a></td>
        </tr>
        <tr>
          <td width="100%" align="center" colspan="4">
          <a href="fatture_addfree.asp?ID=<%=ID%>&numero=<%=rs("numero")%>">
          Aggiungi una voce libera in Fattura &gt;&gt;</a></td>
        </tr>
      </table>
      </center>
    </div> 
    </td>
    <td width="13" background="images/lateral.gif"></td>
  </tr>
  <tr>
    <td width="587" height="15">[img]images/base.gif[/img]</td>
    <td width="13" height="15" align="left" valign="top">[img]images/bottom.gif[/img]</td>
  </tr>
</table>
<%
rs3.close
set rs3 = nothing
rs.close
set rs = nothing
Conn.close
Set Conn = Nothing
%>
</body>

</html>

**willybit** · 14-11-2006, 18:19

è stranissima sta cosa :master:
quindi non ti da errore ma si pianta explorer? Hai provato a mettere un response.buffer=0 per vedere cosa ti arriva prima che si pianti?

se il problema è fare questo confronto

codice:

if rs2("ID") <> ancoretta then

puoi evitare di fare il CInt di ancoretta e fare invece il CStr di rs2("ID")

**tosk** · 14-11-2006, 18:29

Grazie innanzitutto
Mettendo anche il response.buffer non mi da particolari messaggi di eerore, solo:
"VBScript runtime error

Tipo non corrispondente: 'cint'"

Mettendo il CStr prima di rs2("ID") su FF, come al solito, funzione, su IE, non da errore, ma manco mi scrive il "qui" sul record/ancora

**br1** · 14-11-2006, 20:52

Dato che ci sei... prova anche con la sintassi:

numero = cint("0"&rs("campo"))

ciao

**tosk** · 14-11-2006, 21:22

No, non ne esco. Non so perché ma solo in questa pagina IE non mi vuole prendere "ancoretta" come numero

**br1** · 14-11-2006, 23:38

Potrebbe contenere caratteri non numerici... prova:

codice:

ancoretta = 0
if IsNumeric(request("ancoretta")) then
  ancoretta = cdbl(request("ancoretta"))
end if

ciao

**tosk** · 14-11-2006, 23:48

Stavo provando a dare un nome diverso alla variaile e rompe meno i maroni, comunque proverò anche il tuo consiglio, grazie

Discussione: cint in errore in IE

Strumenti discussione

Ricerca discussione

Visualizza

cint in errore in IE

Permessi di invio