Erro De Compilação Do Microsoft Vbscript (0x800a03f2)

[Guest Aprendendo ASP]

OLÁ AMIGOS ESTOU FAZENDO UM FORMULARIO EM ASP PARA GRAVAR OS DADOS NUM BANCO DE DADO EM ACCESS. POREM QUANDO CLICO EM ENVIAR APARECE ESSE ERRO.

PRECISO ENTREGAR ESSE TRABALHO URGENTE, PORÉM ESSE MERDA TA DANDO PAU.

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F2)

Identificador esperado

/inserir_dados.asp, line 46, column 4

Dim type

---^

ESTE É O CODIGO DO SCRIPT PARA CAPTURAR E GRAVAR AS INFORMAÇÕES NO BANCO DE DADOS.

<%

Option Explicit

Response.Expires = 0

Dim objConn

Dim objRs

Dim strQuery

Dim strConnection

Dim salution

Dim name

Dim surname

Dim stagename

Dim birthdate

Dim birthplace

Dim street

Dim housenumber

Dim postcode

Dim city

Dim country

Dim telephonenumber

Dim mobilenumber

Dim faxnumber

Dim email

Dim homepage

Dim application

Dim identification

Dim number

Dim nationality

Dim driverlicens

Dim nativelanguage

Dim foreignlanguage1

Dim foreignlanguage2

Dim internationalinsurance

Dim size

Dim weight

Dim sizeshoe

Dim chest

Dim coloureyes

Dim colourhair

Dim lenghthair

Dim bodyhair

Dim beard

Dim bodytype

Dim type

Dim sexualorientation

Dim safersex

Dim anal

Dim oral

Dim sm

Dim longdick

Dim sizedick

Dim cutuncut

Dim kissing

Dim tattoos

Dim tattoosdescrip

Dim piercings

Dim piercingsdescrip

Dim specialtalents

Dim speciallikings

Dim specialrestrictions

Dim strDBPath

salution = Request.Form("salution")

name = Request.Form("name")

surname = Request.Form("surname")

stagename = Request.Form("stagename")

birthdate = Request.Form("birthdate")

birthplace = Request.Form("birthplace")

street = Request.Form("street")

housenumber = Request.Form("housenumber")

postcode = Request.Form("postcode")

city = Request.Form("city")

country = Request.Form("country")

telephonenumber = Request.Form("telephonenumber")

mobilenumber = Request.Form("mobilenumber")

faxnumber = Request.Form("faxnumber")

email = Request.Form("email")

homepage = Request.Form("homepage")

application = Request.Form("application")

identification = Request.Form("identification")

number = Request.Form("number")

nationality = Request.Form("nationality")

driverlicens = Request.Form("driverlicens")

nativelanguage = Request.Form("nativelanguage")

foreignlanguage1 = Request.Form("foreignlanguage1")

foreignlanguage2 = Request.Form("foreignlanguage2")

internationalinsurance = Request.Form("internationalinsurance")

size = Request.Form("size")

weight = Request.Form("weight")

sizeshoe = Request.Form("sizeshoe")

chest = Request.Form("chest")

coloureyes = Request.Form("coloureyes")

colourhair = Request.Form("colourhair")

lenghthair = Request.Form("lenghthair")

bodyhair = Request.Form("bodyhair")

beard = Request.Form("beard")

bodytype = Request.Form("bodytype")

type = Request.Form("type")

sexualorientation = Request.Form("sexualorientation")

safersex = Request.Form("safersex")

anal = Request.Form("anal")

oral = Request.Form("oral")

sm = Request.Form("sm")

longdick = Request.Form("longdick")

sizedick = Request.Form("sizedick")

cutuncut = Request.Form("cutuncut")

kissing = Request.Form("kissing")

tattoos = Request.Form("tattoos")

tattoosdescrip = Request.Form("tattoosdescrip")

piercings = Request.Form("piercings")

piercingsdescrip = Request.Form("piercingsdescrip")

specialtalents = Request.Form("specialtalents")

speciallikings = Request.Form("speciallikings")

specialrestrictions = Request.Form("specialrestrictions")

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

strDBPath = "dbtb.mdb"

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

