[coachdan32]

I am having a problem with a form not posting the values from my dropdowns to the confirmation page. There are many dropdowns on the page, but to keep the code as small as possible I will post a small portion that gives an example of how I am doing it.

The larger problem is that the form is suppose to pass the values in the form to the confirmation page (and thus to the DB). Everything goes through without error messages, but the UCode values do not show up in the DB - everything else does. That's why I decided to check to see if their values were getting to the confirmation page. The response.write says there is no value present.

I did the following Response.Write to check for the value on confirmation page:

<%
Response.Write "The value in UCodes1 is: " & request.form("UCodes1")
Response.End
%>

No value is returned, only the text. On the form some of the values are passed to the db from the confirmation page, just not any of the UCode values.


<form ACTION="TAUCALCP.asp?Yr=<%=varYrA%>" METHOD="POST">
<input type="hidden" name="MonMonth" value="<%=Request("Month")%>"><input type="hidden"
name="YrYear" value="<%=varYear%>"><hr>
<hr>
<p><font size="6">Trainer Attendance and Utilization Input Page</font></p>
<hr>
<hr>
<%


varMonth = Request.Form("Month")
varYear = varYrA


If (varMonth=" ") Then
Response.Write "<H2>ERRORS PLEASE CORRECT</H2>"
Response.Write "Please Enter: <H2>'MONTH'</H2> <BR><BR>"
Response.Write "Use your Back Button to correct field or: <BR><BR>"
Response.Write "<A HREF='TAUCAL.asp'>Click Here to Clear and Correct all fields</A>"
Response.End
End If


varYear = Right(varYear,2)
varMonYr = (varMonth & "/" & varYear)


'Pull data from DBase table for building tables on Form
'

SQLCal = " SELECT ZZCalendar.MonYr, ZZCalendar.DateSt, ZZCalendar.DaySt, "
SQLCal = SQLCal & " ZZCalendar.MonSt, ZZCalendar.PosSt, ZZCalendar.DateEnd, "
SQLCal = SQLCal & " ZZCalendar.DayEnd, ZZCalendar.PosEnd, ZZCalendar.DInM, "
SQLCal = SQLCal & " ZZCalendar.DInMDSt, ZZCalendar.WksInM, ZZCalendar.[445] "

SQLCal = SQLCal & " FROM ZZCalendar "

SQLCal = SQLCal & " WHERE ZZCalendar.MonYr LIKE '%"& varMonYr &"%'"' "
'
SQLCal = SQLCal & " ORDER BY ZZCalendar.DateSt ASC "


Set rsCal=Conn.Execute(SQLCal)

varDateSt = rsCal("DateSt")
varDaySt = rsCal("DaySt")
varMonSt = rsCal("MonSt")
varPosSt = rsCal("PosSt")
varDateEnd = rsCal("DateEnd")
varDayEnd = rsCal("DayEnd")
varPosEnd = rsCal("PosEnd")
varDInM = rsCal("DInM")
varDInMDSt = rsCal("DInMDSt")
varWksInM = rsCal("WksInM")
var445 = rsCal("445")

rsCal.Close
Set rsCal=nothing


'Header for Page Month and Year
'

varMonMonth = Month(varMonSt)
varYrYear = Year(varMonSt)

varMonthH = MonthName(varMonth)
varMonthDS = MonthName(Month(varDateSt))

varYearH = Year(varMonSt)

Response.Write ("<H3>For Month/Year: " & varMonthH & ", " & varYearH & "</H3>")



%>
<table cellSpacing="0" cellPadding="0" width="10%" align="left" border="1">
<tr>
<td noWrap bgcolor="#008080"><div align="center"><center><p><font
style="BACKGROUND-COLOR: #008080" color="white">Trainer Name</font></td>
</tr>
<tr align="center">
<td noWrap bgcolor="#808080" align="Center"><select NAME="TName" SIZE="1" id="TName"
tabindex="1">
<option Selected value=" "> </option>
<% Set rsTNPD=Conn.Execute(" SELECT DISTINCT Trainers.TName FROM Trainers ORDER BY TName ASC ")

