This is a Quick example of how you can create an VB.net contact form.
Example: simple vb.net contact form no css
Your_Contact_Page.aspx Code:
<%@ Page Language="VB" %><%@ Import Namespace="System.Web.Mail" %><script runat="server">
Sub btnSubmit_Click(sender as object, e as EventArgs)
Dim objEMail As New MailMessage() objEMail.To = "enter the email address you want to send to here" objEmail.From = txtFrom.Text objEmail.Subject = txtSubject.Text objEmail.Body = "Real IP: " & Request.ServerVariables("HTTP_X_FORWARDED_FOR") & vbcrlf & "IP: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Date/Time: " &Now & vbcrlf & "Name: " &txtName.Text & vbcrlf & "Email: " &txtFrom.Text & vbcrlf & "Comments: " &txtBody.Text objEmail.Priority = MailPriority.High SmtpMail.SmtpServer = "Enter your mail server domain here"
try SmtpMail.Send(objEMail) 'Success Options: (uncomment one of these) 'Response.Write("success") 'Response.Redirect("/success page") catch exc as Exception Response.Write("Send failure: " + exc.ToString()) End Try End Sub</script><!-- Simple Email Form Code Copyright ©1998-2008 Area51 Computers / Services. Any customer of Area51 may use this code in conjunction with Area51.mn hosting services. This notice must remain in tact at all times. --><html><head><title>Simple contect form</title></head><body>
<form id="ContactMain" runat="server"><table width="600" border="0" align="center" cellpadding="3" cellspacing="0"> <tr> <td height="24" colspan="2" align="right" valign="top"> </td> </tr> <tr> <td width="28%" align="right" valign="top">Name :</td> <td width="72%" height="24" valign="top"> <asp:TextBox runat="server" Width="200px" ID="txtName"></asp:TextBox> </td> </tr> <tr> <td align="right">Email :</td> <td height="24" valign="top"><asp:TextBox runat="server" Width="200px" ID="txtFrom" ></asp:TextBox> </td> </tr> <tr> <td align="right">Subject : </td> <td height="24" valign="top"><asp:TextBox runat="server" Width="200px" ID="txtSubject" ></asp:TextBox></td> </tr> <tr> <td align="right" valign="top">Comments : <br> <br></td> <td valign="top"><asp:TextBox runat="server" TextMode="MultiLine" Height="80px" Width="250px" ID="txtBody"></asp:TextBox> </td> </tr> <tr> <td colspan="2" align="center">Proxy(<% = Request.ServerVariables("HTTP_X_FORWARDED_FOR")%> ) IP( <% = Request.ServerVariables("REMOTE_ADDR")%> ) Validation & Time Stamp : <% = Now %></td> </tr> <tr> <td colspan="2" valign="top" height="30"> <p align="center">
<asp:Button Runat = server ID = btnSubmit OnClick = btnSubmit_Click Text = "Submit"></asp:Button> <input type = "reset" value = "Clear" runat = "server"> </td> </tr> </table><br></form><center></center>
</body></html>