NEW GAME! whats do you have copied RIGHT NOW!
For Each dr2 In rs2.Tables(0).Rows
If strItem <> dr2("strTeamName").ToString Then
strItem = dr2("strTeamName").ToString()
strHTML += "<font color = #FF0000 size=2>" & dr2("strTeamName").ToString() & "</font>" & vbCrLf
rs3 = GetData("Select * from tblContacts Where intLocation = '" & strID & "' AND intTeam = " & dr2("intID").ToString())
strHTML += "<table border=0>"
For Each dr In rs3.Tables(0).Rows
strHTML += "<tr><td nowrap>" & dr("strName").ToString() & "</td><td nowrap>" & dr("strTitle") & "</td>"
strHTML += "<td nowrap>" & dr("strPhone") & "</td><td nowrap><a href = mailto:" & dr("stremail").ToString() & ">" & dr("strEmail") & "</td></tr>"
Next
strHTML += "</table>
"
End If
Next
If strItem <> dr2("strTeamName").ToString Then
strItem = dr2("strTeamName").ToString()
strHTML += "<font color = #FF0000 size=2>" & dr2("strTeamName").ToString() & "</font>" & vbCrLf
rs3 = GetData("Select * from tblContacts Where intLocation = '" & strID & "' AND intTeam = " & dr2("intID").ToString())
strHTML += "<table border=0>"
For Each dr In rs3.Tables(0).Rows
strHTML += "<tr><td nowrap>" & dr("strName").ToString() & "</td><td nowrap>" & dr("strTitle") & "</td>"
strHTML += "<td nowrap>" & dr("strPhone") & "</td><td nowrap><a href = mailto:" & dr("stremail").ToString() & ">" & dr("strEmail") & "</td></tr>"
Next
strHTML += "</table>
"
End If
Next
Originally posted by HKStallion
XV-Z10000
XV-Z10000
^^^ is what's in my clipboard.






