Welcome
Welcome to Craigs Casino Blog Network!
posted by Craigs Casino Blog Network at
2:47 PM
Tuesday, December 9, 2008
Contributors
|
<% Dim con, strSQL, objConn, objRS
Dim nRecord
nRecord=1
con = "provider=SQLOLEDB;Data Source=65.61.140.171,4120;Initial Catalog=339411_neekam;Persist Security Info=True;User ID=339411_neekam;Password=slapdicks11"
strSQL = "SELECT * FROM neekam_directories where directory_name='craigscasinoblognetwork' order by domain_name"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open con
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
Do While Not objRS.eof
Response.Write("" + objRS.fields(2).value + " ") +chr(13) objRS.movenext Loop objRS.Close objConn.Close %> |
Previous Posts
Subscribe to
Posts [Atom]
0 Comments:
Post a Comment
<< Home