Şöyle bişey yaptım ama işini görürmü bilmem mysql ile pek bilgim yok
kendine göre uyarlarsın

ilanlar toblosu
id
sira
ilan_baslik
ilan_detay

baglan.asp

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/data/ntrn_tklf.mdb")
%>

listele.asp

<!-- #include file="baglan.asp" -->
<% 
set ilanlar = server.createobject("adodb.recordset")
iSQL = "SELECT  * From ilamlarım ORDER BY sira asc"
ilanlar.open iSQL, baglanti, 1, 3
%> 


<table border="0" cellspacing="0" cellpadding="0">

<%Do While Not ilanlar.Eof%>
  <tr>
    <td><%=ilanlar("sira")%></td>
    <td><%=ilanlar("ilan_baslik")%></td>
    <td><%=ilanlar("ilan_detay")%></td>
  </tr>
<%
ilanlar.MoveNext : Loop
%>
</table>

ilan_ekle.asp

<form action="kayit.asp" method="post">
Sıra:<select name="sirano">
  <option>1</option>
  <option>2</option>
  <option>3</option>
  <option>4</option>
</select>
İlan Başlık<input name="ilanbaslik" type="text">
İlan Başlık<input name="ilandetay" type="text">
</form>

kayit.asp

<!-- #include file="baglan.asp" -->
<% 
set rs = server.createobject("adodb.recordset")
SQL = "SELECT  * From ilamlarım"
rs.open SQL, baglanti, 1, 3

toplamilan = liste.recordcount
%>
<%
sira = Request.form("sirano")
ilan_baslik = Request.form("ilanbaslik")
ilan_detay = Request.form("ilandetay")

if NOT toplamilan ="4" then
	rs.addnew
	rs("sira")= sira
	rs("ilan_baslik")= ilan_baslik
	rs("ilan_detay")= ilan_detay
	rs.update
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "alert ('İlan Başarı ile Kaydedildi');" & vbCrLf
Response.Write "-->" & VbCrLf
Response.Write "</script>" & vbCrLf
else
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "alert ('4 ilan Bulunmaktadır Kayıt Yapamazsınız');" & vbCrLf
Response.Write "-->" & VbCrLf
Response.Write "</script>" & vbCrLf
end if
%>