Business Detail Dispaly

<% Dim SQL1, FeatureID,sName, sFeatureType, sCounty, sState, sElev, sEstPop Dim sLat, sLon, Conn, RS Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE" ' Getting information passed on from other page BusID = Request("BusID") SQL1 = "exec Find_Business_Details '" + BusID +"'" Set RS = Conn.Execute(SQL1) if rs.eof then Response.Write "
" Response.Write "
" Response.Write "

" Response.Write "

# No Data Available

" End if Set sName=rs("Name") Set sAddr1=rs("Address_1") Set sAddr2=rs("Address_2") Set sCity=rs("City") Set sCounty=rs("County") Set sState=rs("State") Set sZip=rs("Zip") Set sPhone=rs("PhoneNum") Set sWeb=rs("Web") Set sSIC1=rs("SIC1") Set sSIC2=rs("SIC2") Set sSIC3=rs("SIC3") Set sSIC4=rs("SIC4") Do while not rs.eof Response.Write "

Business Name: | " & sName & "
" Response.Write "
Address: | " & sAddr1 & " | " Response.Write "
| " & sAddr2 & " | " Response.Write "
State: | " & sState & " | County: | " & sCounty & "
" Response.Write "
Zip: | " & sZIP & " |  |
" Response.Write "
Phone: | " & sPhone & " | Web Site: | " & sWeb & "
" Response.Write "
Business Type: | " & sSIC1& " |  |
" Response.Write "
| " & sSIC2 & " |
" Response.Write "
| " & sSIC3 & " |
" Response.Write "
| " & sSIC4 & " |
" Response.Write "

" rs.movenext Loop %>