ASP e conexão com Banco

[allanmollo 0]

Boa tarde pessoal,

 

To enfrentando um problema de conexão com o banco de dados. Vou colocar o código aqui pra vcs analisarem melhor e ve c podem me ajudar:

 

ASP

<%

 

Set objConn = Server.CreateObject("ADODB.Connection")

 

objConn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=4444455555;Data Source=End4455;Password=00000000;Initial Catalog=Endeavor;"

 

%>

 

 

 

<%

 

data_limite = CDate("10/18/2007 10:30:00 AM")

 

 

 

If Now > data_limite Then

 

        Response.Redirect "inscricoes_encerradas.asp"

 

End If

 

 

 

'Verificação de cortesia

 

cod_cortesia = request("cod_convite")

 

 

 

If cod_cortesia <> "" Then

 

        objConn = "SELECT cod_cortesia, status FROM Cortesias_CEO2007 WHERE cod_cortesia = '" & cod_cortesia & "'"

 

        'Set RS = QueryRS(sql)

 

       

 

        If Not objConn.EOF Then

 

                If cod_cortesia = objConn("cod_cortesia") Then

 

                        If RS("status") = "Utilizado" Then

 

                                Response.Write  "<script>"

 

                                Response.Write       "alert(""ERRO: n"" + ""O código digitado já foi utilizado!"");"

 

                                Response.Write  "</script>"

 

                        Else

 

                                bln_cortesia = True

 

                                sValor = "Cortesia"

 

                                cortesia = "Sim"

 

                               

 

                                Response.Redirect "inscricoes.asp?cod_cortesia="& cod_cortesia

 

                        End If

 

                End If

 

        Else

 

                Response.Write  "<script>"

 

                Response.Write       "alert(""ERRO: n"" + ""Verifique se o código digitado está correto!"");"

 

                Response.Write  "</script>"

 

        End If

 

End If

 

%>

 

 

 

<%

 

objConn.Close

 

Set objConn = Nothing

 

%>

 

 

 

Ao executar, este erro aparece:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'objConn'

 

/inscricoes_codigo.asp, line 22

 

A linha 22 é esta:

 

If Not objConn.EOF Then

 

Será que tem algo errado no meu código? Eu não entendo muito bem, sou iniciante, se vcs puderem me ajudar ficarei muito grato!

 

Abraços!

[Ted k' 126]

ASP

If cod_cortesia <> "" Then

 

 

 

        SQL = "SELECT cod_cortesia, status FROM Cortesias_CEO2007 WHERE cod_cortesia = '" & cod_cortesia & "'"

 

 

 

        'Set RS = QueryRS(sql)

 

 

 

Set RS = objConn.Execute(SQL)

 

       

 

 

 

        If Not RS.EOF Then

 

          If cod_cortesia = RS("cod_cortesia") Then

[Adilson_Web_2007 0]

acho que faltou o objeto recordset. você tem que criar o objeto recorset.set variavel recorset = server.createObject("ADODB.Recordset")