Du får lige et eksempel som skulle virke i IE, men ikke i FF
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Formulartest</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="
http://schemas.microsoft.com/intellisense/ie5"> <script type="text/javascript">
function validateForm()
{
if (confirm("Vil du afsende formularen?"))
{
document.getElementById('txtMailData').value = escape(document.getElementById('divMailData').innerHTML);
return true;
}
else
return false;
}
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<div id="divMailData">
<table cellpadding="0" cellspacing="0">
<tr>
<td>Fornavn: </td>
<td><asp:TextBox ID="txtFirstName" Runat="server"></asp:TextBox></td>
</tr>
<tr>
<td>Efternavn: </td>
<td><asp:TextBox ID="txtLastName" Runat="server"></asp:TextBox></td>
</tr>
<tr>
<td>Køn:</td>
<td>
<asp:DropDownList ID="ddlGender" Runat="server">
<asp:ListItem Value="0">Vælg køn</asp:ListItem>
<asp:ListItem Value="male">Mand</asp:ListItem>
<asp:ListItem Value="female">Kvinde</asp:ListItem>
</asp:DropDownList>
</td>
</tr>
</table>
</div>
<asp:Button ID="btnSend" Runat="server" Text="Send"></asp:Button>
<input type="hidden" id="txtMailData" name="txtMailData">
</form>
</body>
</HTML>
og de tilhørende codebehind funktioner
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Me.btnSend.Attributes.Add("onclick", "java script:return validateForm();")
End If
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
Dim oMail As New Mail.MailMessage
oMail.Body = Me.MailData()
oMail.From = "_afsender_"
oMail.To = "_modtager_"
oMail.Subject = "Afsendelse af formular"
oMail.BodyFormat = System.Web.Mail.MailFormat.Html
Mail.SmtpMail.SmtpServer = "_smtpserver_"
Try
Mail.SmtpMail.Send(oMail)
Catch ex As Exception
' Skriv besked
End Try
End Sub
Private Function MailData() As String
Dim sb As New System.Text.StringBuilder
Dim sMailData As String = HttpUtility.UrlDecode(Request.Form("txtMailData"), System.Text.Encoding.GetEncoding(1252))
sb.Append("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf)
sb.Append("<html>" & vbCrLf)
sb.Append("<head>" & vbCrLf)
sb.Append("<style type=""text/css"">" & vbCrLf)
sb.Append("BODY, TABLE, SELECT, INPUT, TEXTAREA, TR, TD, TH" & vbCrLf)
sb.Append("{" & vbCrLf)
sb.Append(" font-family:verdana;" & vbCrLf)
sb.Append(" font-size:8pt;" & vbCrLf)
sb.Append("}" & vbCrLf)
sb.Append("</style>" & vbCrLf)
sb.Append("<title>Test</title>" & vbCrLf)
sb.Append("</head>" & vbCrLf)
sb.Append("<body>" & vbCrLf)
sb.Append("<form id=""frmMail"">")
sb.Append(sMailData)
sb.Append("</form>")
sb.Append("</body>")
sb.Append("</html>")
MailData = sb.ToString
End Function
vbCrLf kan udskiftes med System.Environment.NewLine
Ny bruger
Nybegynder
Opret
Preview
