<%@ Language=VBScript %> <% Response.Expires=0%> Kuwait Samachar News <% ' Setting the options dim strQ, rsM, sGroup, sHead,iId, sSum iId=Request.QueryString("mId") set rsM = server.CreateObject("adodb.recordset") strQ= "select * from kuwaitnews where msg_id= " & iId rsM.Open strQ,cnn,3,3,1 if rsM.EOF then Response.Write("No message available") else sSum=replace(rsM.Fields("summary"),chr(13)& chr(10),"
") +"

" sURL1=rsM.Fields("related") If sURL1 <>"" then if LCase(left(sURL1,7)) <> "http://" then sURL1="http://" + sURL1 end if else sURL1="http://www.kuwaitsamachar.com/online" End if %> <% End if set rsM =nothing set cnn=nothing %>
 

   

<%=rsM.Fields("mainhead")%>


<%=sSum%>

 
    <% if NOT isnull(sURL1) then %> Related News <% end if %>