6 messaggi dal 07 agosto 2007
Un aiuto!!!!!

nel debug mi da questo errore cosa c'è che non va?


Grazie
Posta il codice altrimenti la vedo dura.

Fabrizio Canevali
6 messaggi dal 07 agosto 2007
fabrica ha scritto:
Posta il codice altrimenti la vedo dura.




ECCCCCOOOOLLLOOOOOOOOOOOOOOOo


<%@ import Namespace = "System.Data" %>
<%@ import Namespace = "System.Data.sqlClient" %>

<%@ OutputCache Duration ="1" Location="None" %>
<script runat="server">
Private urldESTINAZIONE As String = ""
Private pathImage As String
Private errore As String = ""
Private idRecord As Long = 0

Protected Sub Page_Load(ByVal sender As Object, ByVal a As System.EventArgs) Handles Me.Load
Dim clsDB As New ClasseDB
Dim connString As String
Dim strSQL As String

Dim testoAlternativo As String = ""
Dim numeroVisualizzazioni As Long

Dim dataCorrente As Date = Today

If Not IsPostBack Then
urldESTINAZIONE = Request.ServerVariables("SCRIPT_NAME")

'Routine Che preleva il Banner
connString = ConfigurationManager.ConnectionStrings("STR_CONN").ConnectionString
Dim conn As New SqlConnection(connString)

strSQL = "SELECT TOP 1 * FROM Banner_Dati where NomeInMappa = 'TOPALTO1' AND dataInizio <= " & "'" & dataCorrente & "'" & " and (contaVisualizzazioni < MaxVisualizzazioni or contaclick < MaxClick) ORDER BY NEWID()"
Dim Command As New SqlCommand(strSQL, conn)

Try
conn.Open()
Dim myreader As SqlDataReader = Command.ExecuteReader()

While myreader.Read()
pathImage = myreader("urlImage")
testoAlternativo = myreader("testoAlternativo")
numeroVisualizzazioni = myreader("contaVisualizzazioni")
idRecord = myreader("ID")
urldESTINAZIONE = myreader("URLdestinazione")

End While
myreader.Close()
conn.Close()

If idRecord > 0 Then 'Se ha trovato un record allora procede ad incrementare la visualizzazione Altrimenti no
conn = New SqlConnection(connString)
conn.Open()
Dim cmd As SqlCommand = conn.CreateCommand

cmd.CommandText = "UPDATE banner_Dati SET contaVisualizzazioni = contaVisualizzazioni + 1 where id = " & idRecord
'variabile che contiene il valore di ritorno del metodo
Dim result As Integer = cmd.ExecuteNonQuery()

conn.Close()
Else
pathImage = "No_Banner_728_90.jpg"
End If

Catch EX As Exception
conn.Close()
errore = "Errore di riceca Immagine. " & EX.Message.ToString
Finally

End Try

End If

clsDB = Nothing
End Sub

</script>

<html>

<head>
<meta content="text/JScript" http-equiv="content-script-type" />


</head>
<body topmargin="0" leftmargin="0" style="font-family: Verdana">

<div align="center">
<center>
&nbsp;</center>
<center>

<%If errore = "" Then%>
<a href="ContaClick.aspx?index=<%=idrecord%>&GoTO=<%=urldESTINAZIONE %>"><img border="0" src=<%="ImmaginiBanner/" & pathImage %>></a>&nbsp;
<%Else
Response.Write(errore)
End If%>


</center>
</div>

</body>

</html>
2.410 messaggi dal 13 febbraio 2003
Contributi
Non è che hai lo stesso problema già risolto qui?
http://forum.aspitalia.com/forum/post/301732/AIUTOOOOO-Messaggio-Errore-Compilatore.aspx

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.