% dim con,rs set con = server.CreateObject("adodb.connection") set rs=server.CreateObject("adodb.recordset") con.open "dsn=bestvalue","bestvalue","best2006" 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 indianapolis" 'Sql = "Select * from hosts where host ='" & host & "'" rs.open sql,con,3,3 'Response.Write(sql) %>
|
|
Indianapolis Marketplace,
Indianapolis Hotel Directory, Indianapolis Discussion Forum, Indianapolis Business Directory. |
|
Indianapolis Hotel |
|
Celebrate City Network, Inc. Copyright - Celebrate
City Networks - 2006-2010 |
|