%
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,objRs
Set con = server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.recordset")
Set objRs = Server.CreateObject("ADODB.recordset")
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
con.close
%>
Financial accounting, Account Service Provider.
|
| Accounting Service
Provider Directory. Accounting Information and Resources. |
| |
|
| Home
| About Us | Contact
Us |
|
| © Copyright 2005 Shreejiaccountingservice.com.
All rights reserved. |
|
|