Erros

[Kindelis]

eu sou iniciante no asp, assisti a uma video aula, bem legal ainda facilitada e tudo, e eu fui tenta executar um exemplo que foi passado na video aula só que fica dando o seguinte erro:

Erro de compilação do Microsoft VBScript error '800a03f6'

'End' esperado

/teste.asp, line 46

olhem o código por favor e me falem qual é o erro, como eu devo arruma-lo, o código não é muito grande

<%@ Language=VBScript %>

<%

Set BdTopModel=Server.CreateObject("Adobd.connection")

BdTopModel.Open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("banco.mdb")

%>

<%

dim Procura

Procura="select * from topmodels where nome="'&

request.form("nome")&"' AND corcabelo="'&

request.form("corcabelo") &"' AND corolho="'&

request.form("corolho")&"'"

SetReeTopModel=Server.CreateObject("ADODB.Recordset")

ReeTopModel.Activeconnection=BdTopModel

ReeTopModel.Cursortype=adOpenkeyset%>

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

<%

ReeTopModel.Locktype=adlockOptimistie

ReeTopModel.Cursorlocation=adUseServer

ReeTopModel.Open Procura.BdTopModel.adOpestaticc.adLockOptimistie.adCmdText

if ReeTopModel.bof and ReeTopModel.cof then

Response.write("TopModel não encontrada") %>

<a href="Default.asp">Voltar</a>

<%

else

Vnome=ReeTopModel("nome")

VcorCabelo=ReeTopModel("corcabelo")

Vcorolho=ReeTopModel("corolho")

Vlocal=ReeTopModel("local")

Response.write(Vnome)

Response.write(Vcorcabelo)

Response.write(Vcorolho)

%>

<img border="1" height=279 width=124 src="<% Response.write(Vlocal)%>.jpg" width="294" height="202">%>

<%

BdTopModel.close

Set BdTopModel=nothing

%>

obs. eu já não sou muito chegado em programação para web gracas a esses erros que aparecem a todo momento mais to tentando me familiariza com o negocio, quem puder me ajudar eu agradeço.

[pgmador]

amigão, a estrutura do If é a seguinte:

If 'condição' then
   ' comandos
else
   ' comandos
end

No seu código tem o If, then e else, mas não tem o end. Tente assim

<%@ Language=VBScript %>

<%
Set BdTopModel=Server.CreateObject("Adobd.connection")

BdTopModel.Open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("banco.mdb")
%>

<%
dim Procura

Procura="select * from topmodels where nome="'&
request.form("nome")&"' AND corcabelo="'&
request.form("corcabelo") &"' AND corolho="'&
request.form("corolho")&"'"

SetReeTopModel=Server.CreateObject("ADODB.Recordset")
ReeTopModel.Activeconnection=BdTopModel
ReeTopModel.Cursortype=adOpenkeyset%>
<!--#include File="Adovbs.inc"-->
<%
ReeTopModel.Locktype=adlockOptimistie 
ReeTopModel.Cursorlocation=adUseServer

ReeTopModel.Open Procura.BdTopModel.adOpestaticc.adLockOptimistie.adCmdText


if ReeTopModel.bof and ReeTopModel.cof then 
Response.write("TopModel não encontrada") %>
<a href="Default.asp">Voltar</a>
<%
else
Vnome=ReeTopModel("nome")
VcorCabelo=ReeTopModel("corcabelo")
Vcorolho=ReeTopModel("corolho")
Vlocal=ReeTopModel("local")
Response.write(Vnome)
Response.write(Vcorcabelo)
Response.write(Vcorolho)
end
%>

<img border="1" height=279 width=124 src="<% Response.write(Vlocal)%>.jpg" width="294" height="202">%>

<%
BdTopModel.close
Set BdTopModel=nothing
%>

[tsarri]

quando você coloca o IF, você tem q colocar o END IF para fechar ele

if ReeTopModel.bof and ReeTopModel.cof then 
Response.write("TopModel não encontrada") %>
<a href="Default.asp">Voltar</a>
<%
else
Vnome=ReeTopModel("nome")
VcorCabelo=ReeTopModel("corcabelo")
Vcorolho=ReeTopModel("corolho")
Vlocal=ReeTopModel("local")
Response.write(Vnome)
Response.write(Vcorcabelo)
Response.write(Vcorolho)
End If
%>