Salve, il mio problema è questo.
Per un mio amico ho realizzato uno script che inserisce in un Db A/2.0 i dati relativi alle vetture in promozione del tipo: Marca, Modello, Optionals ecc. I dati sono visibili poi in una tabella che li riepiloga. Allo stesso modo vorrei inserire anche un'immaggine della vettura in vendita, e dare la possibilità alla persona interessata di poterla visualizzare.
Questo è lo script d'inserimento:
<%
if Session("Autenticato")<>"OK" then
Response.Redirect("login.asp")
end if
'Acquisiamo i dati dal form
marcaveicolo = Session("marcaveicolo")
modelloveicolo = Session("modelloveicolo")
optionalsveicolo = Session("optionalsveicolo")
annoveicolo = Session("annoveicolo")
prezzoveicolo = Session("prezzoveicolo")
'Apriamo la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/autovetture.mdb")
'Prepara la SQL
sql = "select * from Auto"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
'Aggiungi
RS.AddNew
rs.Fields("marca")=marcaveicolo
rs.Fields("modello")=modelloveicolo
rs.Fields("optionals")=optionalsveicolo
rs.Fields("anno")=annoveicolo
rs.Fields("prezzo")=prezzoveicolo
rs.update
'Chiusura
rs.Close
Set rs=Nothing
conn.close
Set conn=Nothing
Response.redirect("inserimento.asp")
%>
Mentre questo è lo script per la visualizzazione:
<%
if Session("Autenticato")<>"OK" then
Response.Redirect("login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<title>Visualizza i Veicoli</title>
<style>
A:link, A:visited { text-decoration: none }
A:hover {color: #FF0000; text-decoration: underline }
</style>
</head>
<!--#include file="connessione.asp"-->
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="770">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" align="center"> </td>
</tr>
<tr>
<td width="100%" align="center">
<font face="Arial Black" size="5" color="#003399">Visiona i
Veicoli</font></td>
</tr>
</table>
</center>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%"> </td>
</tr>
</table>
<div align="center">
<center>
<table border="1" cellpadding="4" width="734" cellspacing="0" bgcolor="#FFCC99" height="90" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" valign="middle" align="center" height="29" colspan="7"> </td>
</tr>
<tr>
<td width="34" valign="middle" align="center" height="29"> </td>
<td width="156" height="29">
<p align="center">
<b>
<font size="2" face="Microsoft Sans Serif" color="#003399">Marca</font></b></td>
<td width="140" height="29">
<p align="center">
<b>
<font size="2" face="Microsoft Sans Serif" color="#003399">Modello</font></b></td>
<td width="320" height="29">
<p align="center">
<b>
<font size="2" face="Microsoft Sans Serif" color="#003399">Optionals</font></b></td>
<td width="4" height="29">
<p align="center">
<b>
<font size="2" face="Microsoft Sans Serif" color="#003399">Anno</font></b></td>
<td width="80" height="29">
<p align="center">
<b>
<font size="2" face="Microsoft Sans Serif" color="#003399">Prezzo</font></b></td>
</tr>
<%
SQL="SELECT * FROM Auto order by marca"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<tr>
<td width="34" valign="middle" align="center" height="30"></td>
<td width="156" height="30"><font size="2" face="Microsoft Sans Serif" color="#003399"><%=rec("marca")%></font></td>
<td width="140" height="30"><font size="2" face="Microsoft Sans Serif" color="#003399"><%=rec("modello")%></font></td>
<td width="320" height="30"><font size="2" face="Microsoft Sans Serif" color="#003399"><%=rec("optionals")%></font></td>
<td width="4" height="30" align="right"><font size="2" face="Microsoft Sans Serif" color="#003399"><%=rec("anno")%></font></td>
<td width="80" height="30" align="right"><font size="2" face="Microsoft Sans Serif" color="#003399"><%=rec("prezzo")%></font></td>
</tr>
<% rec.MoveNext
Wend
rec.close
set rec = Nothing
Conn.close
Set Conn = Nothing
%>
<tr>
<td width="534" valign="middle" align="center" height="30" colspan="7"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" align="center">
</td>
</tr>
<tr>
<td width="100%" align="center">
<font face="Arial" size="2" color="#003399">
<input type="button" value="Chiudi" name="B1" onclick="window.close()">
</font></td>
</tr>
</table>
</center>
</div>
<p> </td>
</tr>
</table>
</center>
</div>
</body>
</html>
Come fare? Mi date un consiglio?
Grazie a tutti.
Ros.
