admin
06-04-2003, 02:53 PM
<%
Dim conn,rs,strsql,message
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db.mdb")
strsql = "Select Message From marquee where ID = 1"
set rs = conn.Execute(strsql)
message = rs("Message")
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
<html>
<body>
<blink><marquee><%=message%> packages shipped today!</marquee></blink>
</body>
</html>
message = the number of packages
blink was added for Netscape users
By Tom Walters
Dim conn,rs,strsql,message
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("db.mdb")
strsql = "Select Message From marquee where ID = 1"
set rs = conn.Execute(strsql)
message = rs("Message")
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
<html>
<body>
<blink><marquee><%=message%> packages shipped today!</marquee></blink>
</body>
</html>
message = the number of packages
blink was added for Netscape users
By Tom Walters