Salve come posso integrare questo script con l'upload di tre immagini anzichè una? i campi del mio database access li ho chiamati:
image (la immagine che già uploado) image 1 e image 2
sono in DIFFICOLTA', questo è lo script del form:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%if not session("AdminOk")="true" then response.Redirect "login.asp" %>
<%
dim productname
dim price
dim category
dim details
dim filename
dim code
dim mq
dim arredato
dim piano
dim eta
dim spesacondo
dim riscalda
dim garage
dim msg
Set Uploader = New FileUploader
Uploader.Upload()
if Uploader.Form("submit")<>"" then
productname = Uploader.Form("name")
code = uploader.Form("code")
price = Uploader.Form("Price")
category = Uploader.Form("Category")
details = Uploader.Form("details")
mq = uploader.Form("mq")
arredato = uploader.Form("arredato")
piano = uploader.Form("piano")
eta = uploader.Form("eta")
spesacondo = uploader.Form("spesacondo")
riscalda = uploader.Form("riscalda")
garage = uploader.Form("garage")
call SaveRecord()
End if
if request.QueryString("id")<>"" then
call GetRecord()
End if
Sub SaveRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn
if Uploader.Files.count <> 0 then
File = Uploader.Files.Items()
File(0).SavetoDisk Server.MapPath("/public/images")
filename = File(0).Filename
else
filename = ""
End if
if Uploader.Form("id")="" then
rs.open "Select * From Products",cn,2,3
rs.addnew
rs.fields("productname") = productname
rs.fields("code") = code
rs.fields("price") = price
if filename <>"" then rs.fields("image") = filename
rs.fields("details") = details
rs.fields("categoryid") = category
rs.fields("mq") = mq
rs.fields("arredato") = arredato
rs.fields("piano") = piano
rs.fields("eta") = eta
rs.fields("spesacondo") = spesacondo
rs.fields("riscalda") = riscalda
rs.fields("garage") = garage
rs.update
msg = "L'annuncio e' stato salvato"
saved = true
else
rs.open "Select * From Products Where ProductID=" & Uploader.Form("id"),cn,2,3
rs.fields("productname") = productname
rs.fields("code") = code
rs.fields("price") = price
rs.fields("details") = details
rs.fields("categoryid") = category
if filename <>"" then rs.fields("image") = filename
rs.fields("mq") = mq
rs.fields("arredato") = arredato
rs.fields("piano") = piano
rs.fields("eta") = eta
rs.fields("spesacondo") = spesacondo
rs.fields("riscalda") = riscalda
rs.fields("garage") = garage
rs.update
msg = "Upload annuncio...ATTENDERE"
saved = true
End if
rs.close
cn.close
set rs = nothing
set cn = nothing
End Sub
Sub GetRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn
rs.open "Select * From Products Where ProductID=" & request.QueryString("id"),cn
if not rs.eof then
productname = rs.fields("productname")
code = rs.fields("code")
price = rs.fields("price")
details = rs.fields("details")
category = rs.fields("categoryid")
filename = rs.fields("image")
mq = rs.fields("mq")
arredato = rs.fields("arredato")
piano = rs.fields("piano")
eta = rs.fields("eta")
spesacondo = rs.fields("spesacondo")
riscalda = rs.fields("riscalda")
garage = rs.fields("garage")
End If
rs.close
cn.close
set rs = nothing
set cn = nothing
msg = "L'annuncio e' stato caricato"
End Sub
%>
<html>
<head>
<title>No title</title>
<meta name="generator" content="Namo WebEditor v6.0">
</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red" topmargin="0" marginheight="0">
<table border="0" align="center" width="780" cellpadding="0" cellspacing="0">
<tr>
<td width="550" height="382" valign="top">
<p align="center" style="margin-bottom:1;"><font color="#FF0000"><%= msg%>
</font></p>
<form action="" method="post" enctype="multipart/form-data" name="form1" style="line-height:1; margin-top:1; margin-bottom:1;">
<table border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#9FC0DF" bordercolordark="#9FC0DF" bordercolorlight="#9FC0DF" width="444">
<tr>
<td height="23" colspan="2" bgcolor="#9FC0DF" width="436"><font size="2" face="Verdana">Aggiungi
un annuncio ad una categoria</font></td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana"></font></td>
<td width="306"></td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana">Affitto o Vendo</font></td>
<td width="306">
<input name="name" type="text" id="name3" value="<%=productname%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana">Zona</font></td>
<td width="306">
<input name="code" type="text" id="code1" value="<%=code%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana">Metri Quadri</font></td>
<td width="306">
<input name="mq" type="text" id="code1" value="<%=mq%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Canone o Prezzo</font></td>
<td width="306">
<input name="price" type="text" id="name" value="<%=price%>"></td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Arredato</font></td>
<td width="306">
<input name="arredato" type="text" id="name" value="<%=arredato%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Piano</font></td>
<td width="306">
<input name="piano" type="text" id="name" value="<%=piano%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Età</font></td>
<td width="306">
<input name="eta" type="text" id="name" value="<%=eta%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Riscaldamento</font></td>
<td width="306">
<input name="riscalda" type="text" id="name" value="<%=riscalda%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Garage o p.a.</font></td>
<td width="306">
<input name="garage" type="text" id="name" value="<%=garage%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Spese Condominiali</font></td>
<td width="306">
<input name="spesacondo" type="text" id="name" value="<%=spesacondo%>">
</td>
</tr>
<tr>
<td width="124"><font size="2" face="Verdana,Arial">Tipologia</font></td>
<td width="306">
<select name="category" id="category">
<%
dim rs1
dim cn1
set cn1 = server.CreateObject("Adodb.Connection")
set rs1 = server.CreateObject("Adodb.Recordset")
cn1.Open conn
rs1.open "Select * From ProductCategories",cn1
%>
<option value="0" selected>Select</option>
<option value="0">-</option>
<%if not rs1.eof then
while not rs1.eof%>
<option value="<%=rs1.fields("CategoryID")%>" <%if CLng(Category)=rs1.fields("CategoryID") then response.Write("Selected")%>><%=rs1.fields("Catego ryName")%></option>
<%
rs1.movenext
wend
end if
%>
</select>
</td>
</tr>
<tr>
<td valign="top" width="124"><font size="2" face="Verdana,Arial">Immagine</font></td>
<td width="306">
<input type="file" name="file">
<font color="#FF0000"><%= filename%></font></td>
</tr>
<tr>
<td valign="top" width="124"><font size="2" face="Verdana,Arial">Descrizione</font></td>
<td width="306">
<textarea name="details" cols="34" rows="5" id="name2"><%=details%></textarea>
</td>
</tr>
<tr>
<td colspan="2" width="436">
<p align="center"><font size="2" face="Verdana" color="red">ATTENZIONE
: tutti i campi sono obbligatori</font></p>
</td>
</tr>
<tr>
<td height="26" width="124"></td>
<td width="306">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="Submit2" value="Reset">
</td>
</tr>
</table>
<p style="line-height:2; margin-top:0; margin-bottom:0;" align="center">
<input name="id" type="hidden" id="id" value="<%=request.querystring("id")%>">
Visualizza tutti gli annunci</p>
</form>
<p style="line-height:0; margin-top:0; margin-bottom:0;" align="center">
Menu</p>
</td>
</tr>
</table>
</body>
</html>
Rispondi quotando
