سلام آقا من وقتي ديتا بيس رو داخل host ميريزم و ميخوام اونو بخونم به اين پيغام بر ميخورم
اين هم محتويات فايل asp
این هم لینکش
in ham linkesh http://www.sepidphosphat.com/nima/login.asp
کد:
Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x9d8 Thread 0x4b8 DBC 0xfbecbbc Jet'.اين هم محتويات فايل asp
کد:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<html>
<body >
<%
b1=request.form("a1")
b2=request.form("a2")
b3=request.form("a3")
b4=request.form("a4")
b5=request.form("a5")
b6=request.form("a6")
b7=request.form("a7")
b8=request.form("a8")
b9=request.form("a9")
b10=request.form("a10")
b11=request.form("a11")
b12=request.form("a12")
b13=request.form("a13")
b14=request.form("a14")
b15=request.form("a15")
b16=request.form("a16")
b17=request.form("a17")
'if b1 ="" then
'Response.redirect "Error.asp?E=b1"
'err=true
'end if
'if b6 ="" then
'Response.redirect "Error.asp?E=b6"
'err=true
'end if
'if b7 ="" then
'Response.redirect "Error.asp?E=b7"
'err=true
'end if
'if b8 ="" then
'Response.redirect "Error.asp?E=b8"
'err=true
'end if
'
'if b14 ="" then
'Response.redirect "Error.asp?E=b14"
'err=true
'end if
'if b16 ="" then
'Response.redirect "Error.asp?E=b16"
'err=true
'end if
'if b17 ="" then
'Response.redirect "Error.asp?E=b17"
'err=true
''end if
if not err then
%>
<%
dbfile=Server.MapPath("DATA.MDB")
dim objconn
set objconn = server.createobject("ADODB.connection")
objconn.connectionstring= "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=&dbfile"
objconn.open
dim objRS
set objRS=server.createobject ("ADODB.Recordset")
objRS.open "user" ,objconn, , , 2
do while not objRS.EOF
response.write (nima)
response.write objrs("username")
if objrs("a1")="nima" then
response.write ("nima")
end if
objrs.movenext
loop
objrs.close
set objrs=nothing
objconn.close
end if
%>این هم لینکش
in ham linkesh http://www.sepidphosphat.com/nima/login.asp
