Accedi per seguire   
Seguaci 0
alexis73

Type Mismatch: 'lbound' - Errore Modulo Inserimento

Iniziato da alexis73,

27 messaggi in questa discussione

Inviato

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'LBound'

/pannello.asp, line 156

Non si tratta di conflitto... le impostazioni di default dell'estensione "Pure Asp Upload" e i parametri per l'inserimento dei record di Dreamweawer 7.1, non producono l'azione di upload immagine e aggiornamento del database allo stesso tempo. Mancano alcune istruzioni nel codice, che ho dovuto reperire altrove e inserire manualmente.

Il codice da inserire, per procurare l'azione "Inserisci record" è il seguente:

' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

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

MM_editAction = CStr(Request.ServerVariables("URL")) 'MM_editAction = CStr(Request("URL"))

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")) <> "") Then

MM_editConnection = MM_upload_STRING

MM_editTable = "dati"

MM_editRedirectUrl = ""

MM_fieldsStr = "blob|value"

MM_columnsStr = "blob|',none,''"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

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

MM_fields(i+1) = CStr(UploadFormRequest(MM_fields(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

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

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

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

FormVal = MM_fields(i+1)

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

Delim = MM_typeArray(0)

If (Delim = "none") Then Delim = ""

AltVal = MM_typeArray(1)

If (AltVal = "none") Then AltVal = ""

EmptyVal = MM_typeArray(2)

If (EmptyVal = "none") Then EmptyVal = ""

If (FormVal = "") Then

FormVal = EmptyVal

Else

If (AltVal <> "") Then

FormVal = AltVal

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

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

Else

FormVal = Delim + FormVal + Delim

End If

End If

If (i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End if

MM_tableValues = MM_tableValues & MM_columns(i)

MM_dbValues = MM_dbValues & 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

%>

Io purtroppo non ho dimestichezza, ho iniziato da pochino e così non riesco ad assemblare il tuo codice giusto al mio e niente, perfavore mi dareste una mano? QUESTO SOTTO E' IL MIO CODICE.

Bisognerebbe assemblarlo, modificarlo ma non ho dimestischezza. Vi ringrazio in anticipo. Ciao, Alessandra

<%

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

Dim MM_editAction

Dim MM_abortEdit :leggi:

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")) = "form1") Then

MM_editConnection = MM_Conn_c_STRING

MM_editTable = "Tab_LaChiocciola"

MM_editRedirectUrl = "../Inserimento_Avvenuto.asp"

MM_fieldsStr = "TIPOLOGIA|value|TIPOdiOFFERTA|value|VANI|value|SUPERFICE|value|DESCRIZIONE|value|PREZZO|value|LOCALITA|value|CITTA|value|file|value"

MM_columnsStr = "TIPOLOGIA|',none,''|TIPOdiOFFERTA|',none,''|VANI|',none,''|SUPERFICE|',none,''|DESCRIZIONE|',none,''|PREZZO|',none,''|LOCALITA|',none,''|CITTA|',none,''|FOTO_ESTERNA|',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

%>

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Io purtroppo non ho dimestichezza, ho iniziato da pochino e così non riesco ad assemblare il tuo codice giusto al mio e niente, perfavore mi dareste una mano? QUESTO SOTTO E' IL MIO CODICE.

Bisognerebbe assemblarlo, modificarlo ma non ho dimestischezza. Vi ringrazio in anticipo. Ciao, Alessandra

Ciao Alessandra, io in questi giorni sono su WinInizio a metà regime e solo dall'ufficio (da dove posso a malapena leggere i post), perchè il mio fido PC mi ha abbandonato!!! Si trova dal dottore e spero che torni a casa presto :P

Appena torno a regime, risolviamo il tuo problema... Sempre che prima non ti dia una mano qualcun altro oppure non risolvi da sola (in questo caso, faresti cosa gradita se postassi la soluzione sul forum, per condividerla con tutti :P:wub::P;) )

P.S. Hai un MP ;-)

:)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Ciao Alessandra, il messaggio che hai postato indica che l'errore si trova alla linea 156, quale sarebbe? Puoi evidenziarla?

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Grazie!

riporto la riga 156

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

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

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

%>

dicevano che manca del codice x gestire l'estensione l'asp pure upload file. Io l'ho riportato nell'apertura del topic ma l'assemblamento con il mio mi riesce come hai capito difficile. :)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Grazie!

riporto la riga 156

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

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

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

%>

dicevano che manca del codice x gestire l'estensione l'asp pure upload file. Io l'ho riportato nell'apertura del topic ma l'assemblamento con il mio mi riesce come hai capito difficile. :P

Dove mi trovo adesso non ho un ambiente dove far girare il codice :P L'ho guardato un po' a "naso".

Type Mismatch 'lbound' significa che si passa a 'lbound' un parametro errato...

Forse in quella riga di codice si passa a LBound un array nullo... e cosi' viene generato l'errore...

Non sono sicuro di questa affermazione e non posso provarla :wub: Prova ad aggiungere queste 2 righe sopra il ciclo dell'array:

Dim MM_fields

MM_fields = Array("Lun", "Mar", "Mer", "Gio", "Ven", "Sab", "Dom")

Così da essere sicuri di "popolare" quell'array e vedi se ti da di nuovo l'errore "Type mismatch" (scusa se andiamo in maniera molto euristica) ma non avendo modo di verificare le soluzioni, non posso far altro che farti partecipe delle idee che "sfuggono" dalla mia mente :)

