Problema ao registrar categoria

[Vougan 0]

Beleza Pessoal do imasters?

 

Estou com um problema em uma galeria de imagens, é o seguinte, tenho duas categorias, AT1 e AT2, quando a pessoa registra os dados e escolhe a categoria AT2 tudo funciona normalmente,´ai para registrar como AT1 ela simplsmente tem que enviar o formulário sem escolher a categoria, neste momento é que da o erro, sempre que a pessoa envia o formulário ele não é registrado no banco de dados.

 

Está é a linha de comando em que digo para ele selecionar as categorias.

 

<%
if rsSql("fgaleria") = true then
response.write "<font color=#003364><b>AT II</b></font>"
else
response.write "<font color=#0099FF><b>AT I</b></font>"
end if
%>

E abaixo o código que resgata as informações do formulário.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="chklog.asp"-->
<!-- #include file = "upload_funcoes.asp" -->
<%
Server.ScriptTimeout = 300

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

session("titulo") = UploadRequest.Item("tit").Item("Value")
session("titulo2") = UploadRequest.Item("tit2").Item("Value")
codigo = "43"
session("tipo") = UploadRequest.Item("unid").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("f1").Item("ContentType")

'tipo_foto2 = UploadRequest.Item("f2").Item("ContentType")

'tipo_foto3 = UploadRequest.Item("f3").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("f1").Item("FileName")

'caminho_foto2 = UploadRequest.Item("f2").Item("FileName")

'caminho_foto3 = UploadRequest.Item("f3").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

'nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

'nome_foto3 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto3,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("f1").Item("Value")

'foto2 = UploadRequest.Item("f2").Item("Value")

'foto3 = UploadRequest.Item("f3").Item("Value")

' pasta onde as imagens serao guardadas
pasta = "E:/home/meudominio/Web/imagem/galeria/fotos/"

'nome_foto = "/" & nome_foto

' pasta + nome dos arquivos
'cfoto = "fotos" + nome_foto
cfoto = "imagem/galeria/fotos/" & nome_foto

'cfoto2 = nome_foto2

'cfoto3 = nome_foto3

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
    Set MyFile = ScriptObject.CreateTextFile(pasta & "\" & nome_foto)
    For i = 1 to LenB(foto)
  MyFile.Write chr(AscB(MidB(foto,i,1)))
    Next
    MyFile.Close
end if

'if foto2 <> "" then
'    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'    Set MyFile = ScriptObject.CreateTextFile(pasta & "/" & nome_foto2)
'    For i = 1 to LenB(foto2)
'  MyFile.Write chr(AscB(MidB(foto2,i,1)))
'    Next
'   MyFile.Close
'end if

'if foto3 <> "" then
'    Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'    Set MyFile = ScriptObject.CreateTextFile(pasta & "/" & nome_foto3)
'    For i = 1 to LenB(foto3)
'  MyFile.Write chr(AscB(MidB(foto3,i,1)))
'    Next
'    MyFile.Close
'end if

' Conecta-se ao Banco de Dados
url_conexao = "e:\home\meudominio\dados\admadrid2.mdb"
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & url_conexao   

' cadastra os dados no banco de dados
sql = "INSERT INTO tblfoto (fcodgaleriafoto, fimagemg, ftexto, ftexto2, fgaleria) VALUES ('" & codigo & "', '"& cfoto &"', '"& session("titulo") &"', '" & session("titulo2") & "', '" & session("tipo") & "')"

'response.write sql
'response.end()

conexao.execute(sql)

' Mostra Mensagem de Confirmação na Tela
response.write "<div align=center style=padding-top:20px><font face=verdana size=2 color=#003364><b>Foto cadastrada com Sucesso!</b><br /><br />Aguarde...</font></div>"

' Redireciona após 4 segundos
response.write "<meta http-equiv='refresh' content='4; url=galfot.asp'/>"
%>
</body>
</html>

 

Se alguém puder dar alguma dica fico agradecido!!!

 

Valeu Pessoal...

[xanburzum 169]

ele gera algum erro !?!?!

será k ele não é registrado no banco de dados, pois a categoria esta vindo em branco

e essa validacaun rsSql("fgaleria") = true , sempre irá pegar a AT II...