<%
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=anchortext","anchortext","anchor2005"
%>
<%
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 Z,T
Sql = "Select * from host where host = '" & host & "'"
rs.Open sql,con,1,2
if rs.recordcount > 0 then
Z = rs("host")
V = rs("Anchor_text")
A = rs("AT1")
B = rs("AT2")
C = rs("AT3")
D = rs("Description")
end if
%>
<%=A%>, <%=B%> in india, <%=C%> in america.
