Dagens mand ?

du kan bruge Dato() til at få dagens dato fra serveren og så se kigge i tabellen for at se om den passer med nogen af dine mænd :)

\"SELECT dagensmand FROM tabelnavn WHERE fødselsdag =\" Dato()

er det sådan noget du søger?

<%
    OpenDB sConnUsers
        sSQL = \"SELECT username FROM users WHERE birthdate =\" Dato()
    rs.Open sSQL,,,adCmdTable
   
    newuser = rs(\"UserName\")
    signupdate = rs(\"birthdate\")
    CloseDB%>

<%=newuser%>

<%=signupdate%>
Kan du få det her til at virke ??

hvis du ikke har nogen som har fødselsdage lige den dag kan du finde alle dem der har indenfor en given tidsperiode.. f.eks. fra dagsdato og en dag frem:

SQL = \"SELECT * FROM tabelnavn WHERE fødselsdag >= Date() AND fødselsdag <= DateAdd(\'d\',1,Date())\"

Ok, men resten virker ikke endnu:)

Når jeg sætter den her ind:
<%
    OpenDB sConnUsers
        sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
    rs.Open sSQL,,,adCmdTable
   
    newuser = rs(\"UserName\")
    signupdate = rs(\"birthdate\")
    CloseDB%>
          <%=newuser%>  <%=signupdate%>




får jeg denne fejl:Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record

ja du skal lave en løkke der kører dine recordsets igennem. der er måske også mere end en der har fødselsdag den dag.. :

<%   
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>
<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>

samme fejl

ok, er det en access database du bruger?

ja

dette er tabellerne:
ID UserName Password mobil eMail FirstName LastName GenderMale BirthDate

databasen hedder users

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

sSQL = \"SELECT username FROM users WHERE birthdate =\" Dato()

Set rs = Server.CreateObject(\"ADODB.RecordSet\")

rs.Open sSQL, Conn
%>


<html>
<head>
<title></title>
</head>

<body marginwidth=\"0\" marginheight=\"0\" topmargin=\"0\" leftmargin=\"0\">


<%   
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>

<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>

<%
rs.MoveNext
Loop

rs.close
conn.close
set conn = nothing
%>

</body>
</html>

sSQL skal nok se sådan ud:

sSQL = \"SELECT UserName FROM users WHERE BirthDate =\" Dato()

Du får lige hele siden:
<!--#include virtual=\"/dev/_db.asp\"-->
<!--#include virtual=\"/dev/_header.asp\"-->

                <%
    OpenDB sConnUsers
        sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
    rs.Open sSQL,,,adCmdTable
   
    newuser = rs(\"UserName\")
    signupdate = rs(\"birthdate\")
    CloseDB
             
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>
<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>

        \'SELECT birthdate FROM users WHERE birthdate =\" Dato()
\'SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())
      <!--#include virtual=\"/dev/_footer.asp\"-->

<!--#include virtual=\"/dev/_db.asp\"-->= her ligger stien til databasen og den virker til mange andre funktioner. Derfor kalder jeg ikke databasen på hver side :)

_db.asp =
sConnUsers = \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\" & Server.MapPath(\"/data/users.mdb\")

Smart ikk :)

ja ok, det kan du også.. :)

Er du stadig frisk ?

ok, men så kan du vistnok ligeså godt åbne din connection i din _db.asp

kan du ikke lige poste hele din _db.asp

Nej jeg plejer at åbne med OpenDB sConnUsers

                <%
    OpenDB sConnUsers
        sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
    rs.Open sSQL,,,adCmdTable
   
9    newuser = rs(\"UserName\")
    signupdate = rs(\"birthdate\")
    CloseDB%>
  <%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>
<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>
Jeg får fejl i linie 9

Set rs = Server.CreateObject(\"ADODB.RecordSet\")

skal ind før du kører din SQL eller har du det et andet sted?

i _db.asp

hmm.. kan du ikke lige prøve det her:

<%
OpenDB sConnUsers
sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
rs.Open sSQL,,,adCmdTable
   

CloseDB
%>

<%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>

<table>
<tr>
<td width=\"100\"><%=rs(\"UserName\")%></td>
<td width=\"100\"><%=rs(\"BirthDate%></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

HTTP 500 - Intern serverfejl

<%=rs(\"BirthDate\")%></td

Stadig fejl

Microsoft VBScript runtime error \'800a01a8\'

Object required

/dev/test.asp, line 13 (Do While Not rs.EOF)

det var dog ......

og det plejer at virke når du laver dit Server.CreateObject(\"ADODB.RecordSet\")
i en ekstern fil?

Se siden her http://www.counselor.dk

Den side vi arbejder på hedder /dev/test.asp

Hele siden kører på den måde

vi prøver lige igen..

<%
OpenDB sConnUsers
sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
rs.Open sSQL,,,adCmdTable
   
%>

<%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>

<table>
<tr>
<td width=\"100\"><%=rs(\"UserName\")%></td>
<td width=\"100\"><%=rs(\"BirthDate%></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

Nu giver den ikke fejl :-)

Men den er tom ?? Der er en der har årsdag imorgen 4-12-2001 Han burde stå der ???

http://www.counselor.dk/dev/test.asp

<td width=\"100\"><%=rs(\"BirthDate%></td> :-(
<td width=\"100\"><%=rs(\"BirthDate\")%></td> :-)

<%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>

Måske her ??

prøv at sætte det til dags dato og 14 dage frem:

sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',14,Date())\"

tror jeg ikke men du kan godt fjerne

newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")

de 2 alligevel

den her kører på index.asp
<%
    OpenDB sConnUsers
        sSQL = \"SELECT * from users ORDER BY ID DESC\"
    rs.Open sSQL,,,adCmdTable
   
    newuser = rs(\"UserName\")
    signupdate = rs(\"CreateDate\")
    CloseDB%>
              Velkommen til nykommeren <a href=\"myDeV/users.asp?UserName=<%=newuser%>\"><%=newuser%></a> Som ankom den <%=signupdate%> !</strong></span></div>

<%
OpenDB sConnUsers
sSQL = \"SELECT * FROM users WHERE Birthdate >= Date() AND birthdate <= DateAdd(\'d\',1,Date())\"
rs.Open sSQL,,,adCmdTable
   
%>

<%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"birthdate\")
%>

<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

Lad os se klokken 24.00 :)
http://www.counselor.dk/dev/test.asp

intet :(

:(

rettede lige navne på tabelnavnene.. :

<%
OpenDB sConnUsers
sSQL = \"SELECT * FROM users WHERE BirthDate >= Date() AND BirthDate <= DateAdd(\'d\',1,Date())\"
rs.Open sSQL,,,adCmdTable
   
%>

<%           
Do While Not rs.EOF
newuser = rs(\"UserName\")
signupdate = rs(\"BirthDate\")
%>

<table>
<tr>
<td width=\"100\"><%=newuser%></td>
<td width=\"100\"><%=signupdate%></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

men det kommer nok ikke til at ændre noget :)

tom

Jeg lægger mig
Jeg vender tilbage imorgen :)
Tak for din indsats

hehe ok, sorry jeg ikke har hjulpet med så meget :)

Er du/i klar igen ??

excession->> I første svar mener du så ikke date()
i stedet for dato() ??

?