ASP.NET

ASP.NET RSS

Classic to .net migration question

Please support our ASP.NET advertiser: Intel Parallel Studio Home

•

Join Date: May 2007

Posts: 1

Reputation: cgdotnet is an unknown quantity at this point

Solved Threads: 0

cgdotnet

Offline

Newbie Poster

Classic to .net migration question

May 2nd, 2007

Good afternoon all,
I'm currently migrating a classic app to .net and need to know the best practice in binding the data I pull through my querystring to the controls in my edit form.

In the classic app I assign the control(txtauthor) a value(<%=docauthor%>) from a variable(docauthor), via the id passed through the querysting:

 Help with Code Tags 
 ASP.NET Syntax (Toggle Plain Text) 
<%
Response.Buffer=true
'VARIABLES
dim objcon, objrs1, num, bgcolo, getcon, catname, id, descr,BacktoText,BacktoLink, docdatecreated
dim id1, txtdocident, txtauthor, txtdoctype, txtlocation, txtdeptnumber, docident, doctype, doctitle, docvol, dockeyword, docsumm, docrel, docdatereq
dim docassby, docdateappr, docrecby, docloc, docresp, docauthor, docref, docdept, dochardcopy, docpdfhyper, docdochyper, bAuto
'DOCUMENT CODE
dim intDocID : intDocID = Request.QueryString("intDocID")
dim strDocID : strDocID = Request.QueryString("strDocID")
blnCont = false
if len(intDocID) > 0 and isnumeric(intDocID) then
    strSQL = "select * from tblDocument where id = '" & intDocID     & "'"
    blnCont = true
else
    if len(strDocID) > 0 then
        strSQL = "select * from tblDocument where docident = '" & strDocID     & "'"
        blnCont = true
    end if
end if
if  blnCont = true then
    call ConnectDB()
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open strSQL,objCONN
    if CheckRS(objRS) then
        ID = objRS("ID")
        intDocID = objRS("ID")
        bAuto = objRS("bAuto")
        docident = objRS("docident")
        docvol = objRS("docvol")
        doctype = objRS("doctype")
        doctitle = objRS("doctitle")
        dockeyword = objRS("dockeyword")
        docsumm = objRS("docsumm")
        docrel = objRS("docrel")
        docdatereq = objRS("docdatereq")
        docassby = objRS("docassby")
        docdateappr = objRS("docdateappr")
        docrecby = objRS("docrecby")
        docloc = objRS("docloc")
        docresp = objRS("docresp")
        docauthor = objRS("docauthor")
        docref = objRS("docref")
        dochardcopy = objRS("dochardcopy")
        docdept = objRS("docdept")
        docdatecreated = objRS("docdatecreated")
    end if
    call DisConnectDB()
end if
<%
Response.Buffer=true
'VARIABLES
dim objcon, objrs1, num, bgcolo, getcon, catname, id, descr,BacktoText,BacktoLink, docdatecreated
dim id1, txtdocident, txtauthor, txtdoctype, txtlocation, txtdeptnumber, docident, doctype, doctitle, docvol, dockeyword, docsumm, docrel, docdatereq
dim docassby, docdateappr, docrecby, docloc, docresp, docauthor, docref, docdept, dochardcopy, docpdfhyper, docdochyper, bAuto
'DOCUMENT CODE
dim intDocID : intDocID = Request.QueryString("intDocID")
dim strDocID : strDocID = Request.QueryString("strDocID")
blnCont = false
if len(intDocID) > 0 and isnumeric(intDocID) then
    strSQL = "select * from tblDocument where id = '" & intDocID     & "'"
    blnCont = true
else
    if len(strDocID) > 0 then
        strSQL = "select * from tblDocument where docident = '" & strDocID     & "'"
        blnCont = true
    end if
