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.
Conn.Open dsn = Άνοιξε σύνδεση με το dsn
Ποιο είναι και που είναι το dsn
Μάλλον θα πρέπει να ενημερώσεις την εταιρεία που φιλοξενεί το site σου για να δημιουργήσουν ένα dsn στην database του script με το όνομα που εσύ θέλεις και να προσθέσεις το dsn όπου σου το ζητάει
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
post εδώ το connect.asp
Εκεί είναι το conection.
Hi kai eyxaristw pali
Ayto einai to connect.asp
<%
dsn = "DBQ=" & Server.Mappath("db/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
Τελίκά αλλού είναι το λάθος.
Δές εδώ: http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=160
tip: Gr και διεθνή domain names με δωρεάν web hosting * F5 για νέο tip