Problema con checkbox

[klinik]

Ho un campo select dinamico, che mi crea una lista di opzioni checkbox

<input type="checkbox" name="servizi" value="Animali ammessi ">Animali ammessi

<input type="checkbox" name="servizi" value="Azienda biologica">Azienda biologica

<input type="checkbox" name="servizi" value="Bagno turco">Bagno turco


ecc

quando faccio l'invio dei dati al database mi da errore

Microsoft OLE DB Provider for ODBC Drivers (0x800A01C9)
[Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0x848 Thread 0x1078 DBC 0x12c0f94 Jet' del Registro di sistema.
getnew.asp, line 503

ma solo se faccio lo spunto di più opzioni, se ne spunto uno solo tutto funziona.

Il file getnew.asp che mi serve per l'upload delle immagini fra l'altro....

riga 503

UploadRequest.Add name, UploadControl

Non ne vengo fuori....

[Roby_72]

Probabile che il sistema di upload che usi consenta il recupero di multi name come nel caso dei checkbox in altro modo.

Roby

[klinik]

Questo è il file getnew.asp, ho tolto la parte gestione immagine 2+3 perchè altrimenti superava il numero di caratteri massimo del post...

Adesso l'errore lo segna alla riga 261, che è sempre la
UploadRequest.Add name, UploadControl


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

Dim DataOggi
DataOggi = Date()
DataOggi = FormatDateTime(DataOggi, VBShortDate)
DataOggi = Replace(DataOggi, "/", "-")


Dim Numcasuale
Randomize()
Numcasuale = CInt(Rnd() * 10000)


Dim Numcasuale2
Randomize()
Numcasuale2 = CInt(Rnd() * 10000)


Dim Numcasuale3
Randomize()
Numcasuale3 = CInt(Rnd() * 10000)


Dim Numcasuale4
Randomize()
Numcasuale4 = CInt(Rnd() * 10000)


' percorso di salvataggio immagini
PercorsoIM = "../immagini/"


Response.Write TodayDate
':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima somma peso delle immagine

'GrandezzaMassima = 180000 ' 180 kb

GrandezzaMassima = 999000 ' 999 kb somma peso delle 4 foto

'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::: File 1
'IDUnivoco = UploadRequest.Item("IDUnivoco").Item("Value")

contentType = UploadRequest.Item("file1").Item("ContentType")
filepathname = UploadRequest.Item("file1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if not filename="" then


' mod 20/11/2010 - mette _ se spazio nel nome immagine 1
filename = Replace(filename, " ", "_")

value = UploadRequest.Item("file1").Item("Value")

':::::::::::::: Controllo che siano state inserire le immagini con l'estensione jpg, gif, png

chkjpg = instr(lcase(filename), ".jpg")
chkgif = instr(lcase(filename), ".gif")
chkpng = instr(lcase(filename), ".png")

if chkgif > 0 or chkjpg > 0 or chkpng > 0 Then
else
Response.Redirect ("errorUpload.asp")
Response.end
end if

':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima dell'immagine 29000 circa 300 KB

If Request.TotalBytes > GrandezzaMassima Then
Response.Redirect ("errorUploadpixel.asp")
Response.end
End If

'::::::::::::::::::::::::::::::::::::::::::::::

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(Percors oIM & DataOggi & "_" & Numcasuale & "_" & filename ))
session("fil") = DataOggi & "_" & Numcasuale & "_" & filename

session.Abandon

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
set myfile = nothing


Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)

If PosFile<>0 AND (PosFile<PosBound) Then

PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType

PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else

Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If

UploadControl.Add "Value" , Value

UploadRequest.Add name, UploadControl

BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop

End Sub

Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
end if




'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::: File 4

contentType = UploadRequest.Item("file4").Item("ContentType")
filepathname = UploadRequest.Item("file4").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if not filename="" then

' mod 20/11/2010 - mette _ se spazio nel nome immagine 4
filename = Replace(filename, " ", "_")

value = UploadRequest.Item("file4").Item("Value")

':::::::::::::: Controllo che siano state inserire le immagini con l'estensione jpg, gif, png

chkjpg = instr(lcase(filename), ".jpg")
chkgif = instr(lcase(filename), ".gif")
chkpng = instr(lcase(filename), ".png")

if chkgif > 0 or chkjpg > 0 or chkpng > 0 Then
else
Response.Redirect ("errorUpload.asp")
Response.end
end if

':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima dell'immagine circa 300 KB

If Request.TotalBytes > GrandezzaMassima Then
Response.Redirect ("errorUploadpixel.asp")
Response.end
End If

'::::::::::::::::::::::::::::::::::::::::::::::

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(Percors oIM & DataOggi & "_" & Numcasuale4 & "_" & filename ))
session("fil4") = DataOggi & "_" & Numcasuale4 & "_" & filename

session.Abandon

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
set myfile = nothing


Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")

Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)

If PosFile<>0 AND (PosFile<PosBound) Then

PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType

PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else

Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If

UploadControl.Add "Value" , Value

UploadRequest.Add name, UploadControl

BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop

End Sub

Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
end if
session.Abandon
%>

Qualche suggerimento?
Gab

[klinik]

...alla fine ho optato per fare un inserimento in 2 fasi, una con i dati e l'altra con le immagini, stesso discorso con la modifica.

Gab