" & RSContact("GivenName") & " " & RSContact("FamilyName") & "

" Response.Write"" Response.Write"" Response.Write"" End Sub %>

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DSN_TS") Set RSContact = Conn.Execute("EXEC spGetFirstStateContact " & Request("StateID")) Call WriteContact() While RSContact("NextContactID" ) <>0 Set RSContact = Conn.Execute("EXEC spGetStateContact " & Request("StateID")) Call WriteContact() WEnd Sub WriteContact() Response.Write"
	Address:	" & RSContact("Address") & "
	Phone:	" & RSContact("Phone") & RSContact("PhoneExtension") & "
	E-Mail:	" & RSContact("EMail") & "