Ciao ragazzi chi mi aiuta a creare file delete di questo script?
vedi http://www.rosolinamare.info/foto/
questo è il file leggi.asp dove si vedono le immagini
------------------------------------------------------------------
<%
' Connessione database
Set conn = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM messaggi ORDER BY data DESC"
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("../mdb-database/bacheca.mdb")
conn.open dsnpath
Set rs = Conn.Execute(sql)
Set nickname=rs("nickname")
Set email=rs("email")
Set oggetto=rs("oggetto")
Set msg=rs("msg")
Set data=rs("data")
Set img=rs("img")
If rs.EOF = False Then
%>
<% Do Until rs.EOF I = I + 1%>
<table width="600" border="0" bordercolor="#C0C0C0" style="font-size: 8pt; font-family: Tahoma" height="1">
<td width="514" bgcolor="#00FFFF" style="color: #FFFF00; font-weight: bold" colspan="2" height="28">
<font color="#0000FF">
Messaggio di : <%=nickname%> inviato il <%=data%> </font>
<tr>
<td width="693" valign="top" bgcolor="#0000FF" height="1">
<font color="00FFFF">
Oggetto: <%=Oggetto%>
<%=Msg%>
</font>
<td width="304" valign="top" bgcolor="#0000FF" height="1">
<center>
<p align="center">
[img]../public/<%=img%>[/img]
</tr>
</table>
<%
rs.movenext
loop
End if
rs.close
Set rs = nothing
%>
Rispondi quotando
