Function btnVotar_onClick()
	Dim qtdResp
	qtdResp = document.form.hVlI.value
	If qtdResp = 2 Then
		If document.form.rR0.checked Or document.form.rR1.checked Then
			document.form.submit()
		Else
			alert "Antes de votar, por favor, escolha uma das opções."
		End If
	ElseIf qtdResp = 3 Then
		If document.form.rR0.checked Or document.form.rR1.checked Or document.form.rR2.checked Then
			document.form.submit()
		Else
			alert "Antes de votar, por favor, escolha uma das opções."
		End If
	ElseIf qtdResp = 4 Then
		If document.form.rR0.checked Or document.form.rR1.checked Or document.form.rR2.checked Or document.form.rR3.checked Then
			document.form.submit()
		Else
			alert "Antes de votar, por favor, escolha uma das opções."
		End If
	End If
End Function

' verifica se foram preenchidos os campos usuario e senha
Function btnValida_onClick
	If ((document.form.txtUser.value = "") Or (document.form.txtPass.value = "")) Then
		alert "Por Favor, preencha os campos corretamente."
		document.form.txtUser.select()
	Else
		document.form.submit()
	End If
End Function
	
'ao pressionar enter, va para senha
Function txtUser_onKeyPress
	if (window.event.keyCode = 13) and form.txtUser.value <> "" Then
		document.form.txtPass.focus 
	End if
End Function
	
'ao pressionar enter, da submit no form
Function txtPass_onKeyPress
	if (window.event.keyCode = 13) and form.txtPass.value <> "" Then
		document.form.btnValida.focus 
	End if
End Function

Function btnConfirma_onClick()
	Dim dia, mes, ano, data

	'verifica se esta preenchido o campo nome
	If Document.Form.txtNome.value = "" Then
		alert "Preencha o campo Nome."
		Document.Form.txtNome.focus()
	'verifica se esta preenchido o campo endereco
	ElseIf Document.Form.txtEndereco.value = "" Then
		alert "Preencha o campo Endereço."
		Document.Form.txtEndereco.focus()
	'verifica se esta preenchido o campo email
	ElseIf Document.Form.txtEmail.value = "" Then
		alert "Preencha o campo Email."
		Document.Form.txtEmail.focus()
	'verifica se o email esta correto
	'ElseIf (InStr(Document.Form.txtEmail.value,"@") And InStr(Document.Form.txtEmail.value,".")) = 0 Then
	'	alert "Preencha corretamente o campo email"
	'	Document.Form.txtEmail.Select()
	'verifica se esta preenchido o campo confirmacao de email
	ElseIf Document.Form.txtConfEmail.value = "" Then
		alert "Preencha o campo Confirmacao do Email."
		Document.Form.txtConfEmail.focus()
	'verifica se email e confirmacao de email sao iguais
	ElseIf StrComp(Document.Form.txtEmail.value,Document.Form.txtConfEmail.value) <> 0 Then
		alert "O campo Confirmacao do Email nao esta correto."
		Document.Form.txtConfEmail.Select()
	'verifica se esta preenchido o combo dia
	ElseIf Document.Form.cmdDia.value = "" Then
		alert "Preencha o campo Dia."
		Document.Form.cmdDia.focus()
	'verifica se esta preenchido o combo mes
	ElseIf Document.Form.cmdMes.value = "" Then
		alert "Preencha o campo Mes."
		Document.Form.cmdMes.focus()
	'verifica se esta preenchido o combo ano
	ElseIf Document.Form.cmdAno.value = "" Then
		alert "Preencha o campo Ano."
		Document.Form.cmdAno.focus()
	'verifica se esta preenchido o campo usuario
	ElseIf Document.Form.txtUsuario.value = "" Then
		alert "Preencha o campo Usuario."
		Document.Form.txtUsuario.focus()
	'verifica se esta preenchido o campo senha
	ElseIf Document.Form.txtSenha.value = "" Then
		alert "Preencha o campo Senha."
		Document.Form.txtSenha.focus()
	'verifica se esta preenchido o campo confirmacao de senha
	ElseIf Document.Form.txtConfSenha.value = "" Then
		alert "Preencha o campo Confirmacao da Senha."
		Document.Form.txtConfSenha.focus()
	'verifica se senha e confirmacao de senha sao iguais
	ElseIf StrComp(Document.Form.txtSenha.value,Document.Form.txtConfSenha.value) <> 0 Then
		alert "A senha do campo Confirmacao de Senha nao esta correto."
		Document.Form.txtConfSenha.Select()
	Else
		dia = Document.Form.cmdDia.value
		mes = Document.Form.cmdMes.value
		ano = Document.Form.cmdAno.value
		data = dia & mes & ano
'		alert data
		Document.Form.txtNasc.value = data
		Document.Form.submit()
	End If
End Function

Function ValidaNum()
	Dim tamanho
	tamanho = Len(Document.Form.txtCep.value)
	If Window.event.keyCode < 48 Or Window.event.keyCode > 57 Then
		Window.event.keyCode = 0
	End If
End Function

Function validaEmail(email)
	If InStr(email,"@") > 0 And InStr(email,".") > 0 Then
		Document.Form.submit()
	Else
		alert "Informe o e-mail corretamente."
	End If

End Function