end if
if  blnCont = true then
    call ConnectDB()
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open strSQL,objCONN
    if CheckRS(objRS) then
        ID = objRS("ID")
        intDocID = objRS("ID")
        bAuto = objRS("bAuto")
        docident = objRS("docident")
        docvol = objRS("docvol")
        doctype = objRS("doctype")
        doctitle = objRS("doctitle")
        dockeyword = objRS("dockeyword")
        docsumm = objRS("docsumm")
        docrel = objRS("docrel")
        docdatereq = objRS("docdatereq")
        docassby = objRS("docassby")
        docdateappr = objRS("docdateappr")
        docrecby = objRS("docrecby")
        docloc = objRS("docloc")
        docresp = objRS("docresp")
        docauthor = objRS("docauthor")
        docref = objRS("docref")
        dochardcopy = objRS("dochardcopy")
        docdept = objRS("docdept")
        docdatecreated = objRS("docdatecreated")
    end if
    call DisConnectDB()
end if

 Help with Code Tags 
 ASP.NET Syntax (Toggle Plain Text) 
<BODY LANGUAGE=javascript onload="return window_onload()" leftmargin="0" topmargin="0">
<FORM NAME="frmdocumententry" ID="frmdocumententry" method="post">
<input type=hidden name=id id=id value="<%=id%>">
<input type=hidden name=bAuto id=bAuto value="<%=bAuto%>">
<input type=hidden name=docidenthidden id=docidenthidden value="">
<input type=hidden name=intDocID id=intDocID value="<%=ID%>">
<input type=hidden name=strDocID id=strDocID value="<%=strDocID%>">
<BR>
<table align="center" table-layout:fixed width="800" border="0" 
<tr bgcolor="#F4F9FE">
<td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Author:</font></td>
<td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dept. Number:</font></td>
</tr>
<tr>
<td align="center" width = "25%"><INPUT TYPE=text NAME=txtauthor="text" SIZE="15" MAXLENGTH="30" value="<%=docauthor%>"></td></td>
<td align="center" width = "25%">
<select size=1 name="DEPT" id="DEPT" onchange=document.frmdocumententry.txtdeptnumber.value=this.value>
<option value=""><%
set objRS = GetDepts()
do while not objRS.eof%>
    <option value="<%=objRS.fields("strdepnum")%>"<%if docdept = cstr(objRS.fields("strdepnum")) then%>SELECTED<%end if%>><%=objRS("strDepname")%>
    <%objRS.movenext
loop
set objRS = nothing%>
</select>
<INPUT TYPE=hidden NAME=txtdeptnumber class="text" SIZE="20" MAXLENGTH="25" value="<%=docdept%>">
</td>
<BODY LANGUAGE=javascript onload="return window_onload()" leftmargin="0" topmargin="0">
<FORM NAME="frmdocumententry" ID="frmdocumententry" method="post">
<input type=hidden name=id id=id value="<%=id%>">
<input type=hidden name=bAuto id=bAuto value="<%=bAuto%>">
<input type=hidden name=docidenthidden id=docidenthidden value="">
<input type=hidden name=intDocID id=intDocID value="<%=ID%>">
<input type=hidden name=strDocID id=strDocID value="<%=strDocID%>">
<BR>
<table align="center" table-layout:fixed width="800" border="0" 
<tr bgcolor="#F4F9FE">
<td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Author:</font></td>
<td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dept. Number:</font></td>
</tr>
<tr>
<td align="center" width = "25%"><INPUT TYPE=text NAME=txtauthor="text" SIZE="15" MAXLENGTH="30" value="<%=docauthor%>"></td></td>
<td align="center" width = "25%">
<select size=1 name="DEPT" id="DEPT" onchange=document.frmdocumententry.txtdeptnumber.value=this.value>
<option value=""><%
set objRS = GetDepts()
do while not objRS.eof%>
    <option value="<%=objRS.fields("strdepnum")%>"<%if docdept = cstr(objRS.fields("strdepnum")) then%>SELECTED<%end if%>><%=objRS("strDepname")%>
    <%objRS.movenext
loop
set objRS = nothing%>
</select>
<INPUT TYPE=hidden NAME=txtdeptnumber class="text" SIZE="20" MAXLENGTH="25" value="<%=docdept%>">
</td>

The following is the .Net code:

 Help with Code Tags 
 ASP.NET Syntax (Toggle Plain Text) 
<%     
 
