Ragazzi mi potete aiutare ?
All' Avvio della Maschera mi compare sempre l'errore in giallo
(
Basta andare al Sito per Visualizzarlo
Fa parte dei miei Documenti su Google
)
http://docs.google.com/View?docID=ddbn76h4_556dnjzdkd4&revision=_latest&hgd=1
Penso sia un errore a RunTime,
non penso sia associato al Listato della Maschera quanto alla proprietà del Campo Testo.
Qualcuno può aiutarmi ?
Di seguito il Listato associato alla Maschera :
Imports System.Net.Mail
Imports System.Data
Partial Class Richiesta****
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
' '''''''''''''''''''''''''''''''''''''''''
' Aggiorna le Variabili Testuali dalle Variabili Sessione
' '''''''''''''''''''''''''''''''''''''''''
Nominativo.Text = Session("Nominativo")
UserName.Text = Session("UserName")
EMail.Text = Session("EMail")
****.Text = Session("****")
Codice****.Text = Session("Codice****")
****Richiesta.Text = Session("****Richiesta")
' '''''''''''''''''''''''''''''''''''''''''
End If
End Sub
Protected Sub Invia_Email_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Invia_Email.Click
' '''''''''''''''''''''''''''''''''''''''''
' Controllo dei Campi
' '''''''''''''''''''''''''''''''''''''''''
' Nominativo
If Trim(Nominativo.Text) = "" Then
StatoMaschera.Text = "Inserire un Nominativo Corretto"
Exit Sub
End If
' UserName
If Trim(UserName.Text) = "" Then
StatoMaschera.Text = "Inserire un UserName Corretto"
Exit Sub
End If
' ****
If Trim(****.Text) = "" Then
StatoMaschera.Text = "Inserire un Numero **** Corretto"
Exit Sub
End If
' Codice ****
If Trim(Codice****.Text) = "" Then
StatoMaschera.Text = "Inserire un Codice **** Corretto"
Exit Sub
End If
If Len(Codice****.Text) <> 16 Then
StatoMaschera.Text = "Il Codice **** Inserito ha un Numero di Caratteri Errato"
Exit Sub
End If
' Codice Sede Richiesta
If Trim(****Richiesta.Text) = "" Then
StatoMaschera.Text = "Inserire un Codice Sede Corretto"
Exit Sub
End If
' '''''''''''''''''''''''''''''''''''''''''
' '''''''''''''''''''''''''''''''''''''''''
' Invia la Richiesta a ****
' '''''''''''''''''''''''''''''''''''''''''
Try
' Imposto il Client per accedere al Server di Posta
Dim Client As New SmtpClient("SMTP.****")
' '''''''''''''''''''''
' ****.d****@****.com : Richiesta ****
' '''''''''''''''''''''
Dim Body As String = ""
Dim Message As New MailMessage
Body = Body + " " + "EMail Generata Automaticamente, non Elaborare, Inviata a ****.d****@****.com"
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + "Si chiede di consentire all'utente, che segue, di accedere al cruscotto."
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " Nominativo : " + Nominativo.Text
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " UserName : " + UserName.Text
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " EMail : " + UserName.Text
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " **** : " + ****.Text
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " Codice **** : " + Codice****.Text
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + " Codice Sede : " + ****Richiesta.Text
Body = Body + " " + Chr(13) & Chr(10)
'Imposto i parametri
Message.From = New MailAddress("****.****@****.it")
Message.To.Add(New MailAddress(EMail.Text)) ' ****.d****@****.com
Message.Subject = "Richiesta **** : " + Nominativo.Text
Message.Body = Body
' '''''''''''''''''''''
' Invio il messaggio
Client.Send(Message)
StatoMaschera.Text = "La Sua Richiesta è Stata Segnalata. Sarà Accolta in Tempi Brevi."
Catch Ex As Exception
StatoMaschera.Text = "Si è verificato un Errore di Connessione, Riprovare fra qualche Minuto"
Exit Sub
End Try
' '''''''''''''''''''''''''''''''''''''''''
' '''''''''''''''''''''''''''''''''''''''''
' Invia la Risposta al Richiedente
' '''''''''''''''''''''''''''''''''''''''''
Try
' Imposto il Client per accedere al Server di Posta
Dim Client As New SmtpClient("SMTP.****")
' '''''''''''''''''''''
' ****.d****@****.com : Richiesta ****
' '''''''''''''''''''''
Dim Body As String = ""
Dim Message As New MailMessage
Body = Body + " " + "EMail Generata Automaticamente, non Elaborare, Inviata a Mittente"
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + "La Sua Richiesta è stata Segnalata."
Body = Body + " " + Chr(13) & Chr(10)
Body = Body + " " + "Verrà Accolta in Tempi Brevi"
Body = Body + " " + Chr(13) & Chr(10)
'Imposto i parametri
Message.From = New MailAddress("****.****@****.it")
Message.To.Add(New MailAddress(EMail.Text)) ' Richiedente
Message.Subject = "Richiesta **** : " + Nominativo.Text
Message.Body = Body
' '''''''''''''''''''''
' Invio il messaggio
Client.Send(Message)
StatoMaschera.Text = "La Sua Richiesta è Stata Segnalata. Sarà Accolta in Tempi Brevi."
Catch Ex As Exception
StatoMaschera.Text = "Si è verificato un Errore di Connessione, Riprovare fra qualche Minuto"
Exit Sub
End Try
' '''''''''''''''''''''''''''''''''''''''''
' '''''''''''''''''''''''''''''''''''''''''
' Se EMailinviata allora
' Salva sulla Tabella Richiesta ****
' '''''''''''''''''''''''''''''''''''''''''
Try
Dim SqlCommand As String
SqlCommand = " "
SqlCommand = SqlCommand + "Insert "
SqlCommand = SqlCommand + " Into Tb_Richiesta_****( "
SqlCommand = SqlCommand + " Nominativo,"
SqlCommand = SqlCommand + " User_Id,"
SqlCommand = SqlCommand + " E_Mail,"
SqlCommand = SqlCommand + " ****,"
SqlCommand = SqlCommand + " Codice_****,"
SqlCommand = SqlCommand + " Sede,"
SqlCommand = SqlCommand + " Stato,"
SqlCommand = SqlCommand + " Data_Stato,"
SqlCommand = SqlCommand + " Data_Inserimento)"
SqlCommand = SqlCommand + " Values ("
SqlCommand = SqlCommand + " '" + Nominativo.Text + "',"
SqlCommand = SqlCommand + " '" + UserName.Text + "',"
SqlCommand = SqlCommand + " '" + UserName.Text + "',"
SqlCommand = SqlCommand + " '" + ****.Text + "',"
SqlCommand = SqlCommand + " '" + Codice****.Text + "',"
SqlCommand = SqlCommand + " '" + ****Richiesta.Text + "',"
SqlCommand = SqlCommand + " " + "1" + ","
SqlCommand = SqlCommand + " '" + Now().Date + "',"
SqlCommand = SqlCommand + " '" + Now().Date + "')"
SqlDataSource1.InsertCommand = SqlCommand
SqlDataSource1.Insert()
Catch ex As Exception
StatoMaschera.Text = "La Sua Richiesta è stata segnalata. Informazione non memorizzata nella Base Dati."
Exit Sub
End Try
' '''''''''''''''''''''''''''''''''''''''''
End Sub
Protected Sub Annulla_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Annulla.Click
Response.Redirect("Default.aspx")
End Sub
End Class
Credo sia un errore a Run Time ma non riesco proprio a capire quale sia.
