Jump to content


spider_72

Member Since 29/11/2003
Offline Last Active 06/09/2005, 09:12
-----

Topics I've Started

Botao De Anexar Arquivo

31/08/2005, 19:12

Em um site de cadastramento de curriculos existe aquele botao de anexar curriculos em Word, preciso saber como se faz, podem me ajudar? Dei uma pesquisada no forum e parece que existe varios meios, mas estou meio perdido podem me direcionar?

Formulario Sem Repetição De Usuario

19/08/2005, 17:34

Olha já deve ter esse tópico mas ja procurei e nada...
Podem me dizer onde está ou senão já me auxiliarem aqui mesmo como faço o formulário onde haja um código que verifique se o usuario já esta cadastrado enviando uma mensagem e inserindo ou não no Banco de Dados Acess.

Formulario E Acess

14/08/2005, 20:59

Por favor alguem pode me dar uma força! Sou auto didata no assunto mas justo agora tenho um trabalho pra entregar e falta pouco agora.

Tenho um formulario que guarda as informações no acess, já montei e esta funcionando a parte de inserção de dados, acontece que a cada novo usuario que preenchesse o formulario teria que gerar um numero de inscrição que alias ja esta com o proprio ID em autonumeração e gostaria que este numero de inscrição aparecesse em uma nova tela. Não estou conseguindo preciso saber qual o código correto.

Se alguem puder me ajudar agradeço.

Formulario Com Cadastramento De Senha

05/07/2005, 10:20

Não entendo quase nada de asp e bco, mas preciso de um auxilio muito grande para fazer um formulário onde os usuarios se cadastrem, gere uma senha no bco de dados e retorne este numero ao usuario.

Utilizei este exemplo abaixo mas não funcionou, podem me ajudar.

Index.asp:
<!--#include file="connect.asp"-->

<%
response.buffer = true
'decleration
dim useraction
dim conn,dsn,rs,sql
'if the user submit the form
useraction = request("action")
select case useraction
case "login"
user = request.form("user")
pass = request.form("pass")
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT * FROM users where pass='"& pass &"' and user='"& user & "'"
rs.open sql,conn
if rs.eof and rs.bof then
response.write "<center>No such password! Please Register</center>"
else
session("auth") = pass
response.redirect "index1.asp"
end if
end select
%>
<html>
<head>
<script>
function valid(){
var user = document.theform.user.value
var userLength = document.theform.user.value.length
var pass = document.theform.pass.value
var passLength = document.theform.pass.value.length
if(userLength<4 || user==""){
alert("User fieled should contain 6-10 chars");
document.theform.user.focus()
return false
}
if(passLength!=6 || pass==""){
alert("Password fieled should contain 6 chars");
document.theform.pass.focus()
return false
}
}



</script>

<title>Untitled</title>
</head>

<body><br><br><br><br>
<form name="theform" action="index.asp?action=login" method="post" onsubmit="return valid()">
<table align=center bgcolor="Silver">
<tr><td>UserName</td><td><input type="text" name="user" size=15 maxlength=10>(4-10 chars)</td></tr>
<tr><td>PassWord</td><td><input type="text" name="pass" size=15 maxlength=10>(6 chars)</td></tr>
<tr><td colspan=2 align=center><input type="submit" value="login"></td></tr>
<tr><td colspan=2 align=center>First time?Please <a href="reg.asp">register</a></td></tr>
</form>

</body>
</html>


reg.asp:
<!--#include file="connect.asp"-->
<%
response.buffer = true
Function rndit()'generate password from randomize number
Dim RndTemp
Randomize
RndTemp = Rnd * 1000000000
RndTemp= Int(RndTemp)
RndTemp= left(RndTemp, 6)
rndit = RndTemp
End Function
'decleration
dim useraction,conn,rs,sql,sql1,user,pass

useraction = request("action")
select case useraction
case "login"
'generate the function
PasswordTemp = rndit()
'collect data from form
user = request.form("user")
email = request.form("email")
'response.write user & email & rndit'***debug
'database objects
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'sql query
sql = "select pass from users where pass='"&PasswordTemp&"' or user='"& user & "'"
Conn.Open dsn
rs.open sql,conn
if rs.eof and rs.bof then
sql1 = "insert into users (user,pass,email) values('"& user & "',"& PasswordTemp & ", '"& email & "')"
conn.execute(sql1)
response.write "<script>alert('you registered succefully');location.href='index.asp';</script>"
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
body = "Goto http://www.myscript.co.il/index.asp " & vbCrLf
body = body & " Your username is: " & user & vbCrLf
body = body & " Your password is: " & PasswordTemp & vbCrLf

objCDO.To = email
objCDO.From = "eladr@tip.co.il"
objCDO.Subject = "Welcome to our member section!"
objCDO.Body = body
objCDO.Send
else
response.write "<script>alert('username already excist');</script>"

end if

rs.close
set rs = nothing
conn.close
set conn = nothing

end select
%>


<html>
<head>
<script>
function valid(){
var user = document.theform.user.value
var userLength = document.theform.user.value.length
if(userLength<4 || user==""){
alert("User fieled should contain 4-10 chars");
document.theform.user.focus()
return false
}
var email=document.theform.email.value;
if (email==""){
alert("Please type your Email")
document.theform.email.focus()
return false
}
if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){ alert("No valid e-mail address!");
document.theform.email.focus()
return false
}
}
</script>

<title>Untitled</title>
</head>

<body><br><br><br><br>
<form name="theform" action="reg.asp?action=login" method="post" onsubmit="return valid()">
<table align=center bgcolor="Silver">
<tr><td>Desired UserName</td><td><input type="text" name="user" size=15 maxlength=10>(4-10 chars)</td></tr>
<tr><td>Email(The password wil be sent to your email!)</td><td><input type="text" name="email" size=20 maxlength=30></td></tr>
<tr><td colspan=2 align=center><input type="submit" value="login"></td></tr>

</form>

</body>
</html>

Da a mensg.de erro:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x984 Thread 0x884 DBC 0x23c0064 Jet' do Registro.
/Teste/reg.asp, line 29

Se puderem me ajudar agradeço.

Icones

21/06/2005, 08:57

Preciso criar icones para um cd autorun feito em Flash, no Photoshop é possível mesmo, pois não estou conseguindo, já salvei em ico. mas continua muito pesado e não funciona.

IPB Skin By Virteq