P.S. Naturalmente quel codice è solo di prova... se cambia errore, dopo lo si elimina :P

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Dove mi trovo adesso non ho un ambiente dove far girare il codice :)

Neanche io... :P

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

l'ho inserito qui, non so se è giusta la posizione.

Ora appena accedo alla pagina appare questo errore

Microsoft VBScript compilation error '800a0411'

Name redefined

/pannello.asp, line 149 Dim MM_fields----^

dove sulla riga 149 c'è

<%

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

Dim MM_dbValuesDim MM_fields riga 149

MM_fields = Array("Lun", "Mar", "Mer", "Gio", "Ven", "Sab", "Dom")

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 IfEnd If

%>

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Se la riga è scritta proprio come l'hai postata cioè:

Dim MM_dbValuesDim MM_fields

Penso che facci aun pò fatica a digerirla, dovresti metterle una sotto l'altra... oppure 

Dim MM_dbValues,MM_fields

oppure ancora:

Dim MM_dbValues
Dim MM_fields = Array("Lun", "Mar", "Mer", "Gio", "Ven", "Sab", "Dom")

:)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

ah! grazie ci provo :up1:

ma intanto ho provato a cambiare questa riga, l'ho trovato in rete, l'errore è cambiato. Sembra che chi l'ha cambiato ci sia riuscito,

dicevano

Le funzioni lbound e ubound servono per restituire l'indice inferiore e maggiore di un array, secondo me il problema e che non riconosce come array MM_fields.

Questa potrebbe essere la risoluzione del problema:

sostituisci:

If (CStr(UploadFormRequest("MM_insert")) = "form1") Then con

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

così l'ho fatto e ora dice che il campo è troppo piccolo.

l'ho sostituita dove diceva

<%

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

'If (CStr(UploadFormRequest("MM_insert")) = "form1") Then questa l'ho passata a commento

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

MM_editConnection = MM_Conn_c_STRING

MM_editTable = "Tab_LaChiocciola"

MM_editRedirectUrl = "../Inserimento_Avvenuto.asp"

MM_fieldsStr = "TIPOLOGIA|value|TIPOdiOFFERTA|value|VANI|value|SUPERFICE|value|DESCRIZIONE|value|PREZZO|value|LOCALITA|value|CITTA|value|file|value"

MM_columnsStr = "TIPOLOGIA|',none,''|TIPOdiOFFERTA|',none,''|VANI|',none,''|SUPERFICE|',none,''|DESCRIZIONE|',none,''|PREZZO|',none,''|LOCALITA|',none,''|CITTA|',none,''|FOTO_ESTERNA|',none,''"

credo sia limitata l'estensione, non è giusto tanta fatica, comunque ora prova a fare con photoshop un immagine piccola piccola e poi vi dico. Ma se l'immagine che prende deve essere neanche 100 x 100 pixel come faccio :)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Help! E adesso perchè nella pagina dove deve uscire l'immagine mi appare il nome del file? :sigh:

Dunque che cosa ho fatto? Nello spazio dell'immagine, ho selezionato il nome del campo, ho cliccato sul pulsante inserisci, pensavo si commutasse da solo in foto,

