COM PROJETO ELE FICA DO JEITO QUE VOCÊ QUISER
 

 

HOME / EMPRESA / SERVIÇOS / CONTATO

 

 Copyright - ZZINIDESIGNER.
WEBMASTER - Last updated:

<%' 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%>