Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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!
Carregando comentários...