MArTNPD = rsTNPD.GetRows()

rsTNPD.Close
Set rsTNPD=Nothing

For x = 0 to Ubound(MArTNPD,2)
%> <option VALUE="<%Response.Write MArTNPD(0,x)%>"><%Response.Write MArTNPD(0,x)%></option>
<% Next %> </select> </td>
</tr>
</table>
<div align="center"><center><p><br>
<br>
<br>
<br>
</p>
</center></div><div align="center"><center><h3>Attendance & Utilization Form</h3>
</center></div><div align="center"><center><table cellSpacing="1" cellPadding="1"
width="90%" align="center" border="1">
<tr>
<th noWrap bgcolor="#008080"><font Color="White">Sunday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Monday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Tuesday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Wednesday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Thursday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Friday</font></th>
<th noWrap bgcolor="#008080"><font Color="White">Saturday</font></th>
<th height="5"></th>
<%


tab = 2


%>
</tr>
<tr>
<th noWrap bgcolor="#008080"><font Color="White"><%
Select Case varMonth
Case 1
Response.Write " "
Case 2
Response.Write "February 1"
Case 3
Response.Write " "
Case 4
Response.Write " "
Case 5
Response.Write " "
Case 6
Response.Write " "
Case 7
Response.Write " "
Case 8
Response.Write "August 1"
Case 9
Response.Write " "
Case 10
Response.Write " "
Case 11
Response.Write " "
Case 12
Response.Write " "
End Select%></font></th>
</tr>
<tr>
<td noWrap bgcolor="#808080" align="center"><select NAME="UCodes1" SIZE="1" id="UCodes1"
tab index="1">
<option Selected value=" "> </option>
<%
Set rsUCAbPD=Conn.Execute(" SELECT DISTINCT ZZAttdCode.AttdCodeAb FROM ZZAttdCode ORDER BY AttdCodeAb ASC ")

MArUCAbPD = rsUCAbPD.GetRows()

rsUCAbPD.Close
Set rsUCAbPD=Nothing

For x = 0 to Ubound(MArUCAbPD,2)
%> <option VALUE="<%Response.Write MArUCAbPD(0,x)%>"><%Response.Write MArUCAbPD(0,x)%></option>
<%
Next
%> </select> </td>
</tr>
<tr>
<td align="left" bgcolor="#C0C0C0" colspan="2">Submit Data: <input id="submit1"
type="submit" value="Submit" name="submit1"> </td>
</tr>
<tr>
<td align="left" bgcolor="#C0C0C0" colspan="2">Reset Form: <input id="reset1"
type="reset" value="Reset" name="reset1"> </td>
</tr>
</table>
</center></div><div align="center"><center><table cellSpacing="1" cellPadding="1"
width="90%" align="center" border="1">
<tr>
<td><b><u>AD</u></b>-Adopt a Child<b><u>CB</u></b>-Out of the Unit on Company Business <b><u>CBT</u></b>-Out
of the Unit on Company Business,Trained Full Day <b><u>CBT.5</u></b>-Out of the Unit on
Company Business,Trained 1/2 Day <b><u>CBX.5</u></b>-Out of the Unit on Company
Business,Worked 1/2 Day <b><u>D</u></b>-Designated Day Off<b><u>F</u></b>-Funeral <b><u>FMLA</u></b>-Family
Medical Leave Act <b><u>H</u></b>-Legal Holiday <b><u>IG</u></b>-Paid Illness<b><u>IGT.5</u></b>-Trained
1/2 Day,Illness 1/2Day <b><u>IGX.5</u></b>-Worked 1/2 Day, Illness 1/2 Day, No Training <b><u>IW</u></b>-Inclement
Weather<b><u>J</u></b>-Jury Duty <b><u>NA</u></b>-Used Prior to Start Date or after Last
Day in Training to Complete Month <b><u>NCNS</u></b>-No Call, No Show <b><u>PH</u></b>-Personal
Holiday<b><u>STD</u></b>-ShortTerm Disability <b><u>Susp</u></b>-Suspended <b><u>T</u></b>-Trained
Full Day, Worked Full Day <b><u>T.5</u></b>-Trained 1/2 Day, Worked Full Day<b><u>UL</u></b>-Unpaid
LOA <b><u>V</u></b>-Vacation<b><u>V.5</u></b>-1/2 Day Vacation, No Training, No Work <b><u>VT.5</u></b>-1/2
Day Vacation,1/2 Day Training<b><u>WC</u></b>-Workers Comp <b><u>X</u></b>-Full Day
Worked, No Training<b><u>X.5</u></b>-Worked 1/2Day, No Training <b><u>XT.5</u></b>-Worked
1/2 Day,Trained 1/2 Day<b><u>XV.5</u></b>-1/2Day Vacation ,Worked 1/2Day, No Training </td>
</tr>
</table>
</center></div><div align="center"><center><p><br>
<br>
</p>
</center></div>
</form>
</body>
<%

