123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
Display Table, Edit Record, Update Record

--------------------------------------------------------------------------------



<%
Response.Buffer=True
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "private"
%>
<html><head>
<title>authorshow.asp</title>
<meta http-equiv="pragma" content="no-cache">
</head><body bgcolor="#FFFFFF">
<%
myDSN="DSN=Student;uid=student;pwd=magic"
mySQL="select * from authors where AU_ID<100 order by author"
IDfield="AU_ID"
scriptresponder="authoredit.asp"

Set conntemp=Server.CreateObject("adodb.connection")
conntemp.open myDSN
Set rstemp=conntemp.execute(mySQL)
howmanyfields=rstemp.fields.count -1
%>
<table border="1">
<tr>
<td valign="top">---</td>
<% 'Put Headings On The Table of Field Names
For i=0 To howmanyfields %>
<td><b><%=rstemp(i).name %></b></td>
<% Next %>
</tr>
<% ' Now lets grab all the records
Do While Not rstemp.eof %>
<tr><td valign="top">
<%my_link=scriptresponder & "?which=" & rstemp(idfield)%>
<a HREF="<%=my_link%>">Edit</a></td>
<% For i = 0 To howmanyfields%>
<td valign="top"><%=rstemp(i)%></td>
<% Next %>
</tr>
<%
rstemp.movenext
Loop

rstemp.close
Set rstemp=Nothing
conntemp.close
Set conntemp=Nothing
%>
</table></body></html>

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG