<% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 if request.querystring("insertado")<> "" then%> El teu missatge ha estat insertat. Moltes grącies per la teva aportació <%end if if request.querystring("borrado")<> "" then%> El mensaje seleccionat s'ha esborrat <%end if Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../dades/interculturalitat/librovisitas.mdb")) set rs=createobject("ADODB.Recordset") 'rs.CursorType = adOpenKeyset 'rs.LockType = adLockOptimistic rs.open "select * from visitas order by id desc",conn if not rs.EOF then do while not rs.EOF%>

<%=rs("nombre")%> <%if rs("mail")<>"" then%> ">Correu electrònic <%end if%>	">Esborrar missatge	<%=rs("fecha")%>
Missatge: <%=rs("comentarios")%>		<% if rs("Pais")<>"" then%> País <%=rs("pais")%>
		<%end if%> <% if rs("como")<>"" then%> Com ens vas conèixer? <%=rs("como")%>
		<%end if%> <% if rs("opinion")<>"" then%> Quina opinió et mereixen aquestes planes? <%=rs("opinion")%> <%end if%>

<%rs.movenext loop end if rs.close conn.close set rs=nothing set conn=nothing%>

Firmar

Nom E-Mail Paķs Com ens vas conèixer? Què opines d'aquestes planes? No opino Molt bones Bones Regulars Dolentes Molt dolentes Comentaris/Missatge