Conn.Close
Set Conn=Nothing

%>

[Gibble]

make sure the capitalization of 'UCodes1' or whatever variables you are passing is the same both ways

also, use this to see what's being passed

strLineBreak = "<br>" & vbCrLf

'Display the Request.Form collection
  Response.Write("DISPLAYING REQUEST.FORM COLLECTION" & strLineBreak)
  For Each sItem In Request.Form
    Response.Write(sItem)
    Response.Write(" - [" & Request.Form(sItem) & "]" & strLineBreak)
  Next
  
  
  'Display the Request.QueryString collection
  Response.Write(strLineBreak & strLineBreak)
  Response.Write("DISPLAYING REQUEST.QUERYSTRING COLLECTION" & strLineBreak)
  For Each sItem In Request.QueryString
    Response.Write(sItem)
    Response.Write(" - [" & Request.QueryString(sItem) & "]" & strLineBreak)
  Next

[coachdan32]

Gibble,

Capitalization is the same everywhere as far as I can see. I am going to try your response.write method tomorrow morning. That is a pretty smart way to show all values. Did you come up with that yourself or did you get it from someone else?

[Gibble]

That specific one I just copied because I didn't feel like typing it out, but I have been doing loops to check arrays and such like that for ages.

[coachdan32]

Your code helped me determine that the values are being passed to the confirmation page - the one I was checking didn't have a value in it because the numbering sequence was out of normal order. The problem is with the confirmation page not posting the values to the DB. I am attaching a copy of the file, there is a lot of commenting on it where I made adjustments to accomodate 42 UCodes instead of 35. The code worked before I made the changes (with 35 UCodes), so I know it is something I changed that is not working. It is puzzling because there are no error messages - just no values get passed.

[Gibble]

First I see this

you set
UU = Request.Form("UCodes").Count
then later you set
UCount = UUCodes
but UUCodes hasn't been set before...so Ucount isn't technically set yet...and it doesn't appear you use either of those variables so I don't think you need that line.

You can probably safely change
Dim UCodes(42)
to
Dim UCodes(UU)
so that it is always set to the right size and you don't need to alter the array size

[coachdan32]

As I have mentioned before I am new to this, so forgive me for asking a basic question. On the Count function, will it return the count of all UCodes or only the ones that have something selected (non-nulls)? The reason I ask is because some of them will remain null because a month does not always have 7 days in the first or last week (some months start on a Wednesday). So, UCodes42 may have a value, but UCodes1 may not. I am not sure how to handle this in the array.

On the UUCodes problem, I am not sure why another variable needs to be used there. Why couldn't I just say:

UCount = UU

I am sure the programmer before me had a reason, but it is not obvious to me as a beginner. It just seems like there are multiple variables all storing the same value to me.

[Gibble]

I'm not sure, maybe check the value of .count and compare it to what you think it should be...

[coachdan32]

Gibble,

I tried the Dim UCodes(UU) that you suggested and get the following error:

Microsoft VBScript compilation error '800a0402'
Expected integer constant

Dim UCodes(UU)
-----------------^


I assume that means it is looking for a number in the parameter? Is there any way around it or another suggestion? I tried a Google search, but was unable to turnup anything helpful.

[Gibble]

Hmm...stupid ASP *grr*

I'm not 100% sure, but try not diming the array and see what happens, just remark out that line all together

I think asp will allow variable length arrays if you don't define the size ...

[coachdan32]

Everything I've seen in the code I deal with has constant lengths, but I am not sure if that is because it has to or not. I will give it a try.

[coachdan32]

I got no error message when I removed the Dim statement, but still no values in the DB. I have a gut feeling that the problem lies in this section of code:

uRS.AddNew

uRS.Fields("TName") = TName
uRS.Fields("LocCity") = varLocCity
uRS.Fields("TId") = varTId
uRS.Fields("Month") = varMonth
uRS.Fields("Year") = varYear

'For i = 1 to 35
'For i = 1 to 42
For i = 1 to UU
uRS.Fields("U" & i) = UCodes(i)
Next
uRS.Update
uRS.Close
Set uRS=nothing

The fields in the DB are named U1, U2, U3 ... to U42. The dropdown boxes on the form are named UCodes1, UCodes2, UCodes3 ... to UCodes42. The above code seems to accomplish the same naming sequences. Could there be a problem there that I am not seeing?

[coachdan32]

Gibble,

I am considering going with a less effective way of doing it to try to alleviate the problem. I can't try this until Monday morning early before users start hitting the system. Do you see anything in the following code that shouldn't work? I don't have a test server to test changes on, but I don't see why hardcoding all the UCodes like this wouldn't work, do you?

<%@language="vbscript"%>
<%
varBusName = Session("varRedirectBus")
%>
<!--#include file="global.asa"-->
<!--#include file="include/Connect.asp"-->
<html>

<head>
<title>Trainer Attendance and Utilization Confirmation Page</title>
</head>

<body background="WB00760_.gif">

<hr>

<hr>

<p><font size="5">Trainer Attendance and Utilization Confirmation Page</font></p>

<hr>

<hr>
<!--#include file="include/menu.asp"-->
<%
TName = Request.Form("TName")
UU = Request.Form("UCodes").Count

If (TName=" ") Then
Response.Write "<H2>ERRORS PLEASE CORRECT</H2>"
Response.Write "Please Enter: <H2>'TRAINER NAME'</H2> <BR><BR>"
Response.Write "Use your Back Button to correct field - Use reset to clear all fields."
Response.End
End If


'********New Code To Test To Replace Below Code******************
'

'UCount = UUCodes
UCount = UU


'********New Code Being Commented Out To Test Correction*********
'
'Select Case UUCodes
'Case 31
'UCount = 31
'Case 30
'UCount = 30
'Case 29
'UCount = 29
'Case 28
'UCount = 28
'End Select

'*****Old Code before Calendar year**********
'
'if UUCodes = 35 then
'UCount = 35
'else
'UCount = 28
'end if

'*****Old Code before Calendar year - need to allow blank entries******
'
'For i = 1 to UCount
'If(Request.Form("UCodes")(i) = " " ) Then
'Response.Write "<H2>ERRORS PLEASE CORRECT</H2>"
'Response.Write "Please Enter: <H2>'Week 1 Day 1 Data'</H2> <BR><BR>"
'Response.Write "Use your Back Button to correct field - Use reset to clear all fields."
'Response.End
'End If
'Next

SQLFT = " SELECT Trainers.TId, Trainers.LocCity, Trainers.TName "
SQLFT = SQLFT & " FROM Trainers "
SQLFT = SQLFT & " WHERE Trainers.TName LIKE '%" & TName & "%'"' "

Set rsFT = Conn.Execute(SQLFT)

varTId = CInt(rsFT("TId").Value)
varLocCity = rsFT("LocCity").Value
rsFT.Close
Set rsFT=Nothing

'Pull data from DBase table for building tables on Form

varMonth = Request.Form("MonMonth")
varYear = Request.Form("YrYear")



'Dim UCodes(35)
'Dim UCodes(42)
'Dim UCodes(UU)
'Dim C


