home

<%Set Conn = Server.CreateObject("ADODB.Connection") Application("DSN_TS") = "dsn=DSN_TrackingSurvey;uid=sa;pwd=gapper" 'response.write Application("DSN_TS") Conn.Open Application("DSN_TS") Response.Write("

Contacts for "& Session("StateName") & "

") Set RS = Conn.Execute("EXEC spGetFirstStateContact " & Session("StateID")) While Not RS.EOF Response.Write("" & (RS("GivenName")) & " " & (RS("FamilyName")) &"
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

	Address:	" & RS("Address") & "
	Phone:	" & RS("Phone") & "
	Fax:	" & RS("Fax") & "
	E-Mail:	" & RS("EMail") & "

") RS.MoveNext If Not RS.EOF Then Response.Write("
") End If WEND %>