Index File

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>

<body>
<form method="post" >
  <input name="companynumber" type="text" />
<input type="submit"  value="Submit" /></form>
<%

Dim companynumber

'Getting information from submitted form
companynumber = request.form("companynumber")

Dim objconn,objRS,strSQL
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db.mdb")
objconn.Open

Set objRs = Server.CreateObject("ADODB.Recordset")
Set rs = Server.CreateObject("ADODB.Recordset")
'check if value blank
if companynumber = "" then
        response.write "Please enter your Company Number"
    else
SQLQuery = "SELECT ID FROM Company WHERE CompanyNumber = "&companynumber&" "
rs.Open SQLQuery, objconn
'check if wrong value
    if rs.BOF and rs.EOF then
        response.write "incorrect company number , please try again"
    else


strSQL = "SELECT * FROM Project WHERE CompanyID = "&rs("ID")&""


objRS.Open strSQL, objconn

Do While Not objRS.EOF
response.write "<a href='login.asp?project=" & objRs("ID") & "'><b>" & objRs("ProjectName") & "</a><br>"


objRS.MoveNext
Loop

objRs.Close
objconn.Close
end if
  end if%>
</body>
</html>