%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim conn
dim ssql
dim rs
dim outlet_address
%>
<%
ssql = "select * from tbl_outlet where outlet_id = '" & Request.QueryString("outlet_id") & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
if len(trim(rs("outlet_address"))) > 0 then
outlet_address = replace(rs("outlet_address"),"
",vbcrlf, 1, -1, 1)
end if
%>