The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
Task3-Step2.asp
Posted by: Dan | April 21, 2010 @ 4:25pm
ASP Code
[
Download
]
<html> <head> <link rel=stylesheet type='text/css' href='MyStyle.css'> <title>Assignment Twelve</title> </head> <!--#include file="MyInfo.asp" --> <body> <h2>Dan Neumann's Task 3</h2> <% ' Fetch user input from previous page SelectedSemester = Request.Form("Semester") ShowDiscipline = Request.Form("ShowDiscipline") ShowRank = Request.Form("ShowRank") ShowCID = Request.Form("ShowCID") ShowMeeting = Request.Form("ShowMeeting") ' Open connection to back-end SQL Server database Set conn=Server.CreateObject("ADODB.Connection") conn.CommandTimeout=15 conn.ConnectionTimeout=15 conn.Open BackEnd ' Open recordset sql="SELECT TOP (100) PERCENT F.FirstName + ' ' + F.LastName AS Name, F.FID, F.Dept, F.Rank, C.Course, C.CID, C.MeetingTime FROM dbo.tblFaculty AS F INNER JOIN dbo.tblCourse AS C ON F.FID = C.Instructor WHERE (C.Semester = '" & SelectedSemester & "') ORDER BY F.LastName, F.FirstName, F.FID, C.CID" Set rst=Server.CreateObject("ADODB.Recordset") rst.Open sql, conn ' Display data (as table/grid) Response.Write("<h3>Faculty</h3>") Response.Write("<table border=1>") Response.Write("<tr>") Response.Write("<th align='left'>Name</th>") Response.Write("<th align='center'>FID</th>") If ShowDiscipline = "Yes" Then Response.Write("<th align='center'>Discipline</th>") End If If ShowRank = "Yes" Then Response.Write("<th align='left'>Rank</th>") End If Response.Write("<th align='left'>Course</th>") If ShowCID = "Yes" Then Response.Write("<th align='left'>CID</th>") End If If ShowMeeting = "Yes" Then Response.Write("<th align='left'>Meeting</th>") End If Response.Write("</tr>") LastFID = 0 Do Until rst.EOF Response.Write("<tr>") If LastFID = rst("FID") Then Response.Write("<td align='left'></td>") 'Name Response.Write("<td align='center'></td>") 'FID If ShowDiscipline = "Yes" Then Response.Write("<td align='center'></td>") End If 'Dept If ShowRank = "Yes" Then Response.Write("<td align='left'></td>") End If ' Rank Else Response.Write("<td align='left'>" & rst("Name") & "</td>") Response.Write("<td align='center'>" & rst("FID") & "</td>") If ShowDiscipline = "Yes" Then Response.Write("<td align='center'>" & rst("Dept") & "</td>") End If If ShowRank = "Yes" Then Response.Write("<td align='left'>" & rst("Rank") & "</td>") End If End If LastFID = rst("FID") Response.Write("<td align='left'>" & rst("Course") & "</td>") If ShowCID = "Yes" Then Response.Write("<td align='center'>" & rst("CID") & "</td>") End If If ShowMeeting = "Yes" Then Response.Write("<td align='left'>" & rst("MeetingTime") & "</td>") End If Response.Write("</tr>") rst.MoveNext Loop Response.Write("</table>") ' Close recordset rst.Close Set rst=Nothing ' Close database connection conn.Close Set conn=Nothing %> </body> </html>
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.39 / 8
49 Votes
http://codebin.yi.org/601
page generated in 0.01 seconds