Yemek Sipariş Sitesi – ASP.NET

Yemek Sipariş Sitesi – ASP.NET

default.aspx Kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table border="0" height="246" style="width: 671px">
<tr>
<td rowspan="3" width="80">
<img id="resim1" height="80" name="resim1"
onmouseover="MM_swapImage(‘orta’,”,’aaaaas.png’,1)" src="aaaaas.png"
width="80" /><img id="resim2" height="80" name="resim2"
onmouseover="MM_swapImage(‘orta’,”,’yemek_1242378187.jpg’,1)"
src="yemek_1242378187.jpg" width="80" /><img height="80"
onmouseover="MM_swapImage(‘orta’,”,’23_414turkyemek.jpg’,1)"
src="23_414turkyemek.jpg" width="80" /></td>
<td colspan="2" rowspan="3">
<img id="orta" height="240" name="orta" src="aaaaas.png" width="336" /></td>
<td align="center" class="style1" height="82" style="width: 354px">
&nbsp;</td>
</tr>
<tr>
<td align="center" class="style1" height="82" style="width: 354px">
&nbsp;</td>
</tr>
<tr>
<td align="center" class="style1" height="61" style="width: 354px">
&nbsp;</td>
</tr>
</table>
<table border="0" height="63" width="619">
<tr>
<td class="style1" colspan="2">
&nbsp;</td>
</tr>
<tr>
<td class="style2" colspan="2">
<asp:Label ID="Label1" runat="server" ForeColor="White"></asp:Label>
<asp:Button ID="Button1" runat="server" Text="Çıkış" />
</td>
</tr>
<tr>
<td class="style1" colspan="2">
&nbsp;</td>
</tr>
<tr>
<td class="style3">
&nbsp;</td>
<td>
<span class="style1">Yemeksiparisi.com aynı site içerisinde hem yemek siparişi
verilebilen hem de rezarvasyon imkanı sağlayan Türkiye&#39;nin ilk ve tek online
yemek siparişi sitesidir. Sadece günün belirli saat dilimlerinde değil sizin
istediğiniz her saatte açlığınıza çözüm bulan Türkiye\&#39;nin ilk ve tek online
yemek siparişi sitesidir. sitesidir. <br />
<br />
Yüzlerce restorana bir tıkla ulaşın, Çıraklara değil ustasına sipariş verin,
Sipariş bürokrasisini sıfıra indirin. Gecikmeden yemeğinizi yemenin keyfine
varın, Sadece köşedeki restoranta mahkum olmayın, Sipariş vermeyi eğlenceli hale
getirin,İstediğiniz lezzete dışarı çıkmadan, Menü, Telefon Aramadan,hiçbir
ekstra ücret ödemeden, Ortalama 30 Dakikada, Menüler arasında sörf yaparak
ulaşın.<br />
<br />
</span>
<div align="center">
<ul class="style1">
<li>Üye olun.</li>
<li>Kolayca sipariş verin.</li>
<li>Hemen kapınıza gelsin.</li>
</ul>
</div>
<span class="style1">
<br />
</span>
<h4 class="style1">
Ücretsiz Üyelik</h4>
<p>
<span class="style1">Yemeksiparisi.com sitesine üyelik ücretsizdir. Kolayca üye
olup anında yemek siparişlerinizi vermeye başlayabilirsiniz. Üye olduktan sonra
siparişlerinizi kolayca verebilmenin yanısıra favori restoran ve yemek listeleri
oluşturabilecek ve size özel fiyatlardan hemen yararlanmaya başlayacaksınız.</span><br />
<a href="../yemek/index.php?page=uye_basvuru"></a>
</p>
</td>
</tr>
</table>
</asp:Content>

[/code]

anasayfa.aspx.vb Kodları;

[code lang=”vb”]
Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session.Abandon()
Response.Redirect("Default2.aspx")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("x") = Nothing Then
Response.Redirect("Default2.aspx")

End If
Label1.Text = "Hoşgeldin" & " " & Session("ad") & " " & Session("soyad")

End Sub
End Class

[/code]

