<% Dim mySQL, myRS Set myRS = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM tblPartners ORDER BY CoName" Dim myArray, NumRows, RowCounter, CoName, RecNumber, RecCount myRS.Open mySQL, myConn RecCount=myRS.RecordCount Response.Write "

Partnerships

" Dim PartnerID PartnerID= Request.QueryString("PartnerID") myRS.MoveFirst While Not myRS.EOF If myRS("PartnerID")=PartnerID Then %>

" RecNumber = 0 myArray=myRS.GetRows numrows=UBound(myArray,2) Response.Write " " For rowcounter = 0 to numrows PartnerID=myArray(0,rowcounter) CoName=myArray(1,rowcounter) If myArray(0,rowcounter)=Request.QueryString("PartnerID") then Response.Write "" & CoName & "" Else Response.Write "" & CoName & "" End If Next Response.Write "

<% IF myRS("PartnerImage")="" Then %> No Partner Image Available <%Else%> width="300" height="100"> <%End If%>

<%= myRS("PartnerNotes")%>

<% End If myRS.MoveNext Wend myRS.AbsolutePosition = PartnerID Response.Write "" If PartnerID=1 Then Response.Write "" Else Response.Write "" End If If PartnerID >=RecCount Then Response.Write "" Else Response.Write "" End If Response.Write "" myRS.Close Set myRS=Nothing Set myConn=Nothing %>