<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>

dove immagini è il mio recordset ma restituisce,

Senza-titolo-1.gif

:)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Mi sono accorta di una cosa, sono andata ad aggiugere una aviatar esterno a quello preposto, l'immagine non rispecchiava affatto i 150 x 150 pixel per 50 kb di peso ma mi è caduto l'occhio su questa postilla,

Ridimensionamento Automatico Attivo

(Questo ridimensionerà l'immagine se è troppo grande rispetto ai parametri prefediniti)

ma è grandioso è troppo difficile ottenere con il codice questo ridimensionamento? :)

comunque vado a cercare di far apparire l'immagine e non il nome del file ciao a dopo

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

mi correggo, la grandezza no ma il peso originario era 49,1 kb

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

'If (CStr(UploadFormRequest("MM_insert")) = "form1") Then questa l'ho passata a commento

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

Nel primo caso poni come regola che il valore di MM_insert sia form1, quindi detti una condizione ben precisa, nel secondo caso invece è sufficente che non sia vuoto...
non è giusto tanta fatica
Purtroppo il nostro lavoro è così... :)

<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>

Ti fa vedere il nome perchè effettivamente il campo contiene il nome dell'immagine...se use quella stringa come proprietà per il controllo che deve contenere l'immagine, non dovresti avere più problemi...

Oppure usi il tag HTML così:

<img src="<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>"/>

:P

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Mi restiuisce la classica immagine "x" come non caricata, perchè ho controllato la cartella public e all'interno i file ci sono ma non appaiano.

Dove sbaglio? Di solito appare succedo quando l'immagine non c'è on line nella cartella, ma c'è, :sigh: nella visuale appare bene l'icona in grigio dell'immagine +/- come appare qui in alto due icone dopo la scelta del colore.

<img src="<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>"/> la tua stringa è super giusta cosa posso sbagliare

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Scusa la domanda che può sembrare stupida...

Ma la pagina e la foto sono nella stessa cartella?

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

no:

le immagini vengono caricate nella cartella pubblic

mentre le immagini, sono caricate in una sottocartella del sito

cerco di spiegarmi meglio:

MioSito

cartella pubblic <-- qui ci sono le immagini

area privata <-- qui c'è la pagina dettaglio_informazioni.asp

tralascio qualcosa di "elementare watson'" ?

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

La stringa 

<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>

restituisce solo il nome dell'immagine...ma se la pagina e l'immagine sono in due posti diversi...devi indicare il path dell'immagine... :)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Io ho inserito questa stringa visto che in locale dava l'icona dell'immagine standard e ho pensato che on line sunzionasse

<img src="<%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>"/>

mi dici di dare il percorso, FOTO_ESTERNA è il campo del db che associato ai dati, se i file d'immagine sono nella cartella pubblic, la pagina di dettaglio rimane in area privata, come posso modificare la stringa per dargli il path giusto?

:)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Potresti create una variabile di tipo stringa che contenga es:

Dim path as string

path = "/pubblic/" & <%=(Immagini.Fields.Item("FOTO_ESTERNA").Value)%>

<img src=<%=path%> />

Scusami se ho sbagliato qualcosa nella sintassi ma non programmo in ASP... :P

Spero che più o meno sia chiaro comunque... :P

:)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

scusami tu semmai del tempo che ti sto portando via! :)

provo io neanche programmo in asp ma vedo di riuscirci mi è come arrivare all'ultimo di 1000 gradini, grazie

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

scusami tu semmai del tempo che ti sto portando via! :P
Non preoccuparti...è un piacere... :)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Grazie, è carinissimo.

Non ci riesco ancora, continua a non riconoscere da dove prelevare l'immagine.

Devo riuscire meglio con la dim path as string.

Ciao :)

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Inviato

Se dovessi avere dei problemi...siamo sempre qui...

Condividi questo messaggio

Link di questo messaggio
Condividi su altri siti

Crea un account o accedi per lasciare un commento

Devi essere un utente registrato per partecipare

Crea un account

Iscriviti per un nuovo account nella nostra community. È facile!


Registra un nuovo account

Accedi

Sei già registrato? Accedi qui.


Accedi Ora
Accedi per seguire   
Seguaci 0
Vai alla lista Discussioni ASP - ASP.NET - JSP