Vt mizde ' tablo ' diye bir tablo olustuyoruz.. bunun icinde ise id (isimli brincil anahtarimiz)
baslik
haber
yazan
tarih
isimlerinde alanlarimiz oldu.. Bu kodlari biraz gelistirerek kendinize basit bir haber scripti uyarlayabilirsiniz.. (bu kodlar vtmizin admin bolumunu yani uygulamamizin admin bolumunu kodluyoz)
<%
Set kon = CreateObject("ADODB.Connection" )
Set rs = server. CreateObject("ADODB.Recordset" )
kon.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("boncuk.mdb" ))
%>
'veritabaniyla iletisimizi kurduk.. aloo boncukk nasilsin canim? :) hehe
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title><%=baslik %></title>
</head>
<body bgcolor="<%=arkaplan %>">
<div align="center"><center>
<table border="0" width="36%" cellspacing="1">
<tr>
<td width="100%"><img border="0" src="banner.gif" width="600" height="100"></td>
</tr>
<tr>
<td width="100%"><table border="1" width="100%" bordercolor="#C0C0C0" cellspacing="0"
cellpadding="0">
<tr>
<td width="100%" bgcolor="#F7F7F7"><p align="center"><a href="admin.asp?islem=ekle">Haber
Yaz</a> | <a href="admin.asp?islem=sil">Haber Sil</a></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><!---------- islemlerimizi tanimliyoruz ------->
<%
If request("islem" ) = "ekle" Then
Call ekle
ElseIf request("islem" ) = "sil" Then
Call sil
ElseIf request("islem" ) = "yoket" Then
Call yoket
ElseIf request("islem" ) = "kaydet" Then
Call kaydet
End If
'yapilacak islemlerimizi tanimladik
%>
<!--------- islemlerimizi cagiriyoruz.. leen Kemal gel len buraya --------->
<%
Sub ekle
%>
<form method="POST" action="admin.asp?islem=kaydet">
<div align="left"><table border="0" cellspacing="1" width="393"
height="19">
<tr>
<td width="59" height="7">Baslik :</td>
<td width="326" height="7"><input type="text" name="baslik" size="20"></td>
</tr>
<tr>
<td width="59" height="8">Haber : </td>
<td width="326" height="8"><textarea rows="2" name="haber" cols="20"></textarea></td>
</tr>
<tr>
<td width="59" height="7">Yazan :</td>
<td width="326" height="7"><input type="text" name="yazan" size="20"></td>
</tr>
<tr>
<td width="59" height="10">Tarih :</td>
<td width="326" height="10"><input type="text" name="tarih" size="20" value="<%=now %>"></td>
</tr>
<tr>
<td width="59" height="7"></td>
<td width="326" height="7"><input type="submit" value="Gonder" name="Gonder"> <input
type="reset" value="Temizle" name="Sil"></td>
</tr>
</table>
</div>
</form>
<%
End Sub
%>
<!------------- call sil ------------>
<%
Sub sil
<%
Set kon = CreateObject("ADODB.Connection" )
Set rs = server. CreateObject("ADODB.Recordset" )
kon.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("boncuk.mdb" ))
sql = "select * from tablo"
Set rs = kon.Execute (sql)
Do While not rs.Eof
<tr>
<td width="348" height="18" ><%=rs("baslik" ) %></td>
<td width="115" height="18"><p align="center"><a
href="admin.asp?islem=sil&id=<%=rs("id" ) %>">Sil</a></td>
</tr>
<%
rs.Movenext
Loop
End Sub
%>
<!----------- Call YOKET oldururum olm gel buraya.. valla bisiy yapmicam -------------->
<% Sub yoket %>
<%
Set id = Request.QueryString("id" )
SQL = "delete from kategori where id="
SQL = SQL & id
Set rs=kon.Execute(SQL)
Response.Write ("<center><br><br><br>Haberiniz basariyla silinmistir.</center>" )
%>
<% End yoket %>
<!-------------- simdi haberimizi kaydediyoruz ---------->
<%
Sub kaydet
SQL= "SeLeCT * from tablo order by id desc"
id = Request.QueryString("id" )
baslik = Request.QueryString("baslik" )
haber = Request.QueryString("haber" )
yazan = Request.QueryString("yazan" )
tarih = Request.QueryString("tarih" )
If baslik = "" Then
response write("<center><br><br><br>Kardesim basliksiz haberr mi olur.. düzelt yaws sunu</center>)
response.End
End If
If haber = " " Then
response write(" <center><br><br><br>Basligi falan yaz.. haber yazma.. ohg ne ala memleket</center>)
response.End
End If
If yazan = "" Then
response write("<center><br><br><br>Bak adini yaz.. sonra neymis efendim ben yazmadim falan kimsen yaz lan sunu ortaligi karistirma... aa</center>)
response.End
End If
If tarih = " " Then
response write(" <center><br><br><br>Olm.. hayrina mi otomatik oraya tarihi yazdirdik.. biz sen bi de tarihle ugrasma diye oraya yazdiralim sende gidip tarihi sil... sana iyilikde yaramiyor..</center>)
response.End
End If
rs.Open "tablo" , kon, 1 , 2
rs.addnew
rs("id" ) = id
rs("baslik" ) = baslik
rs("haber" ) = haber
rs("yazan" ) = yazan
rs("tarih" ) = tarih
rs.update
Response.Write ("<center><br><br><br>olm monitorü op basariyla ekledik.. hehe</center>" )
rs.Close
Set rs = Nothing
kon.Close
Set kon = Nothing
%>
</body>
</html>