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