HTML: <FORM> embedded in code
Hi, I embedded the following code in order to update a database. Everything on the page works good but when I press the 'Save the changes' button nothing happens although I see the button beeing pressed. Otherwise the 'Cancel the changes' button works fine. Is there something wrong in this code? Thanks for help!
Response.Write "<FORM ACTION='Calendar_Update.asp' METHOD='Get' NAME='frmCalendar'>" & _
"<TABLE BORDER='1' WIDTH='100%'>"
While Not objRSGames.EOF
If objRSGames("Team_Home") <> "" AND objRSGames("Team_Away") <> "" Then
Response.Write "<TR>" & _
"<TD WIDTH='16%' VALIGN='top' ALIGN='center'>" & objRSGames("Official_Game_Number") & "</TD>" & _
"<TD WIDTH='16%' VALIGN='top' ALIGN='center'>" & fncFmtDate(objRSGames("Game_Date"),"%d/%m/%Y") & "</TD>" & _
"<TD WIDTH='8%' VALIGN='top' ALIGN='center'>" & objRSGames("Round") & "</TD>" & _
"<TD WIDTH='30%' VALIGN='top' ALIGN='center'>" & objRSGames("Team_Home") & "</TD>" & _
"<TD WIDTH='30%' VALIGN='top' ALIGN='center'>" & objRSGames("Team_Away") & "</TD>" & _
"</TR>"
Else
Response.Write "<TR><TD WIDTH='16%' VALIGN='top' ALIGN='center'><INPUT TYPE='Text' NAME='GameNumber' SIZE='6' ></TD>" & _
"<TD WIDTH='16%' VALIGN='top' ALIGN='center'><INPUT TYPE='Text' NAME='GameDate' VALUE='" & _ fncFmtDate(objRSGames("Game_Date"),"%d/%m/%Y") & "' SIZE='10'></TD>" & _
"<TD WIDTH='8%' VALIGN='top' ALIGN='center'>" & objRSGames("Round") & "</TD>" & _
"<TD WIDTH='30%' VALIGN='top' ALIGN='center'><SELECT SIZE='1' NAME='TeamHome'>" & _
"<OPTION VALUE=0>Choose the team</OPTION>"
While Not objRSTeams.EOF
Response.Write "<OPTION VALUE='" & objRSTeams("Team_Name") & "'>" & objRSTeams("Team_Name") & "</OPTION>"
objRSTeams.MoveNext
Wend
objRSTeams.MoveFirst
Response.Write "</SELECT>" & _
"</TD>" & _
"<TD WIDTH='30%' VALIGN='top' ALIGN='center'><SELECT SIZE='1' NAME='TeamAway'>" & _
"<OPTION VALUE=0>Choose the team</OPTION>"
While Not objRSTeams.EOF
Response.Write "<OPTION VALUE='" & objRSTeams("Team_Name") & "'>" & objRSTeams("Team_Name") & "</OPTION>"
objRSTeams.MoveNext
Wend
objRSTeams.MoveFirst
Response.Write "</SELECT></TD>" & _
"</TR>"
End If
objRSGames.MoveNext
Wend
Response.Write "</TABLE>"
Response.Write "<P ALIGN='center'><INPUT TYPE='Submit' VALUE='Save the changes'>" & _
" <INPUT TYPE='Reset' VALUE='Cancel the changes'>" & _
"</FORM>"
End If
|