Codice PHP:
<link href="../../Immobiliare Lecce.css" rel="stylesheet" type="text/css" />
<%
FUNCTION apostrofo(stringa)
apostrofo=replace(stringa, "'", "''")
END FUNCTION
FUNCTION luogo(stringa)
arr=split(stringa, "/")
arr2=split(arr(1),".")
luogo=arr2(0)
END FUNCTION
ID=Request.QueryString("ID")
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\webs\sifcasait\mdb-database\ImmobiliareSIFCasa.mdb;","SELECT * FROM Immobili"
.EnabledAspUpload = False
.EnabledImageSize = False
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath provincia&"\"&comune&"\"&ID&"\"
.Load
'Leggo dati modulo
tipo = .Form("tipologia")
vendita=.Form("Vendita")
IF (vendita="") THEN
vendita=false
END IF
fitto=.Form("Fitto")
IF (fitto="") THEN
fitto=false
END IF
libero=.Form("libero")
IF (libero="1") THEN
libero=true
ELSE
libero=false
END IF
Mq = .Form("estensione")
prezzo = .Form("prezzo")
regione = .Form("Regione")
provincia = .Form("Provincia")
comune = .Form("Comune")
indirizzo = .Form("indirizzo")
descrizione=.Form("descrizione")
vani=.Form("vani")
piano=.Form("piano")
destinazione=.Form("destinazione")
agenzia=.Form("agenzia")
.MoveFirst
if .EOF then
'Connetto il DB
Dim objCon
Set objCon=Server.CreateObject("ADODB.connection")
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Inetpub\webs\sifcasait\mdb-database\ImmobiliareSIFCasa.mdb;"
'Fine connessione
SQL="INSERT INTO Immobili (TipologiaImmobile,Vendita,Fitto,MetriQuadri,Prezzo,Regione,Provincia,Comune,Indirizzo,Descrizione,Libero,Vani,Piano,Destinazione,Agenzia) VALUES ('"&apostrofo(tipo)&"',"&vendita&","&fitto&","&Mq&","&prezzo&",'"&luogo(regione)&"','"&apostrofo(luogo(provincia))&"','"&apostrofo(accentoinversa(comune))&"','"&apostrofo(indirizzo)&"','"&apostrofo(descrizione)&"',"&libero&","&vani&","&piano&",'"&apostrofo(destinazione)&"',"&agenzia&")"
Set rs=Server.CreateObject("ADODB.recordset")
rs.Open SQL, objCon
set rs=nothing
objCon.close
Set objCon=nothing
else
.Database.Open()
While Not .EOF
.Save
Select Case .Files("InputName")
case "Campo1":.Database.Fields("Immagine1") = .GetFileName
Case "Campo2":.Database.Fields("Immagine2") = .GetFileName
Case "Campo3":.Database.Fields("Immagine3") = .GetFileName
Case "Campo4":.Database.Fields("Immagine4") = .GetFileName
Case "Campo5":.Database.Fields("Immagine5") = .GetFileName
End Select
.MoveNext
Wend
.Database.Fields("TipologiaImmobile")=tipo
.Database.Fields("Vendita")=vendita
.Database.Fields("Fitto")=fitto
.Database.Fields("Metriquadri")=Mq
.Database.Fields("Prezzo")=prezzo
.Database.Fields("Regione")=luogo(regione)
.Database.Fields("Provincia")=luogo(provincia)
.Database.Fields("Comune")=accentoinversa(comune)
.Database.Fields("Indirizzo")=indirizzo
.Database.Fields("Descrizione")=descrizione
.Database.Fields("Libero")=libero
.Database.Fields("Vani")=vani
.Database.Fields("Piano")=piano
.Database.Fields("Destinazione")=destinazione
.Database.Fields("Agenzia")=agenzia
.Database.AddNew()
end if
End With
Set oUpload = Nothing
Response.Write("<table width=""700"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td height=""395"" align=""center""><input type=""button"" value=""Inserisci nuovo immobile"" onclick=""javascript:location.href='../../gestione/Inserisci immobile.asp'"" /></td></tr></table>")
%>
il problema è rendere dinamico SetPath con i dati che trovi nel modulo
.Form("Provincia") e comune
Rispondi quotando
