Swaziland Internet Directory

<% Dim Connect, rstemp, sqlString, connstr Set Connect = Server.CreateObject("ADODB.Connection") connstr = "Driver={Mysql}; Server=sql4de.your-server.co.za; Database=namibi_db1; UID=namibi_u1_r; PWD=qtzffgdT;" Connect.Open(connstr) sqlString = "SELECT * FROM Swaziland WHERE Id = '1' ORDER BY Category ASC" Set rstemp = Connect.Execute(sqlString) if rstemp.eof then response.write "no data for
" response.write sqlString Connect.close set Connect=nothing response.end end if %> Swaziland Internet Directory

Welcome to Swazilandinternetdirectory.com

<%=FormatDateTime(Date,1) %> <%=FormatDateTime(now,3) %>

<% dim filename filename = "hit_count.txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") 'open the file Set f=fs.OpenTextFile(Server.MapPath(filename), 1) content = f.ReadAll If content = "" Then content = 0 End If 'close the file f.Close content = content + 1 Set f=fs.CreateTextFile(filename,true) f.write(content) f.close 'empty the objects Set f=Nothing Set fs=Nothing %> Hit Count:<% Response.Write(content)%>

Online Users:<% Response.Write(Application("online_users"))%>

<% dim strconn strconn = "Driver={Mysql}; Server=sql4de.your-server.co.za; Database=namibi_db1; UID=namibi_u1_r; PWD=qtzffgdT;" Set objConn = Server.CreateObject ("ADODB.Connection") objConn.open strconn Set Rec = objConn.execute("Select count(*) from Swaziland") %>Current Listings:<%= Rec(0) %>

Username:

Password:

Excellent

Very Good

Good

Average

Poor

<% Set Content = Server.CreateObject("MSWC.ContentRotator")%> <%=Content.ChooseContent("/content/content.txt")%>