Salve, sono nuovo del forum e anche dell'ASP.
La mia situazione è questa:
un cliente ci ha chiesto di rinnovare interamente il sito nel layout, e di variare piccole cose nel suo gestionale offerte automobili. Nel suo nuovo gestionale, oltre ad avere la possibilità di inserire il modello, colore, etc., deve poter effettuare un UPLOAD & RESIZE di que tipi di immagini DIVERSE: un'immagine piccola, come anteprima, ed una grande, come dettaglio.
Lo script che ho preso in prestito dal suo vecchio gestionale era in una pagina di processo delle informazioni chiamata logica.asp. Mi spiego meglio: c'è una pagina per la raccolta dati (compresi i campi di file) ed una pagina di script chiamata logica.asp. Ora io voglio, con Dreamweaver, implementare tutto il codice in un'unica pagina (che sarebbe quella di raccolta dati. Ho provato ad inserire lo script per l'upload e funziona benissimo, ma il problema è che non mi inserisce nessun campo nel database al quale è collegata la pagina. Cioè: nella cartella "Public" i file vengono caricati correttamente con le dimensioni giuste, ma nel database non viene registrato nulla. Vi riporto di seguito il codice, spero che possiate essermi d'aiuto. Grazie.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login_before.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request.QueryString("MM_insert")) = "frmNuovoRedazionale") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_USATO_connessione_STRING
MM_editCmd.CommandText = "INSERT INTO Automobili (IDMarca, Modello, Colore, Chilometri, Annoauto, Alimentazione, Carrozzeria, Prezzo, Commenti) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("IDMarca"), Request.Form("IDMarca"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 100, Request.Form("modello")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("colore")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("chilometri"), Request.Form("chilometri"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 10, Request.Form("anno")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("alimentazione")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("carrozzeria")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("prezzo")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 203, 1, 1073741823, Request.Form("TXT_Testo")) ' adLongVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "offerte_insertok.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True
path = "../public/"
Upload.OverwriteFiles=false
Upload.SaveVirtual(path)
Set jpeg = Server.CreateObject("Persits.Jpeg")
For Each File in Upload.Files
if file.name="TXT_NH_Immagine_piccola" then
larghezza="80"
altezza="60"
elseif file.name="TXT_NH_Immagine_grande" then
larghezza="350"
altezza="263"
end if
If File.ImageType = "JPG" or File.ImageType = "jpg" Then
jpeg.Open(File.Path)
if jpeg.Width > jpeg.Height or jpeg.Width = jpeg.Height then
jpeg.Width = larghezza
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
else
jpeg.Height = altezza
jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
end if
jpeg.Save Server.MapPath(path) & "\" & File.ExtractFileName
elseif File.ImageType = "DOC" or File.ImageType = "doc" then
'jpeg.Open(File.Path)
Upload.Save Server.MapPath(path) & "\" & File.ExtractFileName
elseif File.ImageType = "PDF" or File.ImageType = "pdf" then
'jpeg.Open(File.Path)
Upload.Save Server.MapPath(path) & "\" & File.ExtractFileName
elseif File.ImageType = "TXT" or File.ImageType = "txt" then
'jpeg.Open(File.Path)
Upload.Save Server.MapPath(path) & "\" & File.ExtractFileName
elseif File.ImageType = "XLS" or File.ImageType = "xls" then
'jpeg.Open(File.Path)
Upload.Save Server.MapPath(path) & "\" & File.ExtractFileName
elseif File.ImageType = "ZIP" or File.ImageType = "zip" then
'jpeg.Open(File.Path)
Upload.Save Server.MapPath(path) & "\" & File.ExtractFileName
end if
if file.name="TXT_NH_Immagine_grande" then
immagine_grande = File.ExtractFileName
elseif file.name="TXT_NH_Immagine_piccola" then
immagine_piccola = File.ExtractFileName
end if
next
%>
<%
Dim marca
Dim marca_cmd
Dim marca_numRows
Set marca_cmd = Server.CreateObject ("ADODB.Command")
marca_cmd.ActiveConnection = MM_USATO_connessione_STRING
marca_cmd.CommandText = "SELECT * FROM Marche"
marca_cmd.Prepared = true
Set marca = marca_cmd.Execute
marca_numRows = 0
%>
CORPO DELLA PAGINA CON TAG FORM, ETC...
<%
marca.Close()
Set marca = Nothing
%>