| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
<%
strsecond = second(now())
if (strsecond>=0 AND strsecond < 8) then
rand = "1"
else
end if
if (strsecond >= 8 AND strsecond < 16) then
rand = "2"
else
end if
if (strsecond >= 16 AND strsecond< 24) then
rand = "3"
else
end if
if (strsecond >= 24 AND strsecond < 32) then
rand = "4"
else
end if
if (strsecond >= 32 AND strsecond< 40) then
rand = "5"
else
end if
if (strsecond >= 40 AND strsecond< 48) then
rand = "6"
else
end if
if (strsecond >= 48 AND strsecond< 59) then
rand = "7"
else
end if
set conntemp=server.createobject("adodb.connection")
' DSNless connection to Access Database
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/product.mdb")
conntemp.Open DSNtemp
' DSNless connection to Access Database
'this is another way to create a connection
'set conntemp = Server.CreateObject("ADODB.Connection")
'DSN-full connection to Access Database
'connectme="DSN=exitlisting"
' DSNless connection to Access Database
'DSNtemp="DBQ=" & server.mappath("rest.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
' DSNless connection to Access Database
'conntemp.Open DSNtemp
SQLstmt = "SELECT * FROM shopes"
Set oRs = conntemp.Execute(SQLStmt)
cstr(rand)
%>
<%
if not Ors.EOF then
%>
<% 'this makes the row colors alternate.
oRs.MoveFirst
Do While Not oRs.EOF
%>
<% If cstr(ors.fields("number")) = rand Then %>
See Witch Works™ products at:
target="new"><%= ors.fields("store") %>
<%= ors.fields("address") %>
<% Else %>
<% End If %>
<%
oRs.MoveNext
Loop
set oRs = Nothing
Set conntemp = Nothing
'keep trying till the end of the field is reached
%>
<% 'If count = 1 then
'response.write " | | | "
'else
'end if
%>
<% Else %>
<% End If %>
NEW!
Come visit us on Facebook!
Witch Works
Promote Your Page Too
|
|
We are transfering servers and redesigning the website. |
|