'For C = 1 to UU
'UCodes(C) = Request.Form("UCodes")(C)
'Next
varUCodes1 = Request.Form("UCodes1")
varUCodes2 = Request.Form("UCodes2")
varUCodes3 = Request.Form("UCodes3")
varUCodes4 = Request.Form("UCodes4")
varUCodes5 = Request.Form("UCodes5")
varUCodes6 = Request.Form("UCodes6")
varUCodes7 = Request.Form("UCodes7")
varUCodes8 = Request.Form("UCodes8")
varUCodes9 = Request.Form("UCodes9")
varUCodes10 = Request.Form("UCodes10")
varUCodes11 = Request.Form("UCodes11")
varUCodes12 = Request.Form("UCodes12")
varUCodes13 = Request.Form("UCodes13")
varUCodes14 = Request.Form("UCodes14")
varUCodes15 = Request.Form("UCodes15")
varUCodes16 = Request.Form("UCodes16")
varUCodes17 = Request.Form("UCodes17")
varUCodes18 = Request.Form("UCodes18")
varUCodes19 = Request.Form("UCodes19")
varUCodes20 = Request.Form("UCodes20")
varUCodes21 = Request.Form("UCodes21")
varUCodes22 = Request.Form("UCodes22")
varUCodes23 = Request.Form("UCodes23")
varUCodes24 = Request.Form("UCodes24")
varUCodes25 = Request.Form("UCodes25")
varUCodes26 = Request.Form("UCodes26")
varUCodes27 = Request.Form("UCodes27")
varUCodes28 = Request.Form("UCodes28")
varUCodes29 = Request.Form("UCodes29")
varUCodes30 = Request.Form("UCodes30")
varUCodes31 = Request.Form("UCodes31")
varUCodes32 = Request.Form("UCodes32")
varUCodes33 = Request.Form("UCodes33")
varUCodes34 = Request.Form("UCodes34")
varUCodes35 = Request.Form("UCodes35")
varUCodes36 = Request.Form("UCodes36")
varUCodes37 = Request.Form("UCodes37")
varUCodes38 = Request.Form("UCodes38")
varUCodes39 = Request.Form("UCodes39")
varUCodes40 = Request.Form("UCodes40")
varUCodes41 = Request.Form("UCodes41")
varUCodes42 = Request.Form("UCodes42")




'*************************** LOAD TABLE ******************** '


lsYear = Right(varYrA, 2)

if varBusName = "Citi" Then
varDB = "Training_Delivery_Data" & lsYear & ".mdb"
else
varDB = "Training_Delivery_Data" & lsYear & "Sears.mdb"
end if

Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(varDB) & ";"
SQLAdd = " SELECT * FROM TrainersAU "
Set uCN = Server.CreateObject("ADODB.Connection")
Set uRS = Server.CreateObject("ADODB.Recordset")

On Error Resume Next
uCN.Open Connect
if ERR.Number <> 0 then
Response.Write("Error Number -> " & Err.Number)
Response.write("<BR>Error Source -> " & Err.Source)
Response.Write("<BR>Error Desc -> " & Err.Description)
Response.Write("<BR>Connect -> " & Connect)
Err.Clear
end if
uRS.Open SQLAdd, Connect, adOpenKeyset,adLockOptimistic


uRS.AddNew

uRS.Fields("TName") = TName
uRS.Fields("LocCity") = varLocCity
uRS.Fields("TId") = varTId
uRS.Fields("Month") = varMonth
uRS.Fields("Year") = varYear

