<% AOBAMainCstring = "driver={SQL Server}; server=216.205.106.34,1433; database=aobaweb_main; UID=aobaweb_admin; Pwd=A0ba!09z;" sql="select * from affiliates order by name" data = GetSQLData(sql, AOBAMainCstring) files = "C:\Inetpub\wwwroot\alpacaowners.com\benefactor\" for i=0 to ubound(data) id = data(i)(0) company = data(i)(1) name = data(i)(2) email = data(i)(3) url = data(i)(4) verified = data(i)(5) if url<>"" then if left(lcase(url),4) <> "http" then url = "http://" & url end if nm = company &" - " & name' & " - " & id r="

" if FileExists(files & "AB_"& id &"_icon.jpg") then r=r & "" end if r=r &"

" if url<>"" then r=r & "" r=r & nm if url<>"" then r=r & "" print r & " " & vbcrlf next sub Print(content) Response.Write(content) end sub function GetSQLData(sql, cstring) dim ors, oconn, s, temp set oconn = CreateObject("ADODB.Connection") oconn.open cstring on error resume next set ors = CreateObject("ADODB.recordset") ors.open sql, oconn if err then oconn.close GetSQLData=array() print "Error: " & err.description & " " & vbcrlf print "SQL: " & sql & " " & vbcrlf exit function end if s= array() while not ors.eof temp = array() for i=0 to ors.fields.count-1 append temp, ors(i) & "" next ors.movenext append s, temp wend ors.close oconn.close GetSQLData = s end function sub Append(arr, val) redim preserve arr(ubound(arr)+1) arr(ubound(arr))=val end sub '' see if a file exists (must have path) function FileExists(FileName) FileExists = false dim fso set fso=Server.CreateObject("Scripting.FileSystemObject") FileExists = fso.FileExists(FileName)=true set fso=nothing end function %>

ALPACA INFO

ALPACA OWNERS

ALPACA SHOWS

ALPACA MAGAZINE

ALPACA FASHION

NATIONAL ALPACA FARM DAYS