<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim conn
dim ssql
dim rs
dim service_description
%>
<%
ssql = "select * from tbl_service where service_id = '" & Request.QueryString("service_id") & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
if len(trim(rs("service_description"))) > 0 then
service_description = replace(rs("service_description")," ",vbcrlf, 1, -1, 1)
end if
%>
<%
rs.Close
conn.Close
set rs = nothing
set conn = nothing
else
Response.Redirect "../../index.asp"
end if
%>