Help ! (1 Viewer)

Once I submit the form, it goes to the blank pages, and nothing is changed in the database...

But if I change the code:
"aOption=request.form("aOption")"
into
"aOption=1"

it works well.

What's Wrong with my code below?

--------------------------------------------------------------------------
<form id="frmChoose" name="frmChoose" action="" method="post" >
<select name="aOption" id="aOption">
<option value="0" selected="selected">Please Choose</option>
<option value="1">Place / Port</option>
<option value="2">Currency</option>
<option value="3">Sourceur</option>
</select>
<input type="submit" name="Submit2" value="OK" />
</form>


<%

Dim rsAd, sql
Dim aOption
Dim cnnAd,cnnstrAd

cnnstrAd="DSN=ANDRE"
set cnnAd=server.CreateObject("ADODB.CONNECTION")
cnnAd.open cnnstrAd

aOption=request.form("aOption")
'Show the Table of Result (Place)

Select Case aOption
Case "1"

aOption=request.form("aOption")
set rsAd=server.CreateObject("ADODB.RECORDSET")
sql="SELECT * FROM Incoplace ORDER BY IncoPlace"
rsAd.open sql, cnnAd, 1,3

If Not rsAd.EOF Or Not rsAd.BOF then
response.write "<form id=""frmAd"" name=""frmAd"" action=""AdminSuc.asp"" method=""POST"" >"
response.write "<input type=""hidden"" name=""act"" id=""act"" value=""""/>"
response.write "<table width=""200"" border=""1"" cellspacing=""1"" cellpadding=""0"">"
response.write "<tr>"
response.write "<th width=""35"" bordercolor=""#999999"" scope=""row""> </th>"
response.write "<td width=""130"" bordercolor=""#999999"" class=""style24"">Parameters </td>"
response.write "</tr>"

p=1
While NOT rsAd.EOF
response.write "<tr>"
response.write "<th bordercolor=""#999999"" scope=""row""><label>"
response.write "<input name=""cid"" type=""checkbox"" name=""cid"" value="& p &" />"
response.write "<input name=""pid"" type=""hidden"" id=""pid"" value=" & rsAd("IncoPlace_ID") &">"
response.write "</label></th>"
response.write "<td bordercolor=""#999999""><label>"
response.write "<input name=""txtResult"" type=""text"" id=""txtResult"" size = ""15"" value="& rsAd("IncoPlace")&">"
response.Write "</label></td>"
response.write ""

p=p+1
rsAd.MoveNext()
Wend

response.write "</table>"
response.write "<div align=""left"">"
response.write "<div align=""left"">"
response.write "<input type=""Submit"" name=""aSubmit"" value=""Update"" OnClick=""document.frmAd.act.value='edit'""/>"
response.write "<input type=""submit"" name=""aSubmit"" value=""Delete"" OnClick="" javascript:if(confirm('Delete This Parameter?')) {document.frmAd.act.value='delete'}"">"
response.write "</div>"
response.write "</form>"

response.write "<hr>"
response.write "<form id=""frmAdd"" name=""frmAdd"" action= " & SCRIPT_NAME &"?action=add method=""POST"" >"
response.write "<input name=""txtAdd"" type=""text"" id=""txtAdd"" size = ""15""/>"
response.write "<input type=""submit"" name=""add"" value=""Add"" />"
response.write "</form>"

Else
response.write "No Record Yet"
End if

Else
response.write "No Record Yet"
End if

If request.form("act")="delete" then
Dim did, d, e, All_Parad
Dim rsAd3, sql3

if Request.form("cid")<>"" then
All_Parad=Request.form("cid").count
for d=1 to All_Parad
if Request.form("cid")(d)<> "" then
e= Request.form("cid")(d)

did=Request.form("pid")(e)

set rsAd3=server.CreateObject("ADODB.RECORDSET")
sql3="DELETE FROM IncoPlace WHERE IncoPlace_ID=" & did

rsAd3.open sql3, cnnAd, 1,3

End if
Next
Response.write "<script>alert('Record Deleted');window.location.href='AdminSuc.asp';</script>"
End if

End if

'Edit Record (Place)
If (request.form("act")="edit") then
Dim pid, j, k, txtPlace, All_Para
Dim rsAd2, sql2

if Request.form("cid")<>"" then
All_Para=Request.form("cid").count
for j=1 to All_Para
if Request.form("cid")(j)<> "" then
k= Request.form("cid")(j)

pid=Request.form("pid")(k)
txtPlace=Request.form("txtResult")(k)

set rsAd2=server.CreateObject("ADODB.RECORDSET")
sql2="SELECT * FROM IncoPlace WHERE IncoPlace_ID=" & pid

rsAd2.open sql2, cnnAd, 1,3

rsAd2("IncoPlace")=txtPlace
rsAd2.Update

rsAd2.Close()
Set rsAd2 = Nothing

End if
Next
Response.write "<script>alert('Record Updated');window.location.href='AdminSuc.asp';</script>"
End if
End if

'ADD Record (Place)
Select case LCase(Trim(Request.QueryString("action")))
case "add"
Dim rsAdd, sql0
Dim txtPlace0
set rsAdd=server.CreateObject("ADODB.RECORDSET")
sql0="SELECT * FROM IncoPlace ORDER BY IncoPlace"

rsAdd.open sql0, cnnAd, 1,3
rsAdd.addnew

txtPlace0=Request.form("txtAdd")
rsAdd("IncoType_ID")=1
rsAdd("IncoPlace")=txtPlace0

rsAdd.Update
rsAdd.Close()
Set rsAdd = Nothing
Response.write "<script>alert('Record Added');window.location.href='AdminSuc.asp';</script>"
End Select

rsAd.Close()
Set rsAd = Nothing
cnnAd.close
set cnnAd=nothing


End Select

type the value of aOption to an integer
aOption=request.form("aOption")

select case Cint(aOption)
case 1
case 2
.....etc etc...
end select