I am trying to convert the following ASP VBScript to C# to use on our company's new ASP.Net 3.5 web site.
Can anyone help convert the following code .... ORZ
Much appreciated.
Vivian
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
<%@ Language=VBScript %>
<% 'option Explicit %>
<%
Dim APP_NAME
APP_NAME = "WA10208"
Session("Group_ID") = "4"
%>
<!-- #include file="AppLoginCheck.inc" -->
<!-- #include file="Page_header.asp" -->
<!-- #Include File="SecurityEnhance.inc" -->
<form action="F4_LON008_Result_NBS.asp" method="post" name="main">
<input type="hidden" id="func" name="func">
<table align="center" class="qry_table">
<tr>
<td class="qry_title" style="text-align:center;font-size:medium">aaaa</td>
</tr>
<tr>
<td class="qry_element">bbbb :
<select name="data_date">
<%
Dim Conn, Rs, SqlStatement, DataDate, QueryDate, I
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = Application("PSI_ConnectionTimeout")
Conn.CommandTimeout = Application("PSI_CommandTimeout")
Conn.Open Application("PSI_ConnectionString"), Application("PSI_RuntimeUserName"), Application("PSI_RuntimePassword")
SqlStatement = "Select TODAY " & _
"From " & Application("odsPROD_DB") & ".ETL_BUSDATE"
Set Rs = Conn.Execute(SqlStatement)
If Not Rs.Eof Then
DataDate = Left(Rs("TODAY"), 6)
Else
DataDate = Right("0000" & Year(Now()), 4) & Right("00" & Month(Now()))
End If
For I = 0 To 3
QueryDate = DateAdd("m", I * -1, Left(DataDate, 4) & "/" & Right(DataDate, 2) & "/01")
If I = 0 Then
%>
<option value="<%= Right("0000" & Year(QueryDate), 4) & Right("00" & Month(QueryDate), 2) %>" selected><%= Right("0000" & Year(QueryDate), 4) & Right("00" & Month(QueryDate), 2) %></option>
<%
Else
%>
<option value="<%= Right("0000" & Year(QueryDate), 4) & Right("00" & Month(QueryDate), 2) %>"><%= Right("0000" & Year(QueryDate), 4) & Right("00" & Month(QueryDate), 2) %></option>
<%
End If
Next
%>
</select>
</td>
</tr>
<tr>
<td class="qry_element">CCCC :
<select name="purpose_code">
<option value="ALL" selected>DDD</option>
<%
SqlStatement = "Select PURPOSE_CODE, PURPOSE_DESC " & _
"From " & Application("odsMISRPT_DB") & ".BKL_MG_PURPOSE_CODE " & _
"Order By PURPOSE_CODE"
Set Rs = Conn.Execute(SqlStatement)
Do While Not Rs.Eof
%>
<option value="<%= ProcessXSS(Rs("PURPOSE_CODE")) %>">
<%= ProcessXSS(Rs("PURPOSE_CODE")) & " " & ProcessXSS(Replace(Trim(Rs("PURPOSE_DESC")), " ", "")) %></option>
<%
Rs.MoveNext
Loop
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</select>
</td>
</tr>
<tr>
<td align="center"><input type="button" value=" DDDD " name="Query" class="btn_query"></td>
</tr>
<%
If Session("message") <> "" Then
%>
<tr>
<td colspan="2" class="bg_white"><p class="msg_text">EE:<%= Session("Message") %></p></td>
</tr>
<%
End If
Session("message") = ""
%>
</table>
</form>
<div align="right"><a href="menu_F4.asp">»»»FFFF</a></div>
<script language="javascript">
document.getElementById("Query").onclick = function () {
this.disabled = true;
main.func.value = "qry_detail";
main.submit();
}
</script>
<!-- #include file="Page_tailer.asp" -->