<%
Function PCase(sValue)
iPos = 1
Do While InStr(iPos, sValue, " ", 1) <> 0
iSpace = InStr(iPos, sValue, " ", 1)
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1, _
iSpace - iPos))
iPos = iSpace + 1
Loop
sTemp = sTemp & UCase(Mid(sValue, iPos, 1))
sTemp = sTemp & LCase(Mid(sValue, iPos + 1))
PCase = sTemp
End Function
%>
<%
Dim con
Dim rs,rs1
Dim i
Set con = server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.recordset")
Set rs1 = Server.CreateObject("ADODB.recordset")
con.Open "DSN=aug05_websites","aug05_websites","aug2005"
%>
<%
host = request.ServerVariables("HTTP_HOST")
lft = left(host,4)
if(lft = "www." or lft = "WWW.") then
host = right(host, (len(host)-4))
end if
%>
<%
dim T,D,K,Z
Sql = "Select * from hosts where host ='" & host & "'"
rs.Open sql,con,1,2
if rs.recordcount > 0 then
t = rs("main_keyword")
y = rs("host_text")
Z = rs("host")
end if
%>
ContectUs
