News dal mondo della moda
<% Set conn = Server.CreateObject("ADODB.Connection") connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_data/voguedb1.mdb")&";usr=pw=" Conn.Open connStr if request.QueryString()="" then %> <%SQL=("Select * from News order By Ordine,id") set rs=conn.execute(SQL) do while not rs.eof link="News.asp?ID="&RS("ID")%> <%=rs("titolo")%>
<%=rs("intro")%>
[leggi]

<%rs.movenext loop%> <%else SQL=("Select * from News where ID="&request.Querystring("ID")) set rs=conn.execute(SQL)%>

<%=rs("titolo")%>
<%=rs("testo")%>

[Torna alle news] <%end if%>

<% MSG="" if trim(request.form())<>"" then SQL=("Select * from Schede where Mail like '"&trim(request.Form(1))&"'") set rs=conn.execute(SQL) if not rs.eof then MSG="Indirizzo già presente" else if len(trim(request.form(1)))>5 then SQL="Insert into Schede (Mail) values ('"&trim(request.Form(1))&"')" MSG="Sei stato iscritto alla nostra newsletter.Grazie." set rs=conn.execute(SQL) end if end if response.write MSG else %> Iscriviti alla nostra Newsletter
per ricevere informazioni ed aggiornamenti

Mail:
Autorizzo il trattamento dei dati