Charada Para Expert! Um Formulário Em Asp E Sql

Junho 14, 2004

O problema é: quando você envia o formulario ele aparece o seguinte erro:

Error Type:

Microsoft VBScript runtime (0x800A01C2)

Wrong number of arguments or invalid property assignment: 'request'

/plander/ProcessSub.asp, line 86

codigos abaixo

subscription.asp

<%@ Language=VBScript %>

<HTML>

<HEAD>

<!--

.style1 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 10px;

color: #0055b5;

}

.style2 {font-size: 10px}

-->

</style>

<!--

.style4 {font-family: Verdana, Arial, Helvetica, sans-serif}

-->

</style>

</HEAD>

<BODY>

Publicação XYZ

</b></font>

<!-- Inicia o formulário que será enviado à

página ProcessSub.asp.

-->

<!-- Inicia a seguir a tabela que irá apresentar o

formulário de entrada de dados

-->

<tr>

<td width="289" height="25" align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Período de expiração de seu cadastro:</font></span></td>

<%

' Verifica se o período foi marcado. Se foi

' então seleciona o respectivo radio button.

if session("intLength") = "1" then

CheckOne = "Checked"

Flag = 1

end if

if session("intLength") = "2" then

CheckTwo = "Checked"

Flag = 1

end if

if session("intLength") = "3" then

CheckThree = "Checked"

Flag = 1

end if

' Se é a primeira vez que o formulário é

' apresentado nesta sessão então selecione

' o período de um ano.

if Flag <> 1 then CheckOne = "Checked"

%>

Um Ano

Dois Anos

Três Anos </span> </td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Primeiro Nome:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Último Nome:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Endereço:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Cidade:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Estado:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Código Postal:</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Telefone:</font></span></td>

</tr>

<tr>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Instrumentos de seu interesse :</font></span></td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Você já é cliente plander?:</font></span></td>

<%

' Verificar se existia um cartão selecionado previamente

' se houver um erro.

if session("chrCardType") = "Sim" then

SelSim = "Selected"

end if

if session("chrCardType") = "Não" then

SelNao = "Selected"

end if

%>

<option value="Sim" <%=SelSim%> >Sim. Já sou cliente plander!

<option value="Não" <%=SelNao%>>Não. Não sou clinte plander!

</select>

</td>

</tr>

<tr>

<td align="right" class="style1"><span class="style4 style2"><font color="#0055b5">Idade:</font></span></td>

</tr>

<tr>

</td>

</tr>

</table>

</center>

</form>

</BODY>

</HTML>

o arquivo de recebimento do formulário

processSub.asp

<%@ Language=VBScript %>

<HTML>

<%

' Recupera todos os dados que o usuário digitou

' ulilizando o objeto request.

intLength = request("intLength")

chrFirstName = request("chrFirstName")

chrLastName = Request("chrLastName")

chrAddress = Request("chrAddress")

chrCity = Request("chrCity")

chrState = Request("chrState")

chrZipCode = Request("chrZipCode")

chrPhone = Request("chrPhone")

chrEmail = Request("chrEmail")

chrCardName = Request("chrCardName")

chrCardType = Request("chrCardType")

chrExpDate = Request("chrExpDate")

' Verifica se o primeiro nome foi digitado.

if chrFirstName = "" then

' Gera um erro se não foi.

strError = "Você não digitou o Primeiro Nome.<BR>"

end if

' Verifica se o último nome foi digitado.

if chrLastName = "" then

strError = strError & "Você não digitou o último nome.<BR>"

end if

' Verifica se o endereço foi digitado

if chrAddress = "" then

strError = strError & "Você não digitou o seu endereço.<BR>"

end if

' Verifica se a cidade foi digitada.

if chrCity = "" then

strError = strError & "Você não digitou a sua cidade.<BR>"

end if

' Verifica se o estado foi digitado e se o tamanho

' é maior do que dois caracteres.

if chrState = "" or len(chrState) > 2 then

strError = strError & "Você não digitou um estado válido.<BR>"

end if

' Verifica se o código postal foi digitado.

if chrZipCode = "" then

strError = strError & "Você não digitou o código postal.<BR>"

end if

' Verifica se o nome no cartão de crédito foi digitado.

if chrCardName = "" then

strError = strError & "Você não digitou o intrumento de seu interesse.<BR>"

end if

' Verifica se a data de expiração do cartão de crédito foi digitada.

if chrExpDate = "" then

strError = strError & "Você não digitou sua idade.<BR>"

end if

' Verifica se houve algum erro.

if strError <> "" then

request%>

Houve um erro no seu pedido de cadastramento:<BR><BR>

</b></font>

<%

' Exibe as mensagens de erro.

Response.Write strError

%>

<BR>

Clique <a href="subscription.asp">aqui</a> para atualizar.

<%

' Ajusta variáveis de sessão para o formulário de assinatura poder

' recarregar os dados digitados.

Session("intLength") = request("intLength")

Session("chrFirstName") = request("chrFirstName")

Session("chrLastName") = Request("chrLastName")

Session("chrAddress") = Request("chrAddress")

Session("chrCity") = Request("chrCity")

Session("chrState") = Request("chrState")

Session("chrZipCode") = Request("chrZipCode")

Session("chrPhone") = Request("chrPhone")

Session("chrEmail") = Request("chrEmail")

session("chrCardName") = Request("chrCardName")

Session("chrCardType") = Request("chrCardType")

Session("chrExpDate") = Request("chrExpDate")

else

%>

<font size="4" color="blue">Obrigado pelo seu pedido!

Ele será processado imediatamente.</font>

<Table>

<tr><td align="right"><B>Endereço:</b></td>

<tr><td align="right"><B>Cidade:</b></td>

<tr><td align="right"><B>Estado:</b></td>

<tr><td align="right"><B>Código Postal:</b></td>

<tr><td align="right"><B>Telefone:</b></td

><td><i> <% = chrPhone %></i></td></tr>

<tr><td align="right"><B>Instrumento de seu interesse:</b></td>

<tr><td align="right"><B>É cliente plander?:</b></td>

<tr><td align="right"><B>Idade:</b></td>

</ul>

<%

' Cria uma conexão ADO com o banco de dados

set dbSubs = server.createobject("adodb.connection")

' Abre uma conexão ODBC usando fonte de dados de arquivo (File DSN)

dbSubs.open("filedsn=SubForm")

' se qualquer dos campos digitados tiver aspas simples, será

' necessário duplicá-las para inserir no banco de dados

chrFirstName = replace(chrFirstName, "'", "''")

chrLastName = replace(chrLastName, "'", "''")

chrAddress = replace(chrAddress, "'", "''")

chrCardName = replace(chrCardName, "'", "''")

chrCity = replace(chrCity, "'", "''")

' Expressão SQL insert para inserir os dados da assinatura

' no banco de dados

sql = "insert into subscriptions(" & _

"chrFirstName, " & _

"chrLastname, " & _

"chrAddress, " & _

"chrCity, " & _

"chrState, " & _

"chrZipCode, " & _

"chrPhone, " & _

"chrEmail, " & _

"chrCardName, " & _

"chrCardType, " & _

"chrCardNumber, " & _

"chrExpDate, " & _

"intLength) " & _

"values (" & "'" & _

chrFirstName & "', '" & _

chrLastName & "', '" & _

chrAddress & "', '" & _

chrCity & "', '" & _

chrState & "', '" & _

chrZipCode & "', '" & _

chrPhone & "', '" & _

chrEmail & "', '" & _

chrCardName & "', '" & _

chrCardType & "', '" & _

chrCardNumber & "', '" & _

chrExpDate & "', " & _

intLength & ")"

' Executa a expressão SQL

dbSubs.execute(sql)

end if

%>

</body>

</html>

e a base de dados SQL

subscription.sql

________________________________________

if exists (select * from sysobjects where id = object_id('dbo.Subscriptions') and sysstat & 0xf = 3)

drop table dbo.Subscriptions

CREATE TABLE dbo.Subscriptions (

idSubscription int IDENTITY (1, 1) NOT NULL ,

chrFirstName varchar (100) NULL ,

chrLastName varchar (100) NULL ,

chrAddress varchar (150) NULL ,

chrCity varchar (100) NULL ,

chrState varchar (10) NULL ,

chrZipCode varchar (15) NULL ,

chrPhone varchar (25) NULL ,

chrEmail varchar (100) NULL ,

chrCardType varchar (50) NULL ,

chrCardNumber varchar (25) NULL ,

chrExpDate varchar (50) NULL ,

intProcessed tinyint NULL CONSTRAINT DF_Subscripti_intProcesse3__12 DEFAULT (0),

dtEntered datetime NULL CONSTRAINT DF_Subscripti_dtEntered_2__12 DEFAULT (getdate()),

intLength tinyint NULL ,

chrCardName varchar (150) NULL ,

CONSTRAINT PK___1__12 PRIMARY KEY CLUSTERED

(

idSubscription

)

_________________________

Que o verdadeiro DEUS abenções todos os esforços!

dark0 · Junho 14, 2004

ola´amigo.

vamos por partes..

qual seu conhecimento em asp?

qual o problema do formulario?

sua mensagem ficou gigante..

assim complica, né..

ele dá erro, você sabe onde dá o erro? e o que é aquele erro?

detalhe o problema.. não jogue o codigo todo aí, que não adiantará em nada..

ok?

ate mais

Bicicleta · Junho 14, 2004

Concordo com o Dark!!!

Pra que postar HTML com folha de estilo tudo junto se o erro é com o Asp???? Posta só o código q tá errado!!!

Dá próxima vez faz isso q fica mais fácil...

Quanto ao erro, olha isso:

'Verifica se houve algum erro.
if strError <> "" then
request%>

<B><font color="red">
Houve um erro no seu pedido de cadastramento:<BR><BR>
</b></font>

Traduzindo:

Se stErro for diferente de "" então

Request

Request o que????

Entrar

Charada Para Expert! Um Formulário Em Asp E Sql

Pergunta

Guest Pascoal

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Bicicleta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades