Forum

My login - Από {pan}

Geia kai xara sas. Eimai entelws asxetos me programmatismo kai asp kai dysthxws den exw kapoion gnwsto na me voh8hsei.
Xreiazomai gia to site mou ena script pou na mporei enas xrhsths na kanei register kai katopin login. Ayto poy brhka stis selides sas me ta asp downloads to mylogin me kalyptei nomizw kala.
Phra to script apo ekeino site, to mylogin loipon kai opws lete xreiazetai mono na allaksw to server mou kai auto 8a doulepsei.
Mporeite na mou peite sas parakalw se poio kommati tou script vazw to server mou (ennoei ip?).
Anevazontas to vevaia sto server aryumisto pernw error
ADODB.Connection.1 error '800a0bb9'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/my/reg.asp, line 29

H line 29 einai auth
Conn.Open dsn

Lypamai gia thn megalh asxetosynh mou kai euxaristw ek twn proterwn gia th voh8eia sas.

P.S. Ypopsin ;oti douleuw me front page html aples selidoules kai auto 8a to steilw aplws se mia asp selida me ena link se popup window.

Απάντηση από:Alex

Conn.Open dsn = Άνοιξε σύνδεση με το dsn
Ποιο είναι και που είναι το dsn
Μάλλον θα πρέπει να ενημερώσεις την εταιρεία που φιλοξενεί το site σου για να δημιουργήσουν ένα dsn στην database του script με το όνομα που εσύ θέλεις και να προσθέσεις το dsn όπου σου το ζητάει

Απάντηση από:pan

Euxaristw poly gia thn apanthsh. Dystyxws to ena error meta to allo mou dinei. Nomizw einai kati aplo alla dystyxws den mporw na vrw akrh.
Kanw paste to arxeio mhpws telika mou vreis esy mia lysh

<!--#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
%>


kai apo thn etaireia mou eipan oti einai enable h database kai to DSN
ODBC database access is currently enabled

Please help me
Euxaristw poly

Απάντηση από:Alex

post εδώ το connect.asp

Εκεί είναι το conection.

Απάντηση από:pan

Hi kai eyxaristw pali
Ayto einai to connect.asp

<%

dsn = "DBQ=" & Server.Mappath("db/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

%>

Απάντηση από:Alex

Τελίκά αλλού είναι το λάθος.
Δές εδώ: http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=160