Response.Buffer=true
    'VARIABLES()
 
    'DOCUMENT CODE
    Dim intDocID : intDocID = Request.QueryString("intDocID")
    Dim strDocID : strDocID = Request.QueryString("strDocID")
 
    blnCont = False
 
    If Len(intDocID) > 0 And IsNumeric(intDocID) Then
        strSQL = "select * from tblDocument where id = '" & intDocID & "'"
        blnCont = True
    Else
        If Len(strDocID) > 0 Then
            strSQL = "select * from tblDocument where docident = '" & strDocID & "'"
            blnCont = True
        End If
 
    End If
 
    If blnCont = True Then
 
        Dim strCONN As New Data.SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TechLibrary;Data Source=TXXPW320\SQLSHOGUN")
 
        'setup command object         
        Dim Command As New Data.SqlClient.SqlCommand(strSQL, strCONN)
        'open connection
        strCONN.Open()
        'do whatever with the reader        
        reader = Command.ExecuteReader()
        Do While reader.Read
            ID = reader("ID")
            docident = reader("docident")
            bAuto = reader("bAuto")
            'intDocID = reader("ID")
            docvol = fixNullEntries(reader("docvol"))
            doctype = fixNullEntries(reader("doctype"))
            doctitle = fixNullEntries(reader("doctitle"))
            dockeyword = fixNullEntries(reader("dockeyword"))
            docsumm = fixNullEntries(reader("docsumm"))
            docrel = fixNullEntries(reader("docrel"))
            docdatereq = fixDates(reader("docdatereq"))
            docassby = fixNullEntries(reader("docassby"))
            docdateappr = fixDates(reader("docdateappr"))
            docrecby = fixNullEntries(reader("docrecby"))
            docloc = fixNullEntries(reader("docloc"))
            docresp = fixNullEntries(reader("docresp"))
            docauthor = fixNullEntries(reader("docauthor"))
            docref = fixNullEntries(reader("docref"))
            docdept = fixNullEntries(reader("docdept"))
            docchangedate = fixDates(reader("docchangedate"))
            dochardcopy = fixNullEntries(reader("dochardcopy"))
 
            Me.txtauthor.Text = docauthor????
 
        Loop
        Call mf.DisConnectDB()
    End If
 
 
    %>
<%     
    
Response.Buffer=true
    'VARIABLES()
   
    'DOCUMENT CODE
    Dim intDocID : intDocID = Request.QueryString("intDocID")
    Dim strDocID : strDocID = Request.QueryString("strDocID")
    
    blnCont = False
    
    If Len(intDocID) > 0 And IsNumeric(intDocID) Then
        strSQL = "select * from tblDocument where id = '" & intDocID & "'"
        blnCont = True
    Else
        If Len(strDocID) > 0 Then
            strSQL = "select * from tblDocument where docident = '" & strDocID & "'"
            blnCont = True
        End If
        
    End If
    
    If blnCont = True Then
        
        Dim strCONN As New Data.SqlClient.SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TechLibrary;Data Source=TXXPW320\SQLSHOGUN")
        
        'setup command object         
        Dim Command As New Data.SqlClient.SqlCommand(strSQL, strCONN)
        'open connection
        strCONN.Open()
        'do whatever with the reader        
        reader = Command.ExecuteReader()
        Do While reader.Read
            ID = reader("ID")
            docident = reader("docident")
            bAuto = reader("bAuto")
            'intDocID = reader("ID")
            docvol = fixNullEntries(reader("docvol"))
            doctype = fixNullEntries(reader("doctype"))
            doctitle = fixNullEntries(reader("doctitle"))
            dockeyword = fixNullEntries(reader("dockeyword"))
            docsumm = fixNullEntries(reader("docsumm"))
            docrel = fixNullEntries(reader("docrel"))
            docdatereq = fixDates(reader("docdatereq"))
            docassby = fixNullEntries(reader("docassby"))
            docdateappr = fixDates(reader("docdateappr"))
            docrecby = fixNullEntries(reader("docrecby"))
            docloc = fixNullEntries(reader("docloc"))
            docresp = fixNullEntries(reader("docresp"))
            docauthor = fixNullEntries(reader("docauthor"))
            docref = fixNullEntries(reader("docref"))
            docdept = fixNullEntries(reader("docdept"))
            docchangedate = fixDates(reader("docchangedate"))
            dochardcopy = fixNullEntries(reader("dochardcopy"))
            
            Me.txtauthor.Text = docauthor????
                       
        Loop
        Call mf.DisConnectDB()
    End If
    
    
    %>

 Help with Code Tags 
 ASP.NET Syntax (Toggle Plain Text) 
