|
|
Atendimento
On-Line:
<%' BEGINNING OF CODE%>
<%
Dim strDB
'Connection string for the database
'If the following line does not work comment it out with a ' at the start of the line and uncomment another string
strDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)
'Uncomment this connection string if you are using Access Database 2000 or 2002
'strDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)
'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings)
'strDB = "DSN=NAME_OF_DSN"
'Replace the NAME_OF_DSN with the DSN
Dim data
Dim str_online
set data = server.createobject("ADODB.RecordSet")
data.activeconnection = strDB
data.source = "SELECT * FROM tblsettings "
data.open
str_online = data("online")
data.close
%><%IF str_online = "5" THEN %>
<% ELSE Response.write " | " end if%>
<%' END OF CODE%>

Relação
de Buscadores
Conheça os
principais sistes, onde o seu site será submetido.
Sitemas
de buscas são indispensáveis Confira
a matéria publicada na conceituada revista INFO EXAME - clique
aqui! |
|