Hi everyone
I have a page with one form, but with 2 buttons: One is called "Submit" and the other one is "Close". Both buttons have to submit the form data and message should be displayed on the form, the only difference is that one button will lead me to another page and the other will remain in the same page.
My question is: how can I have this 2 submit buttons in the same form and work with my stored Procedures?
Thanks!!!!
SAN
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
table4
<!--
.style1 {
font-family: Castellar;
font-size: 30px;
color: #333333;
}
.style2 {font-size: 17px;
color: #333333;
}
.style3 {color: #FFFFFF}
.style12 {font-size: 16px}
.style16 {color: #666666}
.style17 {font-size: 12px; color: #333333; }
-->
<%
Dim ProblemStatusID
ProblemStatusID=Request.QueryString("ProblemStatusID") %>
<%
Dim strSQL, result
ProblemStatusID = CLNG("0" & Request.QueryString("ProblemStatusId") )
If ProblemStatusID <= 0 Then
Response.Write "BOGUS!"
Response.End
End If
' Set SQL statement
strSQL = "GetInformationForProblemStatusId " & ProblemStatusID
' For Debug
'Response.Write "DEBUG: " & strSQL & ""
'Execute the SQL and obtain resultset
Set result = objConn.Execute(strsql)
'Check for Errors
If objconn.Errors.Count > 0 then
Response.Write("Error Occurred:
")
Else
%>
|
Edit Problem <%=result("ProblemStatusId")%>
|
<%
'Declare your variables
Dim sqlinsproc, InsertorUpdateProblemSolution, Solution, results
'Receiving values from Form, assign the values entered to variables
ProblemStatusId = Request.Form("ProblemStatusId")
Solution = Request.Form("Solution")
sqlinsproc = "Exec InsertorUpdateProblemSolution '" & ProblemStatusId & "', '" & Solution & "'"
'Response.Write "DEBUG: " & sqlinsproc & ""
'Response.Write sqlinsproc + "
"
results = objConn.Execute(sqlinsproc)
%>
<%
'Declare your variables
Dim sqlinsprocedure, InsertorUpdateAndClosedProblemSolution,resultss
'Receiving values from Form, assign the values entered to variables
ProblemStatusId = Request.Form("ProblemStatusId")
Solution = Request.Form("Solution")
sqlinsprocedure= "Exec InsertorUpdateAndClosedProblemSolution '" & ProblemStatusId & "', '" & Solution & "'"
'Response.Write "DEBUG: " & sqlinsproc & ""
'Response.Write sqlinsproc + "
"
resultss = objConn.Execute(sqlinsprocedure)
%>
<%Do Until result.EOF%>
<%
result.MoveNext
loop
End If
'Close Database
'
objconn.Close
%>
|
| |
| ProblemStatusId |
"> |
| UserName |
<%=result("UserName")%> |
| EMail: |
<%=result("UserEmail")%> |
| Location: |
<%=result("UserLocation")%> |
| Phone: |
<%=result("UserPhone")%> |
| Phone: |
<%=result("ocd")%> |
| Title: |
<%=result("DepartmentName")%> |
| Number Holder's Name: |
<%=result("NH")%> |
| Number Holder's SSN: |
<%=result("UserSSN")%> |
| IsRepresentativeInvolved: |
<%=result("IsRepresentativeInvolved")%> |
| RepresentativeSSN: |
<%=result("RepresentativeSSN")%> |
| RepresentativeZipCode: |
<%=result("RepresentativeZipCode")%> |
| OrganizationName: |
<%=result("OrganizationName")%> |
| ClaimantName: |
<%=result("ClaimantName")%> |
| IsProblem/Question: |
<%=result("IsProblemQuestion")%> |
| IsComment: |
<%=result("IsComment")%> |
| Subject: |
<%=result("ProblemTitle")%> |
| ProblemDescription: |
<%=result("ProblemDescription")%> |
| Attachment : |
<%=result("Attachment")%> |
| TeamMemberNaeme : |
<%=result("TeamMemberName")%> |
| Previous Solution: |
<%=result("CurrentSolution")%> |
| Solution : |
Entered by <%=result("TeamMemberName")%>: The Previous Solution is <%=result("CurrentSolution")%>
Please Enter the Solution |
|
|
|
This page is maninted by Shruthi Andem. Direct questions or comments to the Programmers team by email to ||CH RO MOS CSA Prog or phone 312-575-6292 |
Add New Comment