NEED HELP!

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

NEED HELP!

Logged in as: Guest

arrSession:exec spGetSession 2,3,58808

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> NEED HELP!
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

NEED HELP! - 4/4/2008 1:56:55 AM

Helder

Posts: 0
Score: 0
Joined: 4/4/2008
Status: offline

<%
'Dimension the variables for the database and Recordset
  Dim rs, conn, sql

'MS OBDC connection
'An Object that tells the server to create a connection to a database. 
  Set conn = Server.CreateObject("ADODB.Connection")

'This opens the connection using the ODBC connection to the database flapper
  conn.Open "int213"

'assign SQL statement to a variable that will search for all data in the passangers Table, created in Access
  sql = "SELECT * FROM passengers"
  
 'Establish the RECORDSET object which will hold a copy of the retrieved data in memory
      Set rs = Server.CreateObject("ADODB.RecordSet")

'Open the recordset using the Server connection
      rs.Open sql, conn

'Initiate a loop which will output the contents of the Recordset into an HTML table.
 'The loop will continue until the End Of File (last record) is reached in the Recordset
 
 
 %>

<html>
<head>
<title>Administration</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF">
<h1 align="center"><b><font color="#0000CC">Flapper Airlines</font></b> </h1>
<h2 align="center">Administration</h2>
<form method="post" action="">
 <p>Please select the Report Required</p>
 <p> 
 <select name="select">
   <option value="Flight">Passenger List by Flight</option>
   <option value="Revenue">Total Revenue</option>
   <option value="Accounts">Customer Accounts</option>
 </select>
 </p>
 <p>
 <input type="submit" name="Submit" value="Submit">
 </p>
</form>
<a href="file:///D|/login.asp">Return to Login page</a> 
<HTML>
<BODY>
<H1>Passenger List</H1>
<TABLE BORDER=1>
 <TR>
 <TD><B>Passenger Account</B></TD>
 <TD><B>Passenger Password</B></TD>
 <TD><B>First Name</B></TD>
 <TD><B>Last Name</B></TD>
 <TD><B>Passenger Address</B></TD>
 <TD><B>Passenger City</B></TD>
 <TD><B>Passenger Postal Code</B></TD>
 <TD><B>Passenger Phone Number</B></TD>
 <TD><B>Passenger Passport</B></TD>
 
 </TR>
<a href="file:///D|/login.asp"></a>
<%
 
     Do while Not rs.EOF
     'Write the output, one line at a time. Note the HTML used inside the script
     'and the 'rs' variable used with the names in the data table.
     Response.write "<TR><TD>" & rs("pass_code") & "</TD>"
     Response.write "<TD>" & rs("pass_password") & "</TD>"
     Response.write "<TD>" & rs("pass_fname") & "</TD>"
     Response.write "<TD>" & rs("pass_lname") & "</TD>"
     Response.write "<TD>" & rs("pass_address") & "</TD>"
     Response.write "<TD>" & rs("pass_city") & "</TD>"
     Response.write "<TD>" & rs("pass_postal") & "</TD>"
     Response.write "<TD>" & rs("pass_phone") & "</TD>"
     Response.write "<TD>" & rs("pass_passport") & "</TD></TR>"
     'Move to the next record in the Recordset
     rs.MoveNext
 Loop

'Close the connection to Server and Recordset because you don't need the information anymore
'and to free up memory
     rs.close
     set rs = nothing
     conn.close
     set conn = nothing

%>
<a href="file:///D|/login.asp"></a>
</body>
</html>

on the page the visitor has to choose one of the options and i want to do an if statement so that when they choose one of the options to go to a seperate page and display the information. by the way it uses a database

< Message edited by Helder -- 4/4/2008 2:01:31 AM >

Revisions: 2 | Post #: 1

RE: NEED HELP! - 4/5/2008 12:24:48 AM

DiGiTAL.SkReAM

Posts: 1056
Score: 6
Joined: 9/6/2005
From: Florida, USA
Status: offline

Why didn't you post in the correct forum? This forum is clearly marked for finished scripts/code ONLY.

_____________________________

"There's the one man who learns by reading, the two men that learn by watching, and the rest of us have to pee on the electric fence for ourselves." - Roy Rogers

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

(in reply to Helder)