veritabanında bi tablo yaparsın id ve site_adresi olarak iki tane sütun yaparsın.popup un açılacağı sayfayada;
Alıntı
<%
Veri_yolu = Server.MapPath("dbyolum.mdb" )
Dim SQL_LAFI, site_adresi
Set Baglantim = Server.CreateObject("ADODB.Connection" )
Set KayitKumesi = Server.CreateObject("ADODB.Recordset" )
Baglantim.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
SQL_LAFI = "SELECT * FROM tablo_adi"
KayitKumesi.Open SQL_LAFI, Baglantim, 1, 3
Randomize
kac = Int((KayitKumesi.RecordCount * Rnd)+ 0)
KayitKumesi.Move(kac)
site_adresi = KayitKumesi("site_adresi" )
KayitKumesi.Close
Set KayitKumesi = Nothing
Baglantim.Close
Set Baglantim = Nothing
%>
kodlarıyla popun da site adresinin yazıldığı alana
yazarsın.restgele site seçer onları popup olarak açar.denemedim ama böyle olur heralde.