if sætning med popup

Hej.
Jeg har et booking system i .asp, hvor man bla. bestiller en bus.
Det jeg skal bruge er et popup script, som finder ud af, om der er nogle busser som ikke er bestilt inden for rimelig til
(4 dage før afgang)
Dvs.at når man klikker ind på nedenstående side skal popuppen komme frem, hvis der er nogle bestillinger som passer til scriptet.
Er der en der kan lave det for mig?
Jeg har flg. kode som virker fint, og det skal bevares.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("o12cal.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * From Events Where Busbestilt  = 'nej'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

strNavn = rs("Date") & " " & rs("Event_Name")

strLink = "<a href='edit.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"

Response.Write "<li>" & strLink & "</li><hr>"
   

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF



%>

Hilsen
gfg-voel