codice:
<%
ID = cInt(request("ID"))
%>
<%
If Request.QueryString("Save")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "/public" 'Impostazione del percorso
oUpload.Load
oUpload.UploadOnly "images"
While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "immagine1"
FileName_immagine1 = oUpload.GetFileName()
Case "immagine2"
FileName_immagine2 = oUpload.GetFileName()
Case "immagine3"
FileName_immagine3 = oUpload.GetFileName()
Case "immagine4"
FileName_immagine4 = oUpload.GetFileName()
Case "immagine5"
FileName_immagine2 = oUpload.GetFileName()
titolo = oUpload.Form("titolo")
testo = oUpload.Form("testo")
genere1 = oUpload.Form("genere1")
principale = oUpload.Form("principale")
autore = oUpload.Form("autore")
email = oUpload.Form("email")
End Select
oUpload.MoveNext
Wend
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/articolimobile.mdb")
'Imposto la stringa SQL di selezione dati
sSql = "UPDATE articolo SET immagine1='"& replace(FileName_immagine1,"'","''")&"', immagine2='"& replace(FileName_immagine2,"'","''")&"', immagine3='"& replace(FileName_immagine3,"'","''")&"', immagine4='"& replace(FileName_immagine4,"'","''")&"', immagine5='"& replace(FileName_immagine5,"'","''")&"', titolo='"& replace(titolo,"'","''")&"', testo='"& replace(testo,"'","''")&"', genere1='"& replace(genere1,"'","''")&"', autore='"& replace(autore,"'","''")&"', email='"& replace(email,"'","''")&"', principale='"& replace(principale,"'","''")&"' WHERE id =" & id & ";"
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing
Response.Redirect("modarticolo.asp")
End if
%>
<form name="form1" method="post" enctype="multipart/form-data" action="?save=1">
<%
Dim conn
Dim rs
Dim sSql
'Imposto la connessione
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/articolimobile.mdb")
'Imposto la stringa SQL di selezione dati
sSql = "SELECT id, testo, titolo, genere1, email, autore, principale, immagine1, immagine2, immagine3, immagine4, immagine5 FROM articolo where ID = "&ID&""
'Creo e apro il Set di Record
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3
%>
<input name="titolo" type="text" id="titolo" value="<%=rs.Fields("titolo").Value%>" size="50">
<textarea name="testo" cols="34" rows="15" id="testo"><%=rs.Fields("testo").Value%></textarea>
<input name="genere1" type="text" id="genere1" value="<%=rs.Fields("genere1").Value%>" size="10" >
<input name="principale" type="text" id="principale" value="<%=rs.Fields("principale").Value%>" size="10">
<input name="autore" type="text" id="autore" value="<%=rs.Fields("autore").Value%>" size="25">
<input name="email" type="text" id="email" value="<%=rs.Fields("email").Value%>" size="40">
<input name="immagine1" type="file" id="immagine1" >
<input name="immagine2" type="file" id="immagine2" >
<input name="immagine3" type="file" id="immagine3" >
<input name="immagine4" type="file" id="immagine4" >
<input name="immagine5" type="file" id="immagine5" >
<input name="idstato" type="hidden" id="idstato2" value="<%=request.queryString("id")%>">
<input type="submit" name="Submit3" value="Modifica">
</form>
<%
'Chiudo il recordset e libero la memoria
rs.Close
Set rs = Nothing
'Chiudo la connessione al database e libero la memoria
conn.Close
Set conn = Nothing
%>
Non mi aggiorna il database.... ne le immagini ne i dati...ma mi fa l'upload delle immagini! NOn mi da nessuno errore..mi va direttamente alla pagina modarticolo.asp!
Rispondi quotando