wonder_gal
11-13-2005, 09:22 PM
have 2 drop down lists, it is coded such that second drop down list's content is loaded upon a selection from first drop down list. But here for my case i cannot see any value being loaded in my second drop down list after i have made a selection from first drop down list. Below is my code:
<html>
<body>
<form method="post" name = "frmUpdateMessage">
<%
Dim sLanguage
Dim dbConnection
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.ConnectionString="Provider=SQLOLEDB.1;UID=sa;Password=password;Initi al Catalog=BMI;Data Source=(LOCAL)"
dbConnection.open
Response.write("Language Version: ")
If(Request("selLang") <> "") Then
sLanguage = Request("selLang")
End If
%>
<Select name = "selLang">
<option value="">Select a language</option>
<option value="English"<%if trim(sLanguage)= "English" then Response.Write "selected"%>>English</option>
<option value="Chinese"<%if trim(sLanguage)= "Chinese" then Response.Write "selected"%>>Chinese</option>
</Select>
<%
Response.write("<BR> BMI Category: ")
%>
<select name="selType" onchange="this.form.submit()">
<option value="">Select a category</option>
<%
Dim rs_Category,sSQL
set rs_Category = CreateObject("adodb.recordset")
If sLanguage = "English" Then
sSQL="SELECT * FROM outMessageENContent"
rs_Category.Open sSQL, dbConnection
sCategory = Request("selType")
While not rs_Category.EOF
%>
<option value="<%=rs_Category("msg_category")%>"<%if trim(request.form("selType"))= trim(rs_Category("msg_category")) then Response.Write "selected"%>><%=rs_Category("msg_category")%></option>
<%
rs_Category.MoveNext
Wend
rs_Category.Close
set rs_Category = nothing
ElseIf sLanguage = "Chinese" Then
sSQL="SELECT * FROM outMessageCHContent"
rs_Category.Open sSQL, dbConnection
sCategory = Request("selType")
While not rs_Category.EOF
%>
<option value="<%=rs_Category("msg_category")%>"<%if trim(request.form("selType"))= trim(rs_Category("msg_category")) then Response.Write "selected"%>><%=rs_Category("msg_category")%></option>
<%
rs_Category.MoveNext
Wend
rs_Category.Close
set rs_Category = nothing
End If
%>
</select>
<%
Dim sCategory
Dim sRisk
Dim sRemark
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM outMessageENContent WHERE msg_category = '" & sCategory & "'", dbConnection
While not rs.EOF
sRisk = rs("msg_risk")
sRemark = rs("msg_remark")
Response.Write("<BR> Risk: <input type='text' name='txtRisk' size ='30' value='" & sRisk & "'>")
Response.Write("<BR>")
Response.Write("Remark: <input type='text' name='txtRemark' size ='120' value='" & sRemark & "'>")
Response.Write("<BR>")
rs.MoveNext
Wend
set rs = Nothing
dbConnection.Close()
Set dbConnection = Nothing
%>
<input type = "button" value = "Save" name = "btnSave" onClick = "pgUpdate()">
</form>
</body>
<script language="JavaScript" >
function pgUpdate()
{
document.frmUpdateMessage.action="UpdateMessage.asp"
document.frmUpdateMessage.submit()
}
</script>
</html>
Can anyone pls kindly point out to me what's the problem? Thanks alot.
<html>
<body>
<form method="post" name = "frmUpdateMessage">
<%
Dim sLanguage
Dim dbConnection
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.ConnectionString="Provider=SQLOLEDB.1;UID=sa;Password=password;Initi al Catalog=BMI;Data Source=(LOCAL)"
dbConnection.open
Response.write("Language Version: ")
If(Request("selLang") <> "") Then
sLanguage = Request("selLang")
End If
%>
<Select name = "selLang">
<option value="">Select a language</option>
<option value="English"<%if trim(sLanguage)= "English" then Response.Write "selected"%>>English</option>
<option value="Chinese"<%if trim(sLanguage)= "Chinese" then Response.Write "selected"%>>Chinese</option>
</Select>
<%
Response.write("<BR> BMI Category: ")
%>
<select name="selType" onchange="this.form.submit()">
<option value="">Select a category</option>
<%
Dim rs_Category,sSQL
set rs_Category = CreateObject("adodb.recordset")
If sLanguage = "English" Then
sSQL="SELECT * FROM outMessageENContent"
rs_Category.Open sSQL, dbConnection
sCategory = Request("selType")
While not rs_Category.EOF
%>
<option value="<%=rs_Category("msg_category")%>"<%if trim(request.form("selType"))= trim(rs_Category("msg_category")) then Response.Write "selected"%>><%=rs_Category("msg_category")%></option>
<%
rs_Category.MoveNext
Wend
rs_Category.Close
set rs_Category = nothing
ElseIf sLanguage = "Chinese" Then
sSQL="SELECT * FROM outMessageCHContent"
rs_Category.Open sSQL, dbConnection
sCategory = Request("selType")
While not rs_Category.EOF
%>
<option value="<%=rs_Category("msg_category")%>"<%if trim(request.form("selType"))= trim(rs_Category("msg_category")) then Response.Write "selected"%>><%=rs_Category("msg_category")%></option>
<%
rs_Category.MoveNext
Wend
rs_Category.Close
set rs_Category = nothing
End If
%>
</select>
<%
Dim sCategory
Dim sRisk
Dim sRemark
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM outMessageENContent WHERE msg_category = '" & sCategory & "'", dbConnection
While not rs.EOF
sRisk = rs("msg_risk")
sRemark = rs("msg_remark")
Response.Write("<BR> Risk: <input type='text' name='txtRisk' size ='30' value='" & sRisk & "'>")
Response.Write("<BR>")
Response.Write("Remark: <input type='text' name='txtRemark' size ='120' value='" & sRemark & "'>")
Response.Write("<BR>")
rs.MoveNext
Wend
set rs = Nothing
dbConnection.Close()
Set dbConnection = Nothing
%>
<input type = "button" value = "Save" name = "btnSave" onClick = "pgUpdate()">
</form>
</body>
<script language="JavaScript" >
function pgUpdate()
{
document.frmUpdateMessage.action="UpdateMessage.asp"
document.frmUpdateMessage.submit()
}
</script>
</html>
Can anyone pls kindly point out to me what's the problem? Thanks alot.