popup vindue

<%
strSql = "select * from table where Uid = "& intUid
set objRs = conne.execute(strSql)
uIdDate = objRs("uIdBirthDate")
objRs.close
set objRs = nothing
tmpDate = date()
If tmpDate = uIdDate Then
%>
<script language='javascript'>
window.open('http://www.ditdomane.dk/birthday.asp?uId=<%=intUid%>','Hinduenavn','width='200', height='200', scrollbars=yes, resizable=no');</script>
<%
End if
%>

kunne være en måde at gøre det på, men ærlig talt er det en meget lidt præcis formulering du er kommet med : )

Jaaa nu er det måske end som så....  jeg skal jo lige ha databasen til at kunne finde en dato som passer på dag og måned, da den jo også vil ha et årstal. Så første problem er jo nok at kunne lave et kriterie som kun henter de dato'er som passer på f.eks. i dag.. uden årstal :)
men meningen med det hele er at den skal kunne se om der er nogle personer der har fødselsdag i dag og så fra en hjemmeside  når folk logger på lave et popup vindue der siger at denne person har fødselsdag.

strSql = "select * from table where Uid = "now()

strSQL = "SELECT * FROM tabel WHERE dato = Date()"

//>Rune

Hvis du sætter dette øverst i dit dokument, hvor der skal tjekkes om der er en der har føs'dag (kunne fx. være default.asp)

<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
        strSQL = "SELECT Count(*) FROM tblBirthday WHERE Birth = Date()"
        Set objRs = objConn.Execute(strSQL)
    If Not (objRs.EOF And objRs.BOF) Then
        Response.Write("<script language='javascript'>")
            Response.Write("window.open('birthday.asp','Tillykke','width='200', height='200', scrollbars=yes, resizable=no');")
        Respons.Write("</script>")
    End If
%>

Og i birthday.asp skriver du:

<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
        strSQL = "SELECT Count(*) FROM tblBirthday WHERE Birth = Date()"
        Set objRs = objConn.Execute(strSQL)
    While Not objRs.EOF
        Response.Write(objRs("Kolonne_Med_Navne") & " har føs'dag idag!" & "<br>")
        Response.Write("Hvis du ønsker at skrive en lille hilsen til ham kan du gøre det på adressen:" & "<br>")
        Response.Write("<a href='mailto:" & objRs("Kolonne_med_mailadresser") & "'>objRs("Kolonne_med_mailadresser") & "</a>")
    objRs.MoveNext()
    Wend
%>

//>Rune

Ud fra det i skriver kan jeg se at "WHERE dato = Date()", men den dato som er i databasen er jo med årstal så "dato" vil jo aldrig kunne blive = Date() vel ??????????????
Og rune hvor skriver du stien til databasen i de 2 asp filer ??

Date() giver 09-05-2002 ! Så jov der er årstal med! -Og grunden til at jeg laver en connection til din database begge steder, var at jeg jo ikke ved hvor meget ASP du kan og hvor scriptet skal placeres!

//>Rune

Thx 4 Poinz
//>Rune