strQuery = "INSERT INTO contato (salution,name,surname,stagename,birthdate,birthplace,street,postcode,country,telephonenumber,faxnumber,email,homepage,application,identification,nationality,driverlicens,nativelanguage,foreignlanguage1,foreignlanguage2,internationalinsurance,size,weight,sizeshoe,chest,coloureyes,colourhair,lenghthair,bodyhair,beard,bodytype,type,sexualorientation,safersex,anal,oral,sm,longdick,sizedick,cutuncut,kissing,tattoos,tattoosdescrip,piercings,piercingsdescrip,specialtalents,speciallikings,specialrestrictions) VALUES ('"&salution&"','"&name&"','"&surname&"','"&stagename&"','"&birthdate&"','"&birthplace&"','"&street&"','"&postcode&"','"&country&"','"&telephonenumber&"','"&faxnumber&"','"&email&"','"&homepage&"','"&application&"','"&identification&"','"&nationality&"','"&driverlicens&"','"&nativelanguage&"','"&foreignlanguage1&"','"&foreignlanguage2&"','"&internationalinsurance&"','"&size&"','"&weight&"','"&sizeshoe&"','"&chest&"','"&coloureyes&"','"&colourhair&"','"&lenghthair&"','"&bodyhair&"','"&beard&"','"&bodytype&"','"&type"','"&sexualorientation&"','"&safersex&"','"&anal&"','"&oral&"','"&sm&"','"&longdick&"','"&sizedick&"','"&cutuncut&"','"&kissing&"','"&tattoos&"','"&tattoosdescrip&"','"&piercings&"','"&piercingsdescrip&"','"&specialtalents&"','"&speciallikings&"','"&specialrestrictions&"')"

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then

response.redirect "thanks.asp"

end if

%>

E ESSE É O CODIGO DO FORMULARIO

<HTML>

<HEAD>

<TITLE>Traumboys.info</TITLE>

<LINK href="css/layout.css" type=text/css rel=stylesheet>

</HEAD>

<BODY>

<DIV id=index>

<DIV id=banner>

<MAP name=Sprache><AREA shape=CIRCLE alt=english

coords=905,78,10

href="http://www.traumboys.info/model_gesucht.php?lng=1"><AREA shape=CIRCLE

alt=deutsch coords=930,78,10

href="http://www.traumboys.info/model_gesucht.php?lng=0"></MAP><IMG height=90

alt="" src="image/blank.gif" width=940 useMap=#Sprache

border=0> </DIV>

<DIV id=menu>

<TABLE cellSpacing=0 cellPadding=0 width=940 align=left border=0>

<TBODY>

<TR>

<TD><A href="http://www.traumboys.info/index.php?lng=0"><IMG height=28

alt="" hspace=0 src="image/home.jpg" width=65

border=0></A></TD>

<TD><A href="http://www.traumboys.info/unsere_seiten.php?lng=0"><IMG

alt="" src="image/unsereseiten.jpg" width=118

border=0></A></TD>

<TD><IMG alt="" src="image/modelgesucht_used.jpg"

width=141 border=0></TD>

<TD><A href="http://www.traumboys.info/news.php?lng=0"><IMG alt=""

src="image/news.jpg" width=65 border=0></A></TD>

<TD><A href="http://www.traumboys.info/produktion.php?lng=0"><IMG alt=""

src="image/produktion.jpg" width=113 border=0></A></TD>

<TD><IMG height=28 alt="" src="image/menu.jpg"

width=438></TD></TR></TBODY></TABLE></DIV>

<DIV id=contents>

<DIV id=index_contents>

<DIV id=modelgesucht_text>

<form id="form1" name="form1" method="post" action="inserir_dados.asp">

<table width="70%" border="0" cellspacing="0" cellpadding="3">

<tr>

<td colspan="4"><div align="center">Part 1: Personal dates</div>

<div align="left"></div> <div align="right"></div> <div align="left"></div></td>

</tr>

<tr>

<td width="22%"><div align="right">Salutation:</div></td>

<td colspan="3"><div align="left">

mr.<input type="radio" name="salution" value="mr" />

mrs.<input type="radio" name="salution" value="mrs" />

</div></td>

</tr>

<tr>

<td><div align="right">Name:</div></td>

<td width="27%"><div align="left"><input name="name" type="text" size="25" maxlength="25" /></div></td>

