if Not rs.EOF Or Not rs.BOF Then...

[naps]

Salve a tutti,
scusatemi ma sto impazzendo, perchè non riesco a far funzionare questa fi cè un errore?

ci sto provando da un casino di tempo:

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If Not rs.EOF Or Not rs.BOF Then 
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
else
if rs.EOF And rs.BOF Then 
response.Redirect("scrivi.asp")
End if
End if

Ragazzi sto cercando di dirgli che se non trova il nome nella colonna immagine mi và a scrivi.asp altrimenti mi porta alla pagina check01.asp
però non mi funziona perchè...?...sintassi schifosa

Grazie anticipatamente a chi mi risponderà..

[naps]

avevo pensato anche a questo.... anche perchè il significato del EOF non è che lo sappia
precisamente cosa vuol dire...

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.("immagine").Value <> "" Then
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
else
response.Redirect("scrivi.asp")
End if

che ne pensate?..

[-AA-]

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.EOF Or rs.BOF Then 
response.Redirect("scrivi.asp")

else
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")

End if

eof = end of file = fine della tabella

bof = begin of file = inizio della tabella

errore
else
if rs.EOF And rs.BOF Then
corretto
else if rs.EOF And rs.BOF Then

sulla stessa riga

[naps]

ok, ho capito l'erroe, ma secondo te mi conviene usare la seconda proposta che
ho postato?


...

[naps]

ANZI.... se uso questa mi dà errore alla riga in rosso:

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.("immagine").Value <> "" Then 
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
else
response.Redirect("scrivi.asp")
End if

e l'errore che mi scrive è questo:
-----------------------------------------------------------------------------------
Tipo di errore:
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
-----------------------------------------------------------------------------------

come raggiro il problem..??

[-AA-]

No la prima ...

[-AA-]

e se usi quella che ti ho postato io, ti da errore?

[naps]

Questa è la tua mi porta sempre a scrivi.asp in tutti e due i casi :

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.EOF Or rs.BOF Then 
response.Redirect("scrivi.asp")

else
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")

End if

anche la prima che avevo postato e corretto con la riga che mi segnalavi tu...:

Dim filename
filename = Request.QueryString("nomefoto")

Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If Not rs.EOF Or Not rs.BOF Then 
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
else if rs.EOF And rs.BOF Then 
response.Redirect("scrivi.asp")
End if
End if

in tutti e due i casi mi portano a scrivi.asp

[-AA-]

prova a cambiare la select così

rs.Open "SELECT ID, immagine FROM archivio WHERE immagine ='"& request.QueryString("nomefoto") &"',objConn,3,3

[naps]

ti spiego però la variabile filename mi contiene il nome del file in quanto io
qui lo postata in maniera piu semplice ma viene da uno script di upload file...guarda...:

scusami anticipatamente per il papiro

Dim folder
folder = "archivio_db\immagini\"				'directory sul server con accesso in scrittura
'fine variabili di configurazione

Response.Expires=0
Response.Buffer = TRUE
Response.Clear


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("Content-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("filename="))
		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),RequestBin,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

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("nomeimg").Item("ContentType")
filepathname = UploadRequest.Item("nomeimg").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("nomeimg").Item("Value")


Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT ID, immagine FROM archivio WHERE immagine = 'filename'",objConn,3,3
If rs.EOF Or rs.BOF Then 
response.Redirect("scrivi.asp")
else
response.Redirect("check01.asp?nscheda="&nscheda&"&nomefoto="&filename&"")
End if 
..... poi qui continuerà il rs.Update........