<%response.buffer = true%> Foros <% OpenDB con, "foro1" 'MaxMailNo: Max Mails Number in one Page MaxMailNo = 40 'The Page Number To Display PageNo=Request.Form("CurPageNo") if PageNo="" then PageNo=1 else PageNo=cint(PageNo) end if 'Default Page Number is the First Page %>
En este Foro Virtual usted podra intercambiar opiniones.

 



<% SQL = "SELECT * FROM tblBulletin WHERE fldReply = 0 ORDER BY fldAuto DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open SQL,con,3,1 rs.PageSize=MaxMailNo LastPage=rs.PageCount rs.AbsolutePage =PageNo for i=1 to rs.PageSize varAuto = rs("fldAuto") varName = rs("fldName") varEmail = rs("fldEmail") varTi = rs("fldTitle") varBody = rs("fldBody") varDate = rs("fldDate") varTime = rs("fldTime") %> <%=varTi%> -- <%=varName%>, <%=varDate%> <%If varDate=Date Then%><%end If%>
<% call DispSubMail(1,varAuto) rs.MoveNext if rs.EOF then exit for next %> >
<% if PageNo > 1 then %>   <% End if %> <% if PageNo < LastPage then %> <% End If %>

<% If Request.Cookies("HuiYang")("Name")<>"" Then varN = Request.Cookies("HuiYang")("Name") varE = Request.Cookies("HuiYang")("Email") End If %>
Nombre:
Dirección Electrónica:
Titulo del Mensaje:
Mensaje: