Errore : Testo nella Maschera che all' avvio è gialla

mercoledì 21 gennaio 2009 - 15.07

lucaverdi1970 Profilo | Newbie

Ragazzi mi potete aiutare ?

All' Avvio della Maschera mi compare sempre l'errore in giallo


618x432 12Kb


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.

alx_81 Profilo | Guru

>Ragazzi mi potete aiutare ?
Hai provato a vedere le proprietà iniziali della TextBox? Hai un file di designer insieme al tuo aspx.vb?
Sicuro che sia un errore? Cosa ti aspetteresti?
--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

lucaverdi1970 Profilo | Newbie

Mi aspetterei tutti i campi in bianco.

Ho un file di Designer associato alla Maschera eccolo :

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Richiesta****.aspx.vb" Inherits="Richiesta****" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<link rel="stylesheet" type="text/css" href="stile.css"/>
<style type="text/css">
@import url(stile.css);
</style>

<title>Richiesta ****</title></head>
<body>
<form id="form1" runat="server">
<div>
&nbsp;
<asp:HyperLink ID="Home" runat="server" NavigateUrl="~/Default.aspx" Style="left: 220px; top: 43px">Home</asp:HyperLink><br />
<br />
<asp:Label ID="Label10" runat="server" Font-Bold="True" Text="Richiesta di **** di Accesso al Sito di ****"></asp:Label><br />
<br />
<br />
<table style="border-right: white thin solid; border-top: white thin solid; border-left: white thin solid; border-bottom: white thin solid">
<tr>
<td style="width: 206px" align="center">
<asp:Label ID="Label3" runat="server" Text="Utente : Nominativo " Width="175px"></asp:Label></td>
<td style="width: 3px">
<asp:TextBox ID="Nominativo" runat="server" Width="248px"></asp:TextBox></td>
<td style="width: 3px">
<asp:Label ID="Label6" runat="server" Text=" " Width="30px"></asp:Label></td>
</tr>
<tr>
<td style="width: 206px" align="center">
<asp:Label ID="Label11" runat="server" Text="Utente : User_Name" Width="178px"></asp:Label></td>
<td style="width: 3px">
<asp:TextBox ID="UserName" runat="server" Width="248px"></asp:TextBox></td>
<td style="width: 3px">
</td>
</tr>
<tr>
<td style="width: 206px" align="center">
<asp:Label ID="Label1" runat="server" Text="Utente : EMail" Width="178px"></asp:Label></td>
<td style="width: 3px">
<asp:TextBox ID="EMail" runat="server" Width="248px"></asp:TextBox></td>
<td style="width: 3px">
</td>
</tr>
<tr>
<td style="width: 206px; height: 24px;" align="center">
<asp:Label ID="Label2" runat="server" Text="Utente : ****" Width="170px"></asp:Label></td>
<td style="width: 3px; height: 24px;">
<asp:TextBox ID="****" runat="server" Width="248px"></asp:TextBox></td>
<td style="width: 3px; height: 24px;">
</td>
</tr>
<tr>
<td style="width: 206px" align="center">
<asp:Label ID="Label4" runat="server" Text="Utente : Codice ****" Width="171px"></asp:Label></td>
<td style="width: 3px">
<asp:TextBox ID="Codice****" runat="server" Width="248px"></asp:TextBox></td>
<td style="width: 3px">
</td>
</tr>
<tr>
<td style="height: 26px; width: 206px;" align="center">
<asp:Label ID="Label5" runat="server" Text="**** : Codice " Width="199px"></asp:Label></td>
<td style="width: 3px; height: 26px;" align="left">
<asp:TextBox ID="Codice****Richiesta" runat="server" Width="76px"></asp:TextBox></td>
<td align="left" style="width: 3px; height: 26px">
</td>
</tr>
</table>
<br />
<br />
<br />
<table style="border-top-width: thin; border-left-width: thin; border-left-color: white;
border-bottom-width: thin; border-bottom-color: white; border-top-color: white;
border-right-width: thin; border-right-color: white">
<tr>
<td style="width: 155px; height: 26px">
<asp:Button ID="Annulla" runat="server" BorderColor="Blue" Text="Annulla" SkinID="7" /></td>
<td style="width: 153px; height: 26px">
</td>
<td style="width: 162px; height: 26px">
<asp:Button ID="Invia_Email" runat="server" BorderColor="Blue" Text="Invia Richiesta" SkinID="8" /></td>
</tr>
</table>

