gente q diabo é isso???

[Reginaldo 0]

tenho um codigo p/ grava um registro no meu banco:

 

<%Recemail.openRecemail.addnewRecemail("email")=session("email")Recemail("ip")=session("ip")Recemail("data")=session("data")Recemail("hora")=session("ip")Recemail.updateBdemail.closeSet Bdemail=nothingEND IF%>

só q na penultima linha "END IF" ele da esse erro:

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/spy.asp, line 35

 

END IF

^

 

oque será q ele quer agora ?

da uma forcinha ai gnete http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Reginaldo 0]

tenho um codigo p/ grava um registro no meu banco:

<%Recemail.openRecemail.addnewRecemail("email")=session("email")Recemail("ip")=session("ip")Recemail("data")=session("data")Recemail("hora")=session("ip")Recemail.updateBdemail.closeSet Bdemail=nothingEND IF%>

só q na penultima linha "END IF" ele da esse erro:Microsoft VBScript compilation error '800a0400' Expected statement /spy.asp, line 35 END IF^oque será q ele quer agora ? da uma forcinha ai gnete http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

um detaleh.. não me condenem pelo "spy.asp" ... heheheisso ai é um sisteminha q decidi incluir de agora em diante no codigo dos meus emails... o objetivo é me notificar das leituras do mesmo sem nessecidade de permição do destinatario.. afinal cansei de gente fingindo que não recebeu o meu email. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Reginaldo 0]

poooo.. 141 visitas em tão pouco tempo e ninguem capaz de responde ? :(

[hinom 5]

eu ia responder mas depois do seu último post...se vira

[DackAle 0]

Ué aonde começa o if ? só fecha o end if... mas num abre...if alguma coisabal bla blaend ifque codigo estranho.... num ta faltando codigo ai não ?Abraços

[Reginaldo 0]

Ué aonde começa o if ? só fecha o end if... mas num abre...

 

if alguma coisa

 

bal bla bla

 

end if

 

que codigo estranho.... num ta faltando codigo ai não ?

 

Abraços

ai gente.. tirei o if mas continua na mesma... o codigo todo é esse:

 

ASP [/tr][tr]<%@ Language=VBScript%>

 

<%

 

session("email") = Request.ServerVariables("URL")

session("ip") = Request.ServerVariables("REMOTE_ADDR")

session("data") = date()

session("hora") = time()

 

Set Bdemail=Server.CreateObject("Adodb.connection")

Bdemail.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dados/email.mdb;"

 

Set Recemail = Server.CreateObject("ADODB.Recordset")

Recemail.Activeconnection=Bdemail

Recemail.Cursortype=adOpenkeyset%>

<!-- #include file="Adovbs.inc"-->

<%

Recemail.Locktype=adlockOptimistic

Recemail.Source="email"

%>

<%

 

Recemail.open

 

Recemail.addnew

Recemail("email")=session("email")

Recemail("ip")=session("ip")

Recemail("data")=session("data")

Recemail("hora")=session("ip")

Recemail.update

 

Bdemail.close

Set Bdemail=nothing

END

%>

[/tr]

 

ps: peço desculpas pelo meu ultimo post de ontem a noite.. eu estava um pouco alterado.. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[lfbadwolf 0]

qual erro esta dando agora?e pra que você esta utilizando aquele end no final?

[Mário Monteiro 179]

qual erro esta dando agora?e pra que você esta utilizando aquele end no final?

bem o IF que foi citado não foi o depois do END e sim o IF que abriria o trecho de codigo antes do END IF que estava láOu seja tinha um END IF mas não tinha um IF, verifica onde deve iniciar este codigo e que teste será feito no IF

[Martinelli 0]

SÓ UTILIZE "END IF" SE HOUVE UM "IF" NO INICIO DO CODIGO... AFINAL, O IF É UM CONDICIONAL...

 

if num1 = 1 then    1 + 1 = 3end if

ENTENDEU???

 

Flw http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Martinelli

[Reginaldo 0]

ai gente.. tirei o END e funcionou... valew http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

quem gosto da ideia copia o meu codigo ai acima.. só tira o end ;)

 

valew http://forum.imasters.com.br/public/style_emoticons/default/joia.gif