Hazır Script – Hazır Kod

Sql server connect

Sql server baglantisinin yapilmasi. çalisan ve test edilmis kodlarla.

codeDivStart()

<%

dim i

Set Bag = Server.CreateObject("ADODB.Connection" )

Bag.Open ("Driver={SQL Server};" & "Server=SERVERADINIYAZIN;" & _

           "Address=SERVERIPADRESIYAZIN,1433;" & _

           "Network=DBMSSOCN;" & _

           "Database=DATABASEADIYAZIN;" & _

           "Uid=sa;")

Set RS = Server.CreateObject("ADODB.RecordSet" )

RS.Open "SELECT webadres FROM linkler",BAG,1,3

For i = 1 TO 10

IF RS.eof THEN EXIT FOR

Response.write(RS.Fields("webadres") & "<br>")

RS.MoveNext

Next

RS.Close

Set RS = Nothing

Bag.Close

Set Bag = Nothing

%>