<% dim conn 'db connection dim rs 'recordset dim sql 'sql query Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show dim iRecordsShown dim i 'counter dim idioma dim codigo codigo = request("codigo") idioma=request("idioma") if idioma = "" then idioma = "BR" end if Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open dsn'open connection sql = "select * from blog where codigo = "& codigo rs.Open sql, conn,adOpenStatic, adLockReadOnly, adCmdText if rs.eof AND Rs.bof =True Then response.write "• Nenhuma mensagem cadastrada!" else %> <%=rs("titulo")%>

<% if rs("imagem") <> "" then %> " hspace="0" vspace="20"/>
<% end if %> <%=rs("mensagem")%> <% end if rs.close set rs= nothing conn.close set conn = nothing %>

< back