<body>
    <form id="frmdocumententry" runat="server">
    <input type=hidden name=id id=id value="<%=id%>">
    <input type=hidden name=bAuto id=bAuto value="<%=bAuto%>">
    <input type=hidden name=docidenthidden id=docidenthidden value="">
    <input type=hidden name=intDocID id=intDocID value="<%=ID%>">
    <input type=hidden name=strDocID id=strDocID value="<%=strDocID%>">
    <div>
        <table border="0" align="center" cellpadding="5" cellspacing="5" style="table-layout: fixed; width: 850px;">
                                                                    <tr bgcolor="#F4F9FE">
                                                                <td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Author:</font></td>
                                                                <td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dept. Number:</font></td>
                                                                                                                           </tr>
 
                                                            <tr>
 
                                                                <td align="center" width = "25%" style="height: 5px"><asp:TextBox ID="txtauthor" runat="server" CssClass="text"></asp:TextBox>
                                                                </td>
                                                                <td align="center" width = "25%" style="height: 5px">
                                                                    <asp:DropDownList ID="cmbDept" runat="server" DataSourceID="deptDS" AutoPostBack=true DataTextField="strDepname" DataValueField="strDepname">
                                                                    </asp:DropDownList>
                                                                    <asp:SqlDataSource ID="deptDS" runat="server" ConnectionString="<%$ ConnectionStrings:techlibraryConnectionString %>"
                                                                                    SelectCommand="SELECT [strDepname] FROM [tblDept]">
                                                                    </asp:SqlDataSource>
                                                                    &nbsp; &nbsp;&nbsp;
 
                                                                </td>
<body>
    <form id="frmdocumententry" runat="server">
    <input type=hidden name=id id=id value="<%=id%>">
    <input type=hidden name=bAuto id=bAuto value="<%=bAuto%>">
    <input type=hidden name=docidenthidden id=docidenthidden value="">
    <input type=hidden name=intDocID id=intDocID value="<%=ID%>">
    <input type=hidden name=strDocID id=strDocID value="<%=strDocID%>">
    <div>
        <table border="0" align="center" cellpadding="5" cellspacing="5" style="table-layout: fixed; width: 850px;">
                                                                    <tr bgcolor="#F4F9FE">
                                                                <td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Author:</font></td>
                                                                <td align="center" width = "25%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dept. Number:</font></td>
                                                                                                                           </tr>
                                                            
                                                            <tr>
                                                                                                                   
                                                                <td align="center" width = "25%" style="height: 5px"><asp:TextBox ID="txtauthor" runat="server" CssClass="text"></asp:TextBox>
                                                                </td>
                                                                <td align="center" width = "25%" style="height: 5px">
                                                                    <asp:DropDownList ID="cmbDept" runat="server" DataSourceID="deptDS" AutoPostBack=true DataTextField="strDepname" DataValueField="strDepname">
                                                                    </asp:DropDownList>
                                                                    <asp:SqlDataSource ID="deptDS" runat="server" ConnectionString="<%$ ConnectionStrings:techlibraryConnectionString %>"
                                                                                    SelectCommand="SELECT [strDepname] FROM [tblDept]">
                                                                    </asp:SqlDataSource>
                                                                    &nbsp; &nbsp;&nbsp;
                                                                    
                                                                </td>

In the .Net app, I'd like to do the same as the classic app but there is no "Value" piece to the "asp:textbox" control. Is there a better way to assign the value to the control without hardcoding the relationship like in the following:
Me.txtauthor.text = docauthor????

Also, for the dept list, which is a lookup table, the querystring passes in a numeric value associated to the value from it's table. If i do an edit how would I pass that numeric value back in to display the current selection in the dropdown?

Thanks in advance,
CG