nel codice sotto riportato nn ci sn particolari problemi praticamente il codice sotto riporato prende il contenuto del form è lo memorizza in un database e lo visualizza sotto al form cioè ad ogni messaggio ke inserisco me lo mette sotto al form l'unica cosa ke nn riesco a capire e come fare per invertire l'ordine? cioè l'ultimo dato immesso deve apparire sotto mentre quelli piu vecchi vanno in fondo alla pagina..
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(".") & "/mdb-database/nomi.mdb"
sql = "SELECT * FROM Nomi"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if Request.Form("Nome") <> "" then
rs.AddNew
rs.Fields("Nome") = Request.Form("Nome")
rs.update
elseif Request.Form("Cognome") <> "" then
rs.AddNew
rs.Fields("Cognome") = Request.Form("Cognome")
rs.update
end if
%><html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nome</title>
</head>
<body>
<form method="POST">
<table width="400" border="1" align="center">
<tr>
<td align="center" width="33%">Esprimi un tuo pensiero</td>
</tr>
<tr>
<td align="center" width="33%"><textarea name="Nome" cols="50" rows="3"></textarea></td>
</tr>
<tr>
<td align="center"><input type="submit" value="Invia" name="B1"></td>
</tr>
</table>
</form>
<p align="center"><%
rs.MoveFirst
do until rs.EOF
Response.write(rs.Fields("Nome") & "
")
rs.MoveNext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%></p>
</body>
</html>
Rispondi quotando
