VB.NET

VB.NET RSS

Going from ASP 3.0 to VB.NET

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

•

Join Date: Aug 2006

Posts: 1

Reputation: AlexC-FL is an unknown quantity at this point

Solved Threads: 0

AlexC-FL

Offline

Newbie Poster

Going from ASP 3.0 to VB.NET

Aug 21st, 2006

I am working on a personal project as part of learning ASP.Net and I can not figure out how to do this. I have code that is VB for ASP 3.0 and trying to translate it to ASP.NET. It reads data for a MySql Database and displays it on the page. (Actually reading from a PhpBB forum as part of a Latest News type listing on Main Site Page). I have searched and every example I find can not get it to work. Would really like to keep it in VB.NET as it would be easy then to incorporate with rest of site. Have tried to make it as a web page all to itself and even as a Web User Control (which would be really great). So really getting frustrated and any help would be appreciated, whether it be code example, site with tutorial or even a Book that I could go get.

Thanks in advance for everything.

The code is as follows:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
<%@ Language="VBScript" %>
 
' Include Ado Utilities for Connections and data manipulation
<!-- #include file="modAdoUtils.asp" -->
 
<%
Dim m_arrRecords     ' Array to hold news info 
Dim m_i                    ' Record Counter 
Dim m_objAdoRs       ' Recordset to draw the data from the DB 
 
' Open the database connection 
Call OpenConnection() 
 
' Get records into the recordset 
Set m_objAdoRs = GetRecordSet("select n.post_subject, n.post_text from eq_posts_text n,eq_posts p where n.post_id = p.post_id and p.forum_id=6",3,3) 
 
'Check for records 
If m_objAdoRs.RecordCount > 0 Then 
    ' Save the records into an array for speed 
    m_arrRecords = m_objAdoRs.GetRows() 
    ' Loop through and write the News to the screen. 
      For m_i = 0 to UBound(m_arrRecords,2) 
           Response.Write "<b><i>" & (m_arrRecords(0,m_i)) &"</b></i>" & vbCrLf 
           Response.Write " " & (m_arrRecords(1,m_i)) & vbCrLf 
           Response.Write " " & vbCrLf 
       Next 
 Else 
     ' No news found in table 
            Response.Write "No News found at this time." & vbCrLf 
End If
 
' Clean up 
m_objAdoRs.Close 
Set m_objAdoRs = Nothing 
Call CloseConnection() 
%>
<%@ Language="VBScript" %>
 
' Include Ado Utilities for Connections and data manipulation
<!-- #include file="modAdoUtils.asp" -->
 
<%
Dim m_arrRecords     ' Array to hold news info 
Dim m_i                    ' Record Counter 
Dim m_objAdoRs       ' Recordset to draw the data from the DB 
 
' Open the database connection 
Call OpenConnection() 
 
' Get records into the recordset 
Set m_objAdoRs = GetRecordSet("select n.post_subject, n.post_text from eq_posts_text n,eq_posts p where n.post_id = p.post_id and p.forum_id=6",3,3) 
 
'Check for records 
If m_objAdoRs.RecordCount > 0 Then 
    ' Save the records into an array for speed 
    m_arrRecords = m_objAdoRs.GetRows() 
    ' Loop through and write the News to the screen. 
      For m_i = 0 to UBound(m_arrRecords,2) 
           Response.Write "<b><i>" & (m_arrRecords(0,m_i)) &"</b></i>" & vbCrLf 
           Response.Write " " & (m_arrRecords(1,m_i)) & vbCrLf 
           Response.Write " " & vbCrLf 
       Next 
 Else 
     ' No news found in table 
            Response.Write "No News found at this time." & vbCrLf 
End If
 
' Clean up 
m_objAdoRs.Close 
Set m_objAdoRs = Nothing 
Call CloseConnection() 
%>