menuler.aspx Kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="menu.aspx.vb" Inherits="menu" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table width="481" border="0" style="height: 316px">
<tr>
<td style="width: 196px; height: 6px;">
<asp:LinkButton ID="LinkButton1" runat="server" ForeColor="White">Cafe</asp:LinkButton>
</td>
<td width="217" style="height: 6px">
<asp:LinkButton ID="LinkButton2" runat="server" ForeColor="White">Pasta ve Tatlı</asp:LinkButton>
</td>
</tr>
<tr>
<td style="height: 8px; width: 196px;">
<asp:LinkButton ID="LinkButton3" runat="server" ForeColor="White">Ev yemekleri</asp:LinkButton>
</td>
<td style="height: 8px" class="style2">
<asp:LinkButton ID="LinkButton4" runat="server" ForeColor="White">Fast Food</asp:LinkButton>
</td>
</tr>
<tr>
<td colspan="2">
<asp:DataList ID="DataList1" runat="server" DataSourceID="SqlDataSource1"
CellPadding="4" DataKeyField="id" ForeColor="#333333" RepeatColumns="5"
RepeatDirection="Horizontal">
<FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<ItemTemplate>
&nbsp;<asp:Label ID="urunadLabel" runat="server" Text='<%# Eval("urunad") %>’ />
<br />
fiyat:
<asp:Label ID="fiyatLabel" runat="server" Text='<%# Eval("fiyat") %>’ />
<br />
&nbsp;<asp:Image ID="Image9" runat="server" Height="81px"
ImageUrl='<%# Eval("resim") %>’ Width="87px" />
<br />
Tur:
<asp:Label ID="turLabel" runat="server" Text='<%# Eval("tur") %>’ />
<br />
<asp:HyperLink ID="HyperLink1" runat="server"
NavigateUrl='<%# Eval("id", "ozellikler.aspx?tur={0}") %>’>Ürünü Gör</asp:HyperLink>
<br />
</ItemTemplate>
<AlternatingItemStyle BackColor="White" />
<ItemStyle BackColor="#E3EAEB" />
<SelectedItemStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
<HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
</asp:DataList>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString3 %>"
ProviderName="<%$ ConnectionStrings:ConnectionString3.ProviderName %>"
SelectCommand="SELECT * FROM [urunler] WHERE ([tur] = ?)">
<SelectParameters>
<asp:QueryStringParameter Name="tur" QueryStringField="tur" />
</SelectParameters>
</asp:SqlDataSource>
</td>
</tr>
</table>
</asp:Content>

[/code]

menuler.aspx.vb Kodları;

[code lang=”vb”]
Partial Class menu
Inherits System.Web.UI.Page
Protected Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler.aspx?id=" + e.CommandArgument)
End If
End Sub

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Response.Redirect("menu.aspx?tur=" + "cafe")
End Sub

Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Response.Redirect("menu.aspx?tur=" + "pasta")
End Sub

Protected Sub LinkButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
Response.Redirect("menu.aspx?tur=" + "ev")
End Sub

Protected Sub LinkButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
Response.Redirect("menu.aspx?tur=" + "fast")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
End Class

[/code]

restoran.aspx Kodları;

