Avatar billede arj79 Nybegynder
04. november 2004 - 10:27 Der er 3 kommentarer og
1 løsning

mail form

jeg har lavet en mail form i aspx og den virker som den skal. Men jeg har et lille problem.
Her er min kode
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.Data" %>
<script runat="server">

    ' Function HentEmail() As System.Data.DataSet
    '        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\inetpub\wwwr"& _
    ' "oot\test\msdb\news.mdb"
    '        Dim dbConnection As IDbConnection = New OleDb.OleDbConnection(connectionString)
    '
      '      Dim queryString As String = "SELECT [newsmail].[mail] FROM [newsmail]"
      '      Dim dbCommand As System.Data.IDbCommand = New OleDb.OleDbCommand
        '    dbCommand.CommandText = queryString
        '    dbCommand.Connection = dbConnection

      '      Dim dataAdapter As IDbDataAdapter = New OleDb.OleDbDataAdapter
      '      dataAdapter.SelectCommand = dbCommand
        '    Dim dataSet As DataSet = New DataSet
        '    dataAdapter.Fill(dataSet)
    '
      '      Return dataSet
      '  End Function

    Sub Button1_Click(sender As Object, e As EventArgs)

        ' dim EmailDataset As DataSet = HentEmail()
        'dim row as DataRow

        Dim objEmail as New MailMessage()
        objEmail.From      = email.text
        objEmail.Subject    = subject.text
        objEmail.Body      = besked.text
        SmtpMail.SmtpServer = "poczta.top100.net.pl"

        ' for each row in EmailDataset.Tables(0).Rows
            objEmail.To    = "biuro@runningdinner.pl" 'row("mail")
            SmtpMail.Send(objEmail)
        'next
        ' response.write("<script type=text/javascript>parent.main.location.href=test.aspx")
        End Sub
</script>
<html>
<head>
<link rel="stylesheet" href=../stylesheet/style.css type="text/css">
</head>
<body>

<FORM runat="server">
<TABLE>
  <TBODY>
  <TR>
    <TD><p>Imie</p></TD>
    <TD><asp:TextBox id=Name runat="server"></asp:TextBox></TD></TR>
  <TR>
    <TD><p>E-mail</p></TD>
    <TD><asp:TextBox id=email runat="server"></asp:TextBox></TD></TR>
  <TR>
    <TD><p>Tytu&#322;</p></TD>
    <TD><asp:TextBox id=subject runat="server"></asp:TextBox></TD></TR>
  <TR>
    <TD><p>Wiadomo&#347;&#263;</p></TD>
    <TD>&nbsp;<asp:TextBox id=besked runat="server" Rows="4" TextMode="MultiLine"></asp:TextBox>
    </TD></TR></TBODY></TABLE><BR><asp:Button id=Button1 onclick=Button1_Click runat="server" Text="Wyslij"></asp:Button></FORM></BODY></HTML>

sådan som det er nu bliver texten man har intastet i det forskælliger felter stående efter man har trykkep på submit. jeg vil meget ger have at når man trykker på submit bliver felterne reset og der kommer en lille box frem hvor der står at mailen er sendt.
Avatar billede the_party_dog Nybegynder
04. november 2004 - 10:30 #1
Du kunne lave en lille hurtigt funktion, som nustillede alle dine componenter, og kalde den når du skal bruge den. F.eks

Function Clear_componet()
textbox1.Text = "";

Sådan kan du gøre hele vejen, jeg er ikke lige bekendt med om der er andre muligheder for noget hurtigt og enkelt i VB.NET.
Avatar billede the_party_dog Nybegynder
04. november 2004 - 10:32 #2
og til din box, der kunne du have en label skjult, som blev synlig når den havde sendt din email afsted....
Avatar billede arj79 Nybegynder
01. februar 2007 - 17:16 #3
luk
Avatar billede arj79 Nybegynder
01. februar 2007 - 17:16 #4
luk
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester