ho un file con questo codice e ho bisogno di inserire con lo stesso file anche la foto corrispondente alla descrizione..
come fare?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#CCCCCC">
<form method="post">
<H1 align="center">INSERIMENTO</H1>
Tipo di Immobile
<select name="immobile" id="immobile">
<option selected>qualsiasi</option>
<option>ATTICO</option>
<option>BOX</option>
<option>CASA DI CORTE</option>
<option>CASA INDIPENDENTE</option>
<option>CASA SEMINDIPENTE</option>
<option>MANSARDA</option>
<option>MONOLOCALE</option>
<option>PALAZZINA</option>
<option>RUSTICO</option>
<option>TERRENO EDIFICABILE</option>
<option>VARIE</option>
<option>VILLA A SCHIERA</option>
<option>VILLA BIFAMILIARE</option>
<option>VILLA QUADRIFAMILIARE</option>
<option>VILLA SINGOLA</option>
<option>VILLA TRIFAMILIARE</option>
</select>
Provincia:
<select name="provres" id="provres">
<option selected>AG</option>
<option>AL</option>
<option>AN</option>
<option>AO</option>
<option>AP</option>
<option>AQ</option>
<option>AR</option>
<option>AT</option>
<option>AV</option>
<option>BA</option>
<option>BG</option>
<option>BI</option>
<option>BL</option>
<option>BN</option>
<option>BO</option>
<option>BR</option>
<option>BS</option>
<option>BZ</option>
<option>CA</option>
<option>CB</option>
<option>CE</option>
<option>CH</option>
<option>CL</option>
<option>CN</option>
<option>CO</option>
<option>CR</option>
<option>CS</option>
<option>CT</option>
<option>CZ</option>
<option>EE</option>
<option>EN</option>
<option>FC</option>
<option>FE</option>
<option>FG</option>
<option>FI</option>
<option>FO</option>
<option>FR</option>
<option>GE</option>
<option>GO</option>
<option>GR</option>
<option>IM</option>
<option>IS</option>
<option>KR</option>
<option>LC</option>
<option>LE</option>
<option>LI</option>
<option>LO</option>
<option>LT</option>
<option>LU</option>
<option>MC</option>
<option>ME</option>
<option>MI</option>
<option>MN</option>
<option>MO</option>
<option>MS</option>
<option>MT</option>
<option>NA</option>
<option>NO</option>
<option>NU</option>
<option>OR</option>
<option>PA</option>
<option>PC</option>
<option>PD</option>
<option>PE</option>
<option>PG</option>
<option>PI</option>
<option>PN</option>
<option>PO</option>
<option>PR</option>
<option>PS</option>
<option>PT</option>
<option>PU</option>
<option>PV</option>
<option>PZ</option>
<option>RA</option>
<option>RC</option>
<option>RE</option>
<option>RG</option>
<option>RI</option>
<option>RM</option>
<option>RN</option>
<option>RO</option>
<option>SA</option>
<option>SI</option>
<option>SO</option>
<option>SP</option>
<option>SR</option>
<option>SS</option>
<option>SV</option>
<option>TA</option>
<option>TE</option>
<option>TN</option>
<option>TO</option>
<option>TP</option>
<option>TR</option>
<option>TS</option>
<option>TV</option>
<option>UD</option>
<option>VA</option>
<option>VB</option>
<option>VC</option>
<option>VE</option>
<option>VI</option>
<option>VR</option>
<option>VT</option>
<option>VV</option>
</select>
Località
<input name="telefono" type="text" id="telefono">
Descrizione
<textarea name="descrizione" id="descrizione"></textarea>
mq
<input name="mq" type="text" id="mq">
prezzo
<input name="prezzo" type="text" id="prezzo">
</p>
foto
<input name="foto" type="text" id="foto">
<input type="submit" name="Submit" value="sfoglia">
<input type="submit" value="aggiungi">
</p>
</form>
<%
if len (Request.Form)>0 then
dim Conn, strConn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/registrati.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
SQL = "SELECT * FROM clienti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs("immobile") = request.Form("immobile")
rs("prov") = request.Form("prov")
rs("localita") = request.Form("localita")
rs("descrizione") = request.Form("descrizione")
rs("mq") = request.Form("mq")
rs("prezzo") = request.Form("prezzo")
rs("foto") = request.Form("foto")
rs.Update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
Response.write "<H2>inserimento effettuato con successo</H2>"
End if
%>
</body>
</html>
Rispondi quotando
