MastaKay
02-15-2008, 01:25 PM
Hello there guys.
I have struggled with a research for weeks now.Im looking to create a birthday list in ASP(Ive done in ASP.NET), that will check my MS Access database(Employee table) for a date that is the same as system date and print the details of the employees that celebrates their days on that day, and if no one on that day print a message.I have dont this on ASP.NET but I cant seem to find a way in ASP.
<%@ LANGUAGE="VBSCRIPT" %>
<!--
'*******************************************************************************************
'
'********************************************************************************************
-->
<!--#include file="includes/main_page_header.asp"-->
<%'load in record
BDate = request("BDate")
if BDate = "" then
Response.Redirect gsSiteRoot & "Birthdays/"
else
sql = sql_GetBirthdays(BDate)
Call runSQL(sql, rs)
if rs.eof then
Response.Redirect gsSiteRoot & "Birthdays/"
else
EmployeeName = rs("EmployeeName")
BDate = rs("BDate")
Department = replace(rs("Department"),vbcrlf,"<BR>")
end if
rs.close
set rs = nothing
end if
%>
I have struggled with a research for weeks now.Im looking to create a birthday list in ASP(Ive done in ASP.NET), that will check my MS Access database(Employee table) for a date that is the same as system date and print the details of the employees that celebrates their days on that day, and if no one on that day print a message.I have dont this on ASP.NET but I cant seem to find a way in ASP.
<%@ LANGUAGE="VBSCRIPT" %>
<!--
'*******************************************************************************************
'
'********************************************************************************************
-->
<!--#include file="includes/main_page_header.asp"-->
<%'load in record
BDate = request("BDate")
if BDate = "" then
Response.Redirect gsSiteRoot & "Birthdays/"
else
sql = sql_GetBirthdays(BDate)
Call runSQL(sql, rs)
if rs.eof then
Response.Redirect gsSiteRoot & "Birthdays/"
else
EmployeeName = rs("EmployeeName")
BDate = rs("BDate")
Department = replace(rs("Department"),vbcrlf,"<BR>")
end if
rs.close
set rs = nothing
end if
%>