</div>
<br />
<br />
<br />
<asp:Label ID="StatoMaschera" runat="server" Font-Size="Small" Width="493px"></asp:Label>
<br />
<br />
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:STDP_WebConnectionString %>"
SelectCommand="SELECT * FROM [Tb_Richiesta_****]" ProviderName="<%$ ConnectionStrings:STDP_WebConnectionString.ProviderName %>"></asp:SqlDataSource>
</form>
</body>
</html>

Di seguito un immaggine del Designer presa dai miei Documenti su Google
http://docs.google.com/View?docID=ddbn76h4_560c6v2bfhj&revision=_latest&hgd=1

Spero mi possa aiutare.

Ciao

alx_81 Profilo | Guru

Se scrivi qualcosa nella maschera va via quel giallo o è sempre e comunque giallo?
prova a mettere la tua mail dentro..
--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

lucaverdi1970 Profilo | Newbie

In Seguito ad Invia Richiesta ottengo

http://docs.google.com/Doc?id=ddbn76h4_566d45spzk7

Funziona Tutto, ma compare sempre quello sfondo in giallo

alx_81 Profilo | Guru

>Funziona Tutto, ma compare sempre quello sfondo in giallo
non è che c'è un foglio di stile unito a questa pagina?

--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

lucaverdi1970 Profilo | Newbie

No, non vi è associato un foglio di Stile.

Ho provato a commentare tutto il Codice prima segnalato ma continua a darmi lo stesso errore.
Sempre quel giallo, nella Casella di Testo.

Quello che mi viene da pensare è un problema nella Casella di Testo.

Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra
Anche così l' errore non va via.

Qualche suggerimento ?

alx_81 Profilo | Guru

>No, non vi è associato un foglio di Stile.
è stranissimo.. Prova a fare una pagina nuova con lo stesso codice..
--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

lucaverdi1970 Profilo | Newbie

Guarda

Giuro che un errore come questo non lo avevo mai visto.

Attualmente sembra Risolto.
Ho sostituito alla Parola EMail la Parola Mail all' interno del Listato che ti ho fatto vedere.

Sinceramente non ne capisco il Motivo.
Che 'EMail' sia una parola riservata ?

Prima ti avevo detto di non avere un foglio di Stile.
Mi sono accorto ora di averlo,
l'indirizzo per vederlo è http://docs.google.com/Doc?id=ddbn76h4_568g8phvrhp

Comunque adesso, per il momento, funziona.

Ciao e grazie

alx_81 Profilo | Guru

Facciamo così, ho il foglio di stile, ho il designer della form, provo su un mio progetto vs2008..
vediamo che succede..
--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

alx_81 Profilo | Guru

Controllato il foglio di stile e non sembra che ci sia del giallo sulle textbox.
Però ho trovato questa classe:

.DaySelected
{
color:Red;
background-color:yellow;
font-weight:bold;
font-size: medium;
font-family:Times New Roman;
}

Ma sembra che serva per eventuali datetimepicker, anche perchè dovrebbe fare il font rosso e invece a te risulta nero..
Comunque, io lo vedo bianco.. Non saprei proprio che altro dirti..

--

Alessandro Alpi | SQL Server MVP

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
http://italy.mvps.org

lucaverdi1970 Profilo | Newbie

Grazie

Magari chiederò ancora il tuo parere se vi saranno altri problemi.

Gentilissimo, Saluti
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5