2 replies to this topic

[Reluviari]

Pessoal eu quero cadastrar o login de usuaáios ...

o usuario entra na pagina de login entao ele informa um dado dele q ja existe no banco (no caso produtor)

entao ele tem q cadastrar um login e uma senha

entao eu tenho q inserir esse login e essa senha de acordo com rg do fulano ...mas nao sei como é essa codigo para incluir com uma condição...tentei fazer desse jeito mas deu erro se sintaxe..

Response.Expires = 0

Dim Conn, objRs, strQuery, strConnection,produtor,login,senha
produtor = request.form("produtor")
login = Request.Form("login")
senha = Request.Form("senha")


strQuery = "INSERT INTO produtores (login,senha) VALUES ('"&login&"', '"&senha&"') where produtor = '"& produtor &"'"
Set ObjRs = Conn.Execute(strQuery)

alguem pode me ajudar por gentileza
obrigado

[knoxville]

claro... ponha tipo:

If (CONDICAO) Then
strQuery = "INSERT INTO produtores (login,senha) VALUES ('"&login&"', '"&senha&"') where produtor = '"& produtor &"'" 
Set ObjRs = Conn.Execute(strQuery)
Else
Response.Write "Login inválido!"
End If

[cybermix]

usa um lsit/menu para fazer isso, exemplo:

<select name="select" class="t10">
              <option value="produtor1">produtor
              <option value="produtor2">produtor2
 </select>

dai usa select case

<%
Response.Expires = 0 

Dim Conn, objRs, strQuery, strConnection,produtor,login,senha 
produtor = request.form("produtor") 
login = Request.Form("login") 
senha = Request.Form("senha") 


select case produtor
case "produtor"

strQuery = "INSERT INTO produtores (login,senha) VALUES ('"&login&"', '"&senha&"') where produtor = '"& produtor &"'" 
Set ObjRs = Conn.Execute(strQuery)

case "produtor2"
strQuery = "INSERT INTO produtores (login,senha) VALUES ('"&login&"', '"&senha&"') where produtor2 = '"& produtor &"'" 
Set ObjRs = Conn.Execute(strQuery)
end select
%>