% strSQL="Select * From web_link Where m_id=" & WebUserID rs.open strSQL,conn,1,1 if rs.recordcount>0 then strContent=replace(trim(rs("wl_content")),"'","\'") strContent=replace(strContent,chr(13) & chr(10),"") response.Write("document.write('" & strContent & "');") else response.Write("document.write('