what's the problem in asp connection with access?

H

Hassan

New member
<%

Dim con
set con=Server.CreateObject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open "C:\inetpub\wwwroot\emp.mdb"


Dim rst
Set rst=Server.CreateObject("ADODB.recordset")
rst.Open "Select * from emp", con


rst.CursorLocation=3
rst.CursorType=1
rst.LockType=3


strSQL="select * from emp"
rst.Open strSQL, con
response.write "<table> border=1"
response.write "<tr><td>ID</td><td>NAME</td><td>Salary</td><td></td></tr>"
do while not rst.eof
response.write "<tr>"
reponse.write "<td>" & rst("eid") & "</td>"
reponse.write "<td>" & rst("ename") & "</td>"
reponse.write "<td>" & rst("esalary") & "</td>"
reponse.write "<td> & <a href=del.asp?eid=" & rst("eid") & "> del</a> & </td>"
reponse.write "<td> & <a href=upd.asp?eid=" & rst("eid") & "> edit</a> & </td>"
rst.movenext
response.write "</tr>"
loop
response.write "</table>"

%>
<a href="new.asp">Add new employee</a>
 
Back
Top