Feature Detail Dispaly

<% Dim SQL1, FeatureID,sFeatureName, 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 FeatureID = Request("FeatureID") SQL1 = "exec Find_Feature_Details '" + FeatureID +"'" Set RS = Conn.Execute(SQL1) if rs.eof then Response.Write "
" Response.Write "
" Response.Write "

" Response.Write "

# No Data Available

" End if Set sFeatureName=rs("FeatureName") Set sFeatureType=rs("FeatureType") Set sCounty=rs("County") Set sState=rs("State") Set sLat=rs("Lat_Dec") Set sLon=rs("Lon_Dec") Set sElev=rs("Elev") Set sEstPop=rs("EstPop") Do while not rs.eof Response.Write "

Feature Name: | " & sFeatureName & "
" Response.Write "
State: | " & sState & " | County: | " & sCounty & "
" Response.Write "
Lattitude: | " & sLat & " | Longitude: | " & sLon & "
" Response.Write "
Feature Type: | " & sFeatureType & " | Elevation: | " & sElev & "
" Response.Write "
|  | Estimated Population (If Applicable): | " & sEstPop & "
" Response.Write "
Feature Id: | " & FeatureID & " |

" rs.movenext Loop %>