%
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=hotel_health","hotel_health","hh2005"
%>
<%
host = request.ServerVariables("HTTP_HOST")
lft = left(host,4)
if(lft = "www." or lft = "WWW.") then
host = right(host, (len(host)-4))
end if
%>
<%
Sql = "Select * from hosts where host = '" & host & "'"
rs.Open sql,con,1,2
if rs.recordcount > 0 then
a = rs("main_keyword")
d = rs("introduction")
w = rs("host")
end if
%>
Cosmetic Dentist Los Angeles.
Perfectwhitesmile Beverly
Hills Cosmetic
Dentistry by Los Angeles Cosmetic Dentist Dr.
David S. Frey DDS. Expert Beverly Hills cosmetic dentist Dr.
David S. Frey DDS uses the latest cosmetic dentistry techniques
in Los Angeles. Tooth Whitening Dentist in California provides
Dental Veneers from Porcelain and Tooth Whitening Bleach in
California. Contact for Tooth Whitening Bleach and Porcelain
Veneers in California.
Hollywood Cosmetic dentist providing veneers and porcelain
veneers to patients in Beverly Hills, CA. Dr. David S. Frey,
DDS a Hollywood cosmetic dentists provides Teeth Veneers services
in California, Beverly Hills, Los Angeles, Orange County.
Cosmetic Dentist Los Angeles | Porcelain Veneers
in California | Hollywood Cosmetic Dentist | Tooth Whitening
Beverly Hills |
Full Mouth Reconstruction | Tooth Whitening Dentist CA |
Cosmetic Dentistry Services Beverly Hills | Tooth Whitening
Bleach |
Teeth Veneers CA | Smile Makeover | Teeth Veneers California