Problemi Con Pure Asp Upload

[marconi]

Ciao ragazzi è la prima volta per me partecipare ad un forum e spero sia fruttifero...

Il mio problema consiste nel fatto che avendo installato, a dreamweaver, l'estensione Pure Asp Upload 2.1.4, ho creato una pagina con un modulo d'iscrizione e in questo modulo c'è anche il campo per inserire la tua immagine personale al momento dell'iscrizione.

Bene!!

Ora quando invio il modulo, l'immagine fa a finire nella cartella che io ho scelto per le immagini, e fin qui ci siamo, il problema e che non mi viene creato nessun record nel database.

Cioè all'invio l'immagine viene inserita nella cartella , ma nel database non compare il record e di conseguenza non risulti iscritto.

Qui di seguito vi invio il codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../Connections/guestbook.asp" -->

<!--#include file="../ScriptLibrary/incPureUpload.asp" -->

<%

'*** Pure ASP File Upload 2.1.4

Dim GP_uploadAction,UploadQueryString

PureUploadSetup

If (CStr(Request.QueryString("GP_upload")) <> "") Then

Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight

pau_thePath = """immagini"""

pau_Extensions = "GIF,JPG,JPEG,BMP,PNG"

pau_Form = "form2"

pau_Redirect = "grazie.asp"

pau_storeType = "file"

pau_sizeLimit = ""

pau_nameConflict = "over"

pau_requireUpload = "false"

pau_minWidth = ""

pau_minHeight = ""

pau_maxWidth = ""

pau_maxHeight = ""

pau_saveWidth = ""

pau_saveHeight = ""

pau_timeout = "600"

pau_progressBar = ""

pau_progressWidth = ""

pau_progressHeight = ""

Dim RequestBin, UploadRequest

CheckPureUploadVersion 2.14

ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout

end if

%>

<%

' *** Edit Operations: (Modified for File Upload) declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (UploadQueryString <> "") Then

MM_editAction = MM_editAction & "?" & UploadQueryString

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert")) = "form2") Then

MM_editConnection = MM_guestbook_STRING

MM_editTable = "utenti"

MM_editRedirectUrl = "grazie.asp"

MM_fieldsStr = "username2|value|contratto|value|password2|value|nome|value|cognome|value|città|value|indirizzo|value|provincia|value|nascita|value|email|value|messenger|value|immagine|value|descrizione|value"

MM_columnsStr = "username|',none,''|privacy|',none,''|password|',none,''|nome|',none,''|cognome|',none,''|citta|',none,''|via|',none,''|provincia|',none,''|nascita|',none,''|mail|',none,''|messenger|',none,''|immagine|',none,''|descrizione|',none,''"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))

Next

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString

End If

End If

End If

%>

<%

' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

Dim MM_tableValues

Dim MM_dbValues

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

Modificato May 15, 2007 da M@rCoNi