Programalama > ASP

<% 

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

%>