Microsoft VBScript compilation error '800a03f6'

fabwan · Novembro 27, 2007

To tendo a mensagem de erro abaixo. Alguem poderia me ajudar???

Valeu!

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/contato.asp, line 277

ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

<%

' Declarando Variaveis

Dim Mail ' objeto mail

Dim FromName ' nome do remetente

Dim FromName2 ' complemento do remetente

Dim FromName3 ' Remetente completo

Dim FromEmail ' endereço de Email do remetente

Dim ToEmail ' endereço do destinatario

Dim Subject ' Teste do Formulario

Dim message ' corpo da mensagem

Dim ThisPage ' o endereco do seu site

Dim RefPage ' a referencia URL

Dim Val_Input ' variável Booleana usada na validação

Dim Host ' nome do servidor

' Retorna o nome do arquivo de script e a url da pagina

ThisPage = Request.ServerVariables("SCRIPT_NAME")

RefPage = Request.ServerVariables("HTTP_REFERER")

Host = "firmadigital.com.br" ' nome do seu servidor

message = Trim(Request.Form("Message"))

Subject = Trim(Request.Form("subject"))

ToEmail = "fabiano@firmadigital.com.br; alexandre@firmadigital.com.br"

FromName = Trim(Request.Form("FromName"))

FromEmail = Trim(Request.Form("FromEmail"))

val_ent = True

val_ent = val_ent And FromName <> ""

val_ent = val_ent And val_email(FromEmail)

val_ent = val_ent And val_email(ToEmail)

If val_ent Then

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = Host

Mail.From = FromEmail

Mail.FromName = FromName

Mail.AddAddress ToEmail

Mail.Subject = Subject

Mail.Body = message

on error resume next

Mail.Send

mensagem_erro = ""

if err <> 0 then

mensagem_erro = "Ocorreu o erro: " & Err.description

end if

Set Mail = Nothing

on error goto 0

response.Redirect "thanks.asp"

Else

If "http://" & Request.ServerVariables("HTTP_HOST") & ThisPage = RefPage Then

Response.Write "Verifique os campos por favor!" & "<BR>" & vbCrLf

End If

Forms_x ThisPage, FromName, FromEmail, ToEmail, message, subject

End If

Function val_email(strEmail)

Dim xVal

xVal = True

If Len(strEmail) < 5 Then

xVal = False

Else

If Instr(1, strEmail, " ") <> 0 Then

xVal = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

xVal = False

Else

If InStrRev(strEmail, ".") < _

InStr(1, strEmail, "@", 1) + 2 Then

xVal = False

End If

val_email = xVal

End Function

Sub Forms_x (strPageName, FromName, FromEmail, ToEmail, message, subject) %>

<html>

<head>

<!--

body {background-color: #FFFFFF;

}

p.body { font-family: tahoma, sans-serif ;

color: #000000;

text-decoration: none;

font-size: 11px;

text-align: justify;

line-height: 1.3

}

p.bold { font-family: tahoma, sans-serif ;

text-decoration: none;

color: #000000;

font-size: 11px;

text-align: left;

font-weight: bold;

line-height: 1.3

}

ul { font-family: tahoma, sans-serif ;

color: #000000;

text-decoration: none;

font-size: 11px;

text-align: justify;

}

li { font-family: tahoma, sans-serif ;

color: #000000;

text-decoration: none;

font-size: 11px;

text-align: justify;

}

a:link {

font-family: tahoma, sans-serif;

color: #335173;

text-decoration: none;

}

a:visited {

font-family: tahoma, sans-serif;

color: #335173;

text-decoration: none;

}

a:hover, a:active {

font-family: tahoma, sans-serif;

color: #657A44;

text-decoration: none;

.style1 {font-size: 10px}

span.GramE {}

span.SpellE {}

.style4 {

font-family: Verdana;

font-size: 9px;

}

div.MsoNormal {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

li.MsoNormal {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

p.MsoNormal {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

div.MsoNormal1 {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

li.MsoNormal1 {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

p.MsoNormal1 {mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";

color:black;}

.style5 {font-family: Tahoma; font-weight: bold; font-size: 14px; }

.style6 {

font-family: Verdana;

font-size: 18px;

font-weight: bold;

}

.style7 {

font-family: Verdana;

font-size: 12px;

}

-->

</style>

<title>..:: AR Forum - Certificação Digital ::..</title>

</head>

<tr>

</tr>

</table>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table> </td>

<tr>

<tr>

<td colspan="2"><div align="center"><span class="style6">Contato</span></div></td>

</tr>

<tr>

</tr>

<tr>

<tr>

<td><form action="<%=strPageName%>" method="post" name=frmReferral>

<tr>

</tr>

<tr>

<td align="right" valign="top" bgcolor="#FFFFFF"><p class="style5">Email:</p></td>

</tr>

<tr>

<td align="right" valign="top" bgcolor="#FFFFFF"><p class="style5">Contato:</p></td>

<option value="Informações - Mensagem do Site">Informações</option>

<option value="Comercial - Mensagem do Site">Comercial</option>

</select>

</label>

</tr>

<tr>

<td bgcolor="#FFFFFF"><p class="style5">Mensagem:</p></td>

</label></td>

</tr>

<tr>

</tr>

</table>

</form></td>

</tr>

</table>

</div></td>

</tr>

<tr>

</tr>

<tr>

<td colspan="2"><p class="style7"><strong>Telefone:</strong> 3228-9428<br>

<br>

<strong>Alexandre Ferraz</strong> - Ramal 37<br>

<strong>Fabiano Barbosa</strong> - Ramal 31<br>

<strong>Marcelo Silva</strong> - Ramal 33

</p>

</tr>

</table>

</tr>

</table> </td>

</tr>

<tr>

</div></td>

</tr>

</table>

</body>

</html>

Mário Monteiro · Novembro 27, 2007

aparentemente falta finalizar a sub

fabwan · Novembro 27, 2007

Poderia dizer onde amigo?

A linha 277 q ele aponta eh essa:

Mário Monteiro · Novembro 27, 2007

esta sub

Sub Forms_x (strPageName, FromName, FromEmail, ToEmail, message, subject) %>

esta sem END SUB

fabwan · Novembro 27, 2007

Fica assim?

End Function

Sub Forms_x (strPageName, FromName, FromEmail, ToEmail, message, subject) %>

End Sub

Mário Monteiro · Novembro 27, 2007

bem

voce tem que finalizar a sub

o que vai por ali dentro depende do que está buscando

fabwan · Novembro 27, 2007

Valeu!

Mário Monteiro · Novembro 27, 2007

ok entao precisando é so postar

Arquivado

Microsoft VBScript compilation error '800a03f6'

Recommended Posts

fabwan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabwan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabwan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabwan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante