[Resolvido] Nome do Select

[fabio Avila 1]

Bom DIa

 

Estou com uma duvida aonde eu vejo o nome do Slect abaixo, estou tentando enviar os dados do select mas nao sei aonde vejo:

 

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source=C:\CPD\asp\contato.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
 
strQ = "SELECT * FROM contato ORDER BY nomefantasia ASC"
Set objRS = objCon.Execute(strQ)
 
Response.Write "<SELECT NAME='associado'>"
Response.Write "<OPTION VALUE='' SELECTED></OPTION> "
 
If Not objRS.EOF Then
  While Not objRS.EOF
	Response.Write "<OPTION VALUE='" & objRS("nomefantasia") & "'"
	If Request("associado") = objRS("nomefantasia") Then Response.Write " selected"
	Response.Write ">" & objRS("nomefantasia") & "</OPTION>"
	objRS.MoveNext
  Wend
End If
 
Response.Write "</SELECT>"
 
objCon.Close

Set objRS = Nothing
Set objCon = Nothing 
%>

grato

[Anderson Roberto 0]

Tópico movido.

 

Artigos, Dicas, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

 

Não seria associado?

...
Response.Write "<SELECT NAME='associado'>"
...

[fabio Avila 1]

Vou testar pra ver

[fabio Avila 1]

E seguinte, ele so funciona se deixar os campos VALOR, VENCIMENTO, se colocar o campo Associado , da erro no codigo, é que assim esse select esta pegando dados de outra tabela , e preciso que envie esse dados desse select junto com VALOR e VENCIMENTO..

 

[]ços

[Mário Monteiro 179]

mas esta num formulario?

 

nao estes dois outros campos?

[jrcardozo 4]

tem apostofre errado, substitua por aspas

VALUE=""" & objRS("nomefantasia") & """

[fabio Avila 1]

Esta tudo no mesmo Formulario...

[Anderson Roberto 0]

E seguinte, ele so funciona se deixar os campos VALOR, VENCIMENTO, se colocar o campo Associado , da erro no codigo, é que assim esse select esta pegando dados de outra tabela , e preciso que envie esse dados desse select junto com VALOR e VENCIMENTO..

 

[]ços

Poste o erro e parte do código que gera o erro.

[fabio Avila 1]

Segue o codigo do form:

 

<form method="POST" action="oposto3.asp" name="form">

<input type="hidden" name="enviado" value="sim">

<p> </p>

<div align="center">

<center>

<table border="0" cellpadding="0" width="546" height="1" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">

<tr>

<td width="272" height="32" bgcolor="#6E9F4D">

 </td>

<td width="864" colspan="3" height="32" bgcolor="#6E9F4D">

<br>

 </td>

</tr>

<tr>

<td width="272" height="32" bgcolor="#6E9F4D">

 </td>

<td width="864" colspan="3" height="32" bgcolor="#6E9F4D">

<b>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Nome do Associado

</font></b><font face="Tahoma"><b><font color="#FFFFFF" style="font-size: 8pt"><br>

<%

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

objCon.Open "Data Source=C:\CPD\asp\contato.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

 

strQ = "SELECT * FROM contato ORDER BY nomefantasia ASC"

Set objRS = objCon.Execute(strQ)

 

Response.Write "<SELECT NAME='associado'>"

Response.Write "<OPTION VALUE='' SELECTED></OPTION> "

 

If Not objRS.EOF Then

While Not objRS.EOF

Response.Write "<OPTION VALUE='" & objRS("nomefantasia") & "'"

If Request("associado") = objRS("nomefantasia") Then Response.Write " selected"

Response.Write ">" & objRS("nomefantasia") & "</OPTION>"

objRS.MoveNext

Wend

End If

 

Response.Write "</SELECT>"

 

objCon.Close

 

Set objRS = Nothing

Set objCon = Nothing

%>

</font></b></font></td>

</tr>

<tr>

<td width="272" height="32" bgcolor="#6E9F4D">

 </td>

<td width="864" colspan="3" height="32" bgcolor="#6E9F4D">

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Vencimento</font><font face="Tahoma" color="#FFFFFF"><br>

<INPUT id=email maxLength=40 name=vencimento

style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="20"></font></b></td>

</tr>

<tr>

<td width="272" height="32" valign="top" bgcolor="#6E9F4D">

 </td></form>

 

Arquivo q envia pro bd:

 

<!--#include file="db.asp"-->

<% AbreConexao

If request.form("enviado") = "sim" Then

Cadastrado =False

set Dicionario = CreateObject("scripting.dictionary")

i = 0

 

 

 

 

 

 

 

Vet = Dicionario.items

if Dicionario.Count<>0 then

Response.Write "<b><center><font face=verdana size=1>"

Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"

for i = 0 to Dicionario.Count - 1

Response.Write vet(i) & "<BR><br>"

next

response.write "<BR><br>"

 

Else

Sql = "INSERT INTO mensalidades (associado,vencimento, valor) "

Sql = Sql & "VALUES('" &Request.Form("vencimento") & "', &Request.Form("associado") & "','" & Request.Form("valor") & "')"

Conexao.Execute(Sql)

Cadastrado = True

End If

End If

If Cadastrado = False Then

Else

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

 

E o erro :

 

Fim da instrução esperado

/teste/oposto3.asp, line 25, column 72

Sql = Sql & "VALUES('" &Request.Form("vencimento") & "', &Request.Form("associado") & "','" & Request.Form("valor") & "')"

-----------------------------------------------------------------------^

 

[]ços

[Mário Monteiro 179]

falta uam aspas dupla onde aponta o erro

[fabio Avila 1]

Vlw Mario deu certo ..

 

Brigadaooo

[Mário Monteiro 179]

De nada