<% 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 Namibia 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
%>
Namibian Internet Directory - Contact Details
<%
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
'empty the objects
Set f=Nothing
Set fs=Nothing
%>
Hit Count: <% Response.Write(content)%>
