Erbaa Sözlüğünden

İşi olmayan, avare.

O Bir Erbaalı

Erbaa Nöbetçi Eczane

Bugün için nöbetçi eczane bilgisi girilmemiş.

Takvimi Göster

ASP'de Veritabanına (.mdb - Access) Veri (Yeni Kayıt) Girmek

 

wwwroot içine DERS isimli Klasöre koyun ve unutmayın DERS klasörüne yazma izni verin.
Klasöre Yazma izni nasıl veririm?
DERS klasörüne sağ tıklayın ve özelliklerden Web Paylaşımı sekmesine geçin. Bu klasörü Paylaşın radio düğmesini işaretleyiniz bir sihirbaz açılacak oradaki yazma vb. seçenekleri seçip uygulayın...
 İlk önce bir form sayfasına ihtiyacımız var.
kayit_form.html
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kayıt Formu</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="300">
<form action="kayit_kaydet.asp" method="post">
 <tr>
  <td>Ad :</td>
  <td><input type="text" name="txtAd" size="20" maxlength="15" value=""></td> 
 </tr>
  
 <tr>
  <td>Soyad :</td>
  <td><input type="text" name="txtSoyad" size="20" maxlength="25" value=""></td> 
 </tr>
 
 <tr>
  <td>Mail :</td>
  <td><input type="text" name="txtMail" size="20" maxlength="30" value=""></td> 
 </tr>
 
 <tr>
  <td>Şehir :</td>
  <td>
   <select name="txtSehir">
    <option value="Adana">Adana</option>
    <option value="Adıyaman">Adıyaman</option> 
    <option value="Afyon">Afyon</option>  
    <option value="Ağrı">Ağrı</option>    
    <option value="Amasya">Amasya</option> 
    <option value="Ankara">Ankara</option>      
   </select>
  </td> 
 </tr> 
 
 <tr>
  <td>Mesaj :</td>
  <td><textarea rows="5" cols="30" name="txtMesaj"></textarea></td> 
 </tr> 
 
 <tr>
  <td>&nbsp;</td>
  <td><input type="submit" value="Kaydet"></td> 
 </tr>
 
</form>
 
</table>
</body>
</html>
formdan gelen bilgileri veritabanına kaydedecek asp sayfamız.
kayit_kaydet.asp
Kod:
<%
'Adovbs.inc dosyası içindeki sabitlerimiz. Kayıt işlemi yaparken lazım olacak....
const adCmdText = &H0001
const adExecuteNoRecords = &H00000080

'Form içindeki name="txtAd" isimli form elemanımızdan içine yazılmış olan ismi alıyor ve bu değeri strAd değişkenine atıyoruz(yüklüyoruz).
dim strAd
 strAd = Request.Form("txtAd")
'Form içindeki name="txtSoyad" isimli form elemanımızdan içine yazılmış olan soyismi alıyor ve bu değeri strSoyad değişkenine atıyoruz(yüklüyoruz).
dim strSoyad
 strSoyad = Request.Form("txtSoyad")
 
'Form içindeki name="txtMail" isimli form elemanımızdan içine yazılmış olan Mail adresini alıyor ve bu değeri strMail değişkenine atıyoruz(yüklüyoruz).
dim strMail
 strMail = Request.Form("txtMail")
 
'Form içindeki name="txtSehir" isimli form elemanımızdan içine yazılmış olan Sehir ismini alıyor ve bu değeri strSehir değişkenine atıyoruz(yüklüyoruz).
dim strSehir
 strSehir = Request.Form("txtSehir") 
 
'Form içindeki name="txtMesaj" isimli form elemanımızdan içine yazılmış olan Mesajı alıyor ve bu değeri strMesaj değişkenine atıyoruz(yüklüyoruz).
dim strMesaj
 strMesaj = Request.Form("txtMesaj")
 
'Veritabanına Bağlanıyoruz.
dim strConn
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
'Bağlantıyı açıyoruz.
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
 objConn.Open strConn
 
 
 strSql = "INSERT INTO tblUye(UYE_AD, UYE_SOYAD, UYE_MAIL, UYE_SEHIR, UYE_MESAJ) VALUES('" & strAd & "', '" & strSoyad & "', '" & strMail & "', '" & strSehir & "', '" & strMesaj & "')"

 objConn.Execute(strSql),,adCmdText + adExecuteNoRecords
 
 
'Bağlantıyı kapatıyoruz.
 objConn.Close
set objConn = Nothing
'Yazdığımız kaydı gösteren sayfaya "kayit_oku.asp" yönlendiriyoruz..
 Response.Redirect "kayit_oku.asp"
%>


Kaynak: frmtr

Kaynak Dosyalar :http://rapidshare.com/files/4161156/ders02.rar.html

Benzer İçerikler

Erbaa Meydan'da Bıçaklı Kavga
İlçemizde önceden aralarında husumet bulunduğu iddia edilen 2 grup arasında kavga çıktı. Bıçakların konuştuğu kavgada 2 kişi yaralandı. Aralarında...
1992 Doğumlularin Askerlik Yoklaması
1992 doğumlu ve bunlarla işleme tabi olan yükümlüler 1–9 Ağustos 2011 tarihlerinde işlemleri yapılacak. 1992 tarihli ve bunlarla işleme tabi...
Avrupa'dan Tokat'a Tekerlekli Sandalye
Avrupa Tokatlılar Yardımlaşma ve Dayanışma Derneği tarafından alınan 31 adet tekerlekli sandalye ihtiyaç sahiplerine ulaştırılmak üzere ilgili...
Nüfus ve Nüfus Dağılımı
Erbaa bugün 100.000’ni aşan nüfusu ile Tokat’ın en kalabalık ve güzel ilçelerinden birisidir. Bölgede nüfusun en sık olduğu alanlar özellikle sulu...
Erbaa'da Bin 800 Kişiye Yardım Yapıldı
İlçemizde Ramazan ayı dolayısı ile yardıma muhtaç bin 800 kişiye ayni ve nakti yardım yapıldı. Erbaa Belediyesi tarafından Ramazan ayı dolayısıyla...
Taşova İhale İlanı
T.C.TAŞOVA KAYMAKAMLIĞITAŞOVA KÖYLERE HİZMET GÖTÜRME BİRLİĞİ BAŞKANLIĞIİHALE İLANI Taşova-Yaylasaray ve Çakırsu Köyleri İçme Suyu Depo Onarım...
Erbaaspor Devir Teslim
Erbaa sporda yeni yönetim göreve başladı. Bu yıl amatör kümede oynayacak olan erbaa sporda dün akşam kulüp yönetimi devir teslim töreni yapıldı....
Online Bağımlılık Projesi
Erbaa Rehberlik Araştırma Merkezi tarafından hazırlanan ve Belediyemizin de desteklediği İspanya, Romanya ve Türkiye de uygulanacak projenin toplam...