Aquí no se puede utilizar request ¿Alguna sugerencia?

[eeeee]

Hola otra vez por aquí
El tema que me trae hoy si es verdad que me tiene loco, ya que lo que pretendo es agregar unos datos subidos por un upload a una base de datos, y me duplica los nombres en la BD.
Parte del código es este:

Código:

' empieza bd
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("novedades.mdb")
Set Tabla = Server.CreateObject("adodb.recordset")
Tabla.Open "Tabla1", Connect, 2, 3

Aquí es donde yo creo que hay que hacer la consulta.

If Tabla.BOF And Tabla.EOF Then 
Tabla.AddNew 
Tabla("pal") = filename
Tabla("size") = fileSizeTranslated 
Tabla("tipo") = tipoInput 
Tabla("nick") = nameInput 
Tabla("url") = urlInput 
Tabla.Update
%> 
<font face="Tahoma" size="2"><b><i>Ingreso a la Base de Datos completado</i></b></font></p> 
<%
Else
Response.Write "<font color=""red"">El archivo no se pudo subir a la Base de Datos ... porque existe" 
End If 
Tabla.Close 
' fin bd

Nota: no puedo utilizar request para hacer una consulta a la BD porque anteriormente cojo los datos en el upload en binario y no acepta utilizar algo como esto:
SQL = "select * from tabla where campo='"&request("algo")&"'"
La palabra a buscar la tengo ya en la variable filename y el tema es :
¿Cómo le hago la consulta a la base de datos para que no duplique?

ok espero sus respuestas
Salu2

[JosephFley]

Saludos,

Yo tuve el mismo problema con el upload del ChiliSoft pero lo resolví pasando los demás valores en el querystring y de está forma sí me permitía recogerlos de nuevo con Request.QueryString("").

[eeeee]

Puedes poner un ejemplo?? no me he enterao

[eeeee]

Ya he solucionado el tema, pero me queda una duda, me pueden decir que diferencia hay entre estas lineas:

Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("novedades.mdb")
SQL="Select * From Tabla Where pal= '" & filename & "'"
Tabla = Server.CreateObject("adodb.recordset")
Tabla.Open "Tabla1", Connect, 2, 3

y estas:

Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("novedades.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(pal)='" & filename & "'"
Tabla.Open Temp,Conexion,2,3,1

Con las de arriba no funcionaba y con las de abajo si, yo las veo igual, diferente forma de abrir , solo las de abajo llevan un 1 despues de 2,3 y eso creo que es para lectura.

venga a ver si alguien me quita esta duda, aunque ya funciona.
salu2