<%
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
%>
High protein diet and weight loss weight loss Directory.
High protein diet and weight loss Directory.
High protein diet and weight loss and Resources.
About Us
You can post your requirement on this network
for FREE. Our customer care representative will
review your requirement and forward it to the
most appropriate advisor/consultant. Please describe
your requirements clearly. The more detail the
better. Review all proposals from global and local
service providers. Review proposals and pick the
right company.
Buy Cytomel
Clenbuterol Direct: Buy
Cytomel at low price. Discount Prescription Medications
Cheap Drugs Canada Online Pharmacy Buy Cytomel.
Find the online information about how to use Cytomel,
Cytomel profile; Cytomel cycles from clenbuteroldirect.com.Our
pharmacists have prepared hundreds of answers
to commonly asked questions. Check below for an
answer to your question. Buy Cytomel with Best
Prices Click Here To Buy Cytomel and Save Money.