'For i = 1 to 35
'For i = 1 to 42
'For i = 1 to UU
'uRS.Fields("U" & i) = UCodes(i)
'Next
uRS.Fields ("U1") = varUCodes1
uRS.Fields ("U2") = varUCodes2
uRS.Fields ("U3") = varUCodes3
uRS.Fields ("U4") = varUCodes4
uRS.Fields ("U5") = varUCodes5
uRS.Fields ("U6") = varUCodes6
uRS.Fields ("U7") = varUCodes7
uRS.Fields ("U8") = varUCodes8
uRS.Fields ("U9") = varUCodes9
uRS.Fields ("U10") = varUCodes10
uRS.Fields ("U11") = varUCodes11
uRS.Fields ("U12") = varUCodes12
uRS.Fields ("U13") = varUCodes13
uRS.Fields ("U14") = varUCodes14
uRS.Fields ("U15") = varUCodes15
uRS.Fields ("U16") = varUCodes16
uRS.Fields ("U17") = varUCodes17
uRS.Fields ("U18") = varUCodes18
uRS.Fields ("U19") = varUCodes19
uRS.Fields ("U20") = varUCodes20
uRS.Fields ("U21") = varUCodes21
uRS.Fields ("U22") = varUCodes22
uRS.Fields ("U23") = varUCodes23
uRS.Fields ("U24") = varUCodes24
uRS.Fields ("U25") = varUCodes25
uRS.Fields ("U26") = varUCodes26
uRS.Fields ("U27") = varUCodes27
uRS.Fields ("U28") = varUCodes28
uRS.Fields ("U29") = varUCodes29
uRS.Fields ("U30") = varUCodes30
uRS.Fields ("U31") = varUCodes31
uRS.Fields ("U32") = varUCodes32
uRS.Fields ("U33") = varUCodes33
uRS.Fields ("U34") = varUCodes34
uRS.Fields ("U35") = varUCodes35
uRS.Fields ("U36") = varUCodes36
uRS.Fields ("U37") = varUCodes37
uRS.Fields ("U38") = varUCodes38
uRS.Fields ("U39") = varUCodes39
uRS.Fields ("U40") = varUCodes40
uRS.Fields ("U41") = varUCodes41
uRS.Fields ("U42") = varUCodes42

uRS.Update
uRS.Close
Set uRS=nothing
%>

<h2>TAUCodes Confirm Page</h2>
<%
Response.Write "Here are the Records that have been entered"
Response.Write ("<table border=1>")
Response.Write ("<tr><th>Trainer Name</th><th>Month</th><th>Year</th></tr>")
Response.Write ("<tr><td>" & TName & "</td><td>" & varMonth & "</td><td>" & varYear & "</td><td>" & varVBUCodes() & "</td></tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("<tr>")
for i = 1 to 7
Response.Write ("<th> Code Day " & i & "</th>")
next
Response.Write ("</tr>")

Response.Write ("<tr>")
for i = 1 to 7
Response.Write ("<td>" & UCodes(i) & "</td>")
next
Response.Write ("</tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("<tr>")
for i = 8 to 14
Response.Write ("<th> Code Day " & i & "</th>")
next
Response.Write ("</tr>")

Response.Write ("<tr>")
for i = 8 to 14
Response.Write ("<td>" & UCodes(i) & "</td>")
next
Response.Write ("</tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("<tr>")
for i = 15 to 28
Response.Write ("<th> Code Day " & i & "</th>")
next
Response.Write ("</tr>")

Response.Write ("<tr>")
for i = 15 to 28
Response.Write ("<td>" & UCodes(i) & "</td>")
next
Response.Write ("</tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("<tr>")
for i = 29 to 35
Response.Write ("<th> Code Day " & i & "</th>")
next
Response.Write ("</tr>")

Response.Write ("<tr>")
for i = 29 to 35
Response.Write ("<td>" & UCodes(i) & "</td>")
next
Response.Write ("</tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("<tr>")
for i = 36 to 42
Response.Write ("<th> Code Day " & i & "</th>")
next
Response.Write ("</tr>")

Response.Write ("<tr>")
for i = 36 to 42
Response.Write ("<td>" & UCodes(i) & "</td>")
next
Response.Write ("</tr>")

Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")
Response.Write ("<tr><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>")

Response.Write ("</table>")
%>

<p><a HREF="TAUCALRD.asp?Yr=<%=varYrA%>">Click Here to Enter Additional 'TAU' Data</a> <br>
<br>
<a HREF="/../Default.asp">Click Here for Main Menu</a> </p>
</body>
</html>
<%
Conn.Close
Set Conn=Nothing
%>

[Gibble]

It might work...but

[coachdan32]

I decided to live risky and try it live and IT WORKS!! I know it is pretty redundent and the code is not as efficient as it should be, but sometimes it goes that way. Thanks!!