[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="restoran.aspx.vb" Inherits="restoran" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table style="width:100%;">
<tr>
<td style="color: #FFFFFF; width: 150px;">
RESTORAN EKLE</td>
<td style="color: #FFFFFF">
&nbsp;</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Adınız</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Soyadınız</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Telefon</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran adı
</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran sahibi</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran telefon
</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran semt</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
<asp:Button ID="Button2" runat="server" Text="Kaydet" />
</td>
<td style="color: #FFFFFF">
<asp:Label ID="Label2" runat="server"></asp:Label>
</td>
</tr>
</table>
</asp:Content>
[/code]

restoran.aspx.vb Kodları;

[code lang=”vb”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="restoran.aspx.vb" Inherits="restoran" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table style="width:100%;">
<tr>
<td style="color: #FFFFFF; width: 150px;">
RESTORAN EKLE</td>
<td style="color: #FFFFFF">
&nbsp;</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Adınız</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Soyadınız</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Telefon</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran adı
</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran sahibi</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran telefon
</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
Restoran semt</td>
<td style="color: #FFFFFF">
<asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td style="color: #FFFFFF; width: 150px;">
<asp:Button ID="Button2" runat="server" Text="Kaydet" />
</td>
<td style="color: #FFFFFF">
<asp:Label ID="Label2" runat="server"></asp:Label>
</td>
</tr>
</table>
</asp:Content>

[/code]

kayitol.aspx Kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="kayit.aspx.vb" Inherits="kayit" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table border="0" style="height: 361px; width: 573px">
<tr>
<td colspan="2" class="style1"><strong>ÜYE OL</strong></td>
</tr>
<tr>
<td width="104" class="style1">Kullanıcı Adı:</td>
<td width="416">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1"
runat="server" ControlToValidate="TextBox1"
ErrorMessage="Kullanıcı Adını Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">Şifre:</td>
<td>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="Şifreyi Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">Şifre (Tekrar):</td>
<td>
<asp:TextBox ID="TextBox13" runat="server"></asp:TextBox>
<asp:CompareValidator ID="CompareValidator1" runat="server"
ControlToCompare="TextBox2" ControlToValidate="TextBox13"
ErrorMessage="Şifreler Uyumlu Değil">*</asp:CompareValidator>
</td>
</tr>
<tr>
<td class="style6" style="color: #FFFFFF">Gizli Soru:</td>
<td class="style7">
<asp:TextBox ID="TextBox12" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server"
ControlToValidate="TextBox12" ErrorMessage="Gizli Soruyu Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">Gizli Cevap:</td>
<td>
<asp:TextBox ID="TextBox11" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server"
ControlToValidate="TextBox11" ErrorMessage="Gizli Cevabı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1"></td>
<td></td>
</tr>
<tr>
<td class="style1">Ad:</td>
<td>
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="TextBox4" ErrorMessage="Adı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">Soyad:</td>
<td>
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server"
ControlToValidate="TextBox5" ErrorMessage="Soyadı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">Email:</td>
<td>
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server"
ControlToValidate="TextBox6" ErrorMessage="E-postayı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server"
ControlToValidate="TextBox6" ErrorMessage="Düzgün E-posta Giriniz"
ValidationExpression="\w+([-+.’]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style14" style="color: #FFFFFF">Telefon:</td>
<td class="style15">
<asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator8" runat="server"
ControlToValidate="TextBox7" ErrorMessage="Telefonu Boş Bırakmayınız">*</asp:RequiredFieldValidator>
<asp:RangeValidator ID="RangeValidator1" runat="server"
ControlToValidate="TextBox7" ErrorMessage="Telefonu giriniz"
MaximumValue="99999999999" MinimumValue="0">*</asp:RangeValidator>
</td>
</tr>
<tr>
<td class="style1">&nbsp;</td>
&nbsp;</td>
</tr>
<tr>
<td class="style1">Semt:</td>
<td>
<asp:TextBox ID="TextBox8" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator9"
runat="server" ControlToValidate="TextBox8"
ErrorMessage="Semti Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style12" style="color: #FFFFFF">Adres: </td>
<td class="style13">
<asp:TextBox ID="TextBox9" runat="server" Height="86px" TextMode="MultiLine"
Width="413px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator10"
runat="server" ControlToValidate="TextBox9"
ErrorMessage="Adresi Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style11">
<asp:Button ID="Button2" runat="server" Text="Kayıt" />
<label>
&nbsp;</label></td>
<td class="style3">
<asp:Label ID="Label1" runat="server" ForeColor="White"></asp:Label>
&nbsp;</td>
</tr>
<tr>
<td class="style2" colspan="2">
<asp:ValidationSummary ID="ValidationSummary1" runat="server" />
</td>
</tr>
</table>
</asp:Content>

[/code]

kayitol.aspx.vb Kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class kayit
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_data\yemek.accdb"))

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim adp As New OleDbDataAdapter("select * from uyeler where kul_adi=’" & TextBox1.Text & "’", baglanti)
Dim dt As New DataTable
adp.Fill(dt)
Dim i As Integer = 0
For Each satir In dt.Rows
i = i + 1
Next
If i = 0 Then
Try
Dim cmnd As New OleDbCommand
cmnd.Connection = baglanti
cmnd.CommandText = "insert into uyeler(ad,soyad,kul_adi,sifre,eposta,gsoru,gcevap,tel,semt,adres,yetki) values (@ad,@soyad,@kul_adi,@sifre,@eposta,@gsoru,@gcevap,@tel,@semt,@adres,@yetki)"
cmnd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox4.Text
cmnd.Parameters.Add("@soyad", OleDbType.VarChar).Value = TextBox5.Text
cmnd.Parameters.Add("@kul_adi", OleDbType.VarChar).Value = TextBox1.Text
cmnd.Parameters.Add("@sifre", OleDbType.VarChar).Value = TextBox2.Text
cmnd.Parameters.Add("@eposta", OleDbType.VarChar).Value = TextBox6.Text
cmnd.Parameters.Add("@gizlisoru", OleDbType.VarChar).Value = TextBox12.Text
cmnd.Parameters.Add("@gizlicevap", OleDbType.VarChar).Value = TextBox11.Text
cmnd.Parameters.Add("@tel", OleDbType.VarChar).Value = TextBox7.Text
cmnd.Parameters.Add("@semt", OleDbType.VarChar).Value = TextBox8.Text
cmnd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox9.Text
cmnd.Parameters.Add("@yetki", OleDbType.VarChar).Value = 0S
baglanti.Open()
cmnd.ExecuteNonQuery()
Label1.Text = "kayıt oldunuz"
baglanti.Close()
Catch ex As Exception
Label1.Text = "hata oluştu"
End Try
Else
Label1.Text = "Kullanıcı adı kullanımda"
End If

End Sub
End Class

[/code]

iletisim.aspx Kodları;

[code lang=”html”]

<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="iletisim.aspx.vb" Inherits="iletisim" title="Untitled Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table width="545" height="207" border="0">
<tr>
<td height="23" colspan="2" class="style1"><strong>İLETİŞİM FORMU</strong></td>
</tr>
<tr>
<td height="23" colspan="2" class="style1">Önerilerinizi ve Eleştirilerinizi
İletebilirsiniz</td>
</tr>
<tr>
<td class="style3" style="width: 132px">Ad Soyad :</td>
<td class="style2">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="TextBox1" ErrorMessage="Adı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style3" style="width: 132px">Email : </td>
<td class="style2">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server"
ControlToValidate="TextBox2" ErrorMessage="E-postayı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server"
ControlToValidate="TextBox2" ErrorMessage="Düzgün E-posta Giriniz"
ValidationExpression="\w+([-+.’]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style3" style="width: 132px">Adres :</td>
<td class="style2">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator10"
runat="server" ControlToValidate="TextBox3"
ErrorMessage="Adresi Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style3" style="width: 132px">Telefon (isteğe Bağlı) :</td>
<td class="style2">
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
</td>
</tr>
<tr>
<td class="style3" style="width: 132px">Mesajınız :</td>
<td class="style2">
<asp:TextBox ID="TextBox5" runat="server" Height="70px" TextMode="MultiLine"
Width="324px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server"
ControlToValidate="TextBox5" ErrorMessage="Mesajı Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style3" style="width: 132px">
<asp:Button ID="Button1" runat="server" Text="Gönder" />
</td>
<td class="style2" rowspan="2">
<asp:Label ID="Label1" runat="server" ForeColor="White"></asp:Label>
<asp:ValidationSummary ID="ValidationSummary1" runat="server" />
</td>
</tr>
<tr>
<td height="28" class="style3" style="width: 132px">
&nbsp;</td>
</tr>
</table>
</asp:Content>

[/code]

iletisim.aspx.vb Kodları;

[code lang=”vb”]

Imports System.Data
Imports System.Data.OleDb
Partial Class iletisim
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Server.MapPath("app_data/yemek.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
baglan.Open()
Dim cmd As New OleDbCommand
cmd.Connection = baglan
cmd.CommandText = "insert into mesaj(ad,email,adres,telefon,mesaj) values (@ad,@email,@adres,@telefon,@mesaj)"
cmd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@email", OleDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.Add("@telefon", OleDbType.VarChar).Value = TextBox4.Text
cmd.Parameters.Add("@mesaj", OleDbType.VarChar).Value = TextBox5.Text
cmd.ExecuteNonQuery()
Label1.Text = "mesajınız alındı"

baglan.Close()
End Sub
End Class

[/code]

Siteyi İNDİR