<td width="18%"><div align="right">Surname:</div></td>

<td width="33%"><div align="left"><input name="surname" type="text" size="25" maxlength="25" /></div></td>

</tr>

<tr>

<td><div align="right">Stagename:</div></td>

<td><div align="left"><input name="stagename" type="text" size="25" maxlength="25" /></div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Date of birth:</div></td>

<td><div align="left"><input name="birthdate" type="text" size="2" maxlength="2" /></div></td>

<td><div align="right">Place of birth:</div></td>

<td><div align="left"><input name="birthplace" type="text" size="25" maxlength="25" /></div></td>

</tr>

<tr>

<td><div align="right">Street:</div></td>

<td><div align="left"><input name="street" type="text" size="25" maxlength="25" /></div></td>

<td><div align="right">Housenumber:</div></td>

<td><div align="left"><input name="housenumber" type="text" size="5" maxlength="5" /></div></td>

</tr>

<tr>

<td><div align="right">Postcode:</div></td>

<td><div align="left"><input name="postcode" type="text" size="8" maxlength="8" /></div></td>

<td><div align="right">City:</div></td>

<td><div align="left"><input name="city" type="text" size="30" maxlength="30" /></div></td>

</tr>

<tr>

<td><div align="right">Country:</div></td>

<td><div align="left"><input name="country" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Telephone Number:</div></td>

<td><div align="left"><input name="telephonenumber" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right">Mobile Number:</div></td>

<td><div align="left"><input name="mobilenumber" type="text" size="30" maxlength="30" /></div></td>

</tr>

<tr>

<td><div align="right">Fax Number:</div></td>

<td><div align="left"><input name="faxnumber" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">E-Mail:</div></td>

<td><div align="left"><input name="email" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right">Homepage:</div></td>

<td><div align="left"><input name="homepage" type="text" size="30" maxlength="30" /></div></td>

</tr>

<tr>

<td><div align="right">Application for:</div></td>

<td><div align="left">

Film<input type="radio" name="application" value="film" />

Photo<input type="radio" name="application" value="photo" />

Escort<input type="radio" name="application" value="escort" />

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Identification:</div></td>

<td><div align="left">

Passport<input type="radio" name="identification" value="passport" />

Identitycard<input type="radio" name="identification" value="Identitycard" />

</div></td>

<td><div align="right">Number:</div></td>

<td><div align="left"><input name="number" type="text" size="30" maxlength="30" /></div></td>

</tr>

<tr>

<td><div align="right">Nationality:</div></td>

<td><div align="left"><input name="nationality" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right">Driver licence:</div></td>

<td><div align="left">

Yes<input type="radio" name="driverlicens" value="yes" />

No<input type="radio" name="driverlicens" value="no" />

</div></td>

</tr>

<tr>

<td><div align="right">Native language:</div></td>

<td><div align="left"><input name="nativelanguage" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Foreign language 1:</div></td>

<td><div align="left"><input name="foreignlanguage1" type="text" size="30" maxlength="30" /></div></td>

<td><div align="right">Foreign language 2:</div></td>

<td><div align="left"><input name="foreignlanguage2" type="text" size="30" maxlength="30" /></div></td>

</tr>

<tr>

<td><div align="right">International insurance:</div></td>

<td colspan="3"><div align="left"><textarea name="internationalinsurance" cols="60" rows="2"></textarea></div></td>

</tr>

<tr>

<td colspan="4"><div align="center">Part 2: Appearance</div>

<div align="left"></div> <div align="right"></div> <div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Size:</div></td>

<td><div align="left"><input name="size" type="text" size="3" maxlength="3" />cm</div></td>

<td><div align="right">Weight:</div></td>

<td><div align="left"><input name="weight" type="text" size="3" maxlength="3" />kg</div></td>

</tr>

<tr>

<td><div align="right">Size in shoe:</div></td>

<td><div align="left"><input name="sizeshoe" type="text" size="2" maxlength="2" />us</div></td>

<td><div align="right">Chest measurement:</div></td>

<td><div align="left"><input name="chest" type="text" size="3" maxlength="3" />cm</div></td>

</tr>

<tr>

<td><div align="right">Colour of eyes:</div></td>

<td><div align="left"><input name="coloureyes" type="text" size="15" maxlength="15" /></div></td>

<td><div align="right">Colour of hair:</div></td>

<td><div align="left"><input name="colourhair" type="text" size="15" maxlength="15" /></div></td>

</tr>

<tr>

<td><div align="right">Lenght of hair:</div></td>

<td><div align="left">

<select size="1" name="lenghthair">

<option value="none" selected>&lt;Choose one&gt;

<option value="bold head">bold head

<option value="middle">middle

<option value="long">long

</option>

</select>

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Bodyhair:</div></td>

<td><div align="left">

<select size="1" name="bodyhair">

<option value="none" selected>&lt;Choose one&gt;

<option value="no hair">no hair

<option value="shaved">shaved

<option value="less hair">less hair

<option value="middle hair">middle hair

<option value="much hair">much hair

</option>

</select>

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Beard:</div></td>

<td><div align="left">

<select size="1" name="beard">

<option value="none" selected>&lt;Choose one&gt;

<option value="no beard">no beard

<option value="three-days-beard">three-days-beard

<option value="full beard">full beard

</option>

</select>

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Type of body:</div></td>

<td><div align="left">

<select size="1" name="bodytype">

<option value="none" selected>&lt;Choose one&gt;

<option value="skinny">skinny

<option value="slim">slim

<option value="normal">normal

<option value="athletic">athletic

<option value="bodybuilder">bodybuilder

<option value="little belly">little belly

</option>

</select>

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Type:</div></td>

<td><div align="left">

<select size="1" name="type">

<option value="none" selected>&lt;Choose one&gt;

<option value="European">European

<option value="Asian">Asian

<option value="Latin">Latin

<option value="Southener">Southener

<option value="Black">Black

</option>

</select>

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td colspan="4"><div align="center">Part 3: Sexuality</div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td>

</tr>

<tr>

<td><div align="right">Sexual orientation:</div></td>

<td><div align="left">

<select size="1" name="sexualorientation">

<option value="none" selected>&lt;Choose one&gt;

<option value="only active">only active

<option value="more active">more active

<option value="active & passive">active & passive

<option value="more passive">more passive

<option value="only passive">only passive

</option>

</select>

</div></td>

<td><div align="right">Safer Sex: </div></td>

<td><div align="left">

<select size="1" name="safersex">

<option value="none" selected>&lt;Choose one&gt;

<option value="always">always

<option value="agreement">agreement

<option value="sometimes">sometimes

<option value="never">never

</option>

</select>

</div></td>

</tr>

<tr>

<td><div align="right">Anal:</div></td>

<td><div align="left">

<select size="1" name="anal">

<option value="none" selected>&lt;Choose one&gt;

<option value="only active">only active

<option value="more active">more active

<option value="active & passive">active & passive

<option value="more passive">more passive

<option value="only passive">only passive

</option>

</select>

</div></td>

<td><div align="right">Oral:</div></td>

<td><div align="left">

<select size="1" name="oral">

<option value="none" selected>&lt;Choose one&gt;

<option value="only active">only active

<option value="more active">more active

<option value="active & passive">active & passive

<option value="more passive">more passive

<option value="only passive">only passive

</option>

</select>

</div></td>

</tr>

<tr>

<td><div align="right">SM:</div></td>

<td><div align="left">

Yes<input type="radio" name="sm" value="yes" />

No<input type="radio" name="sm" value="no" />

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">Long of the dick:</div></td>

<td><div align="left"><input type="text" name="longdick" size="3" maxlength="3" />cm</div></td>

<td><div align="right">Size of the dick:</div></td>

<td><div align="left">

<input type="text" name="sizedick" size="3" maxlength="3" />&nbsp;

Cut<input type="radio" name="cutuncut" value="cut" />

Uncut<input type="radio" name="cutuncut" value="uncut" />

</div></td>

</tr>

<tr>

<td><div align="right">Kissing:</div></td>

<td><div align="left">

Yes<input type="radio" name="kissing" value="yes" />

No<input type="radio" name="kissing" value="no" />

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<tr>

<td colspan="4"><div align="center">Part 4: Others </div></td>

</tr>

<tr>

<td><div align="right">Tattoos:</div></td>

<td><div align="left">

Yes<input type="radio" name="tattoos" value="yes" />

No<input type="radio" name="tattoos" value="no" />

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">if yes, short description:</div></td>

<td colspan="3"><div align="left"><textarea name="tattoosdescrip" cols="60" rows="1"></textarea></div></td>

</tr>

<tr>

<td><div align="right">Piercings</div></td>

<td><div align="left">

Yes<input type="radio" name="piercings" value="yes" />

No<input type="radio" name="piercings" value="no" />

</div></td>

<td><div align="right"></div></td>

<td><div align="left"></div></td>

</tr>

<tr>

<td><div align="right">if yes, short description:</div></td>

<td colspan="3"><div align="left"><textarea name="piercingsdescrip" cols="60" rows="1"></textarea></div></td>

</tr>

<tr>

<td><div align="right">Special talents:</div></td>

<td colspan="3" rowspan="2"><div align="left"><textarea name="specialtalents" cols="60" rows="2"></textarea></div></td>

</tr>

<tr>

<td><div align="right"></div></td>

</tr>

<tr>

<td><div align="right">Special likings:</div></td>

<td colspan="3" rowspan="2"><div align="left"><textarea name="speciallikings" cols="60" rows="2"></textarea></div></div></td>

</tr>

<tr>

<td><div align="right"></div></td>

</tr>

<tr>

<td><div align="right">Special restrictions:</div></td>

<td colspan="3" rowspan="2"><div align="left"><textarea name="specialrestrictions" cols="60" rows="2"></textarea></div></td>

</tr>

<tr>

<td><div align="right"></div></td>

</tr>

</TBODY></TABLE><BR><INPUT

type=image src="image/next.gif" value="Send" name=""> </FORM></DIV></DIV></DIV></DIV></BODY></HTML>

[webdeveloper]

O problema é que 'type' é um nome reservado do VBScript, troque por outro nome, ex: 'tipo'.

[Guest Aprendendo ASP]

troquei de type para tipo, porém aparece esse outro erro.

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/inserir_dados.asp, line 130, column 1067

strQuery = "INSERT INTO contato (salution,name,surname,stagename,birthdate,birthplace,street,postcode,country,telephonenumber,faxnumber,email,homepage,application,identification,nationality,driverlicens,nativelanguage,foreignlanguage1,foreignlanguage2,internationalinsurance,size,weight,sizeshoe,chest,coloureyes,colourhair,lenghthair,bodyhair,beard,bodytype,tipo,sexualorientation,safersex,anal,oral,sm,longdick,sizedick,cutuncut,kissing,tattoos,tattoosdescrip,piercings,piercingsdescrip,specialtalents,speciallikings,specialrestrictions) VALUES ('"&salution&"','"&name&"','"&surname&"','"&stagename&"','"&birthdate&"','"&birthplace&"','"&street&"','"&postcode&"','"&country&"','"&telephonenumber&"','"&faxnumber&"','"&email&"','"&homepage&"','"&application&"','"&identification&"','"&nationality&"','"&driverlicens&"','"&nativelanguage&"','"&foreignlanguage1&"','"&foreignlanguage2&"','"&internationalinsurance&"','"&size&"','"&weight&"','"&sizeshoe&"','"&chest&"','"&coloureyes&"','"&colourhair&"','"&lenghthair&"','"&bodyhair&"','"&beard&"','"&bodytype&"','"&tipo"','"&sexualorientation&"','"&safersex&"','"&anal&"','"&oral&"','"&sm&"','"&longdick&"','"&sizedick&"','"&cutuncut&"','"&kissing&"','"&tattoos&"','"&tattoosdescrip&"','"&piercings&"','"&piercingsdescrip&"','"&specialtalents&"','"&speciallikings&"','"&specialrestrictions&"')"

O que será que to fazendo de errado?

valeu

[webdeveloper]

Tá faltando um '&' neste ponto:

,'"&bodytype&"','"&tipo"','"&

Editado Maio 31, 2007 por webdeveloper

[bareta]

quando ocorrer este tipo de erro você pode fazer uma verificação para procurar falhas... antes de executer a sql de um response.write nela e um response.end

sql="select * from tabela"

response.write sql

response.end 'para a execução antes de dar erro