Solved

Connection String for Teradata in Classic ASP versus .NET

Posted on 2010-11-16
8
1,709 Views
Last Modified: 2013-11-11
Hi Experts,
I'm trying to make this script work when I save the file with .aspx extension.
The first part of the script captures the logged in person's login ID, and the second part matches it with his Emp_Id, First and Last name, then displays this info on the page.
It's working perfectly when I use Classic ASP and save the file with .asp extension.
Can anyone please walk me through the process of converting it to .NET and make it work with .aspx extension?
Thank you
<%

If Request.ServerVariables("LOGON_USER") = "" Then

Response.Status = "401 Access Denied"

Response.End

End If

%>

<%

set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DSN=Teradata;DRIVER={Teradata};UID=MyUID;PWD=MyPWD;Persist Security Info=True;"



set rs = Server.CreateObject("ADODB.recordset")



Dim UserID

UserID = Request.ServerVariables("LOGON_USER")

'if always 3 character User ID with '\'

UserID = Mid(UserID, 5)

rs.Open "SELECT First_Name, Last_Name, Emp_Id FROM PhoneBook WHERE Emp_Id = '" & UserID & "'", conn



do until rs.EOF

First_Name = rs("First_Name")

Last_Name = rs("Last_Name")

Emp_Id = rs("Emp_Id")

 rs.MoveNext

loop

rs.close

conn.close

%>



<%=First_Name%> <%=Last_Name%> <%=Emp_Id%>

Open in new window

0
Comment
Question by:baxtalo
  • 5
  • 3
8 Comments
 

Author Comment

by:baxtalo
Comment Utility
This is the error message I get on line 8 after I used the Web.Config file:
Compiler Error Message: BC30807: 'Let' and 'Set' assignment statements are no longer supported.
I don't know how to  correct it, and what to use instead of Set in my connection string
0
 
LVL 52

Expert Comment

by:Carl Tawn
Comment Utility
A literal translation to VB.Net would be something like:

        If Request.ServerVariables("LOGON_USER") = "" Then
            Response.Status = "401 Access Denied"
            Response.End()
        End If

        Dim UserID As String = Request.ServerVariables("LOGON_USER")
        'if always 3 character User ID with '\'
        UserID = Mid(UserID, 5)

        Dim conn As Odbc.OdbcConnection = New Odbc.OdbcConnection("DSN=Teradata;DRIVER={Teradata};UID=MyUID;PWD=MyPWD;Persist Security Info=True;")
        Dim cmd As Odbc.OdbcCommand = New Odbc.OdbcCommand("SELECT First_Name, Last_Name, Emp_Id FROM PhoneBook WHERE Emp_Id = '" & UserID & "'", conn)
        conn.Open()

        Dim reader As Odbc.OdbcDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

        '// assuming you're only expecting one result
        If reader.Read() Then
            First_Name = reader.GetString(reader.GetOrdinal("First_Name"))
            Last_Name = reader.GetString(reader.GetOrdinal("Last_Name"))
            Emp_Id = reader.GetInt32(reader.GetOrdinal(("Emp_Id"))
        End If

Open in new window


Assuming that the TeraData driver is odbc. To display the values you would normally assign them to control properties rather than just dumping them to the browser too.
0
 

Author Comment

by:baxtalo
Comment Utility
I'm absolutely new at VB.Net
How do I make this into a web page? Where do I need to put the brackets?
If I save it the way it is now the browser displays it as plain text.
Thanks
0
 

Author Comment

by:baxtalo
Comment Utility
I dont' have Visual Studio, I'm just using Notepad to write my code.
0
How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

 
LVL 52

Accepted Solution

by:
Carl Tawn earned 500 total points
Comment Utility
Trying to write and compile an ASP.Net page using notepad is going to be fiddly to say the least. You would be best grabbing yourself a copy of Visual Studio Express, which is free and will make your life a whole lot easier.

Classic ASP is an interpreted language, which is why it is easy to write in Notepad. .Net languages are all compiled, so the process isn't quite as simple.
0
 

Author Closing Comment

by:baxtalo
Comment Utility
Thank you very much. I thought that it can be done using Notepad. Until now I coded classic ASP only, and I've never used WYSIWYG editors. I always liked writing the code of my pages myself in TextPad.
I guess I will have to learn using Visual Studio. Can you recommend any books, or web sites that could help me learn using .NET very quickly?
I really appreciate your help.
0
 
LVL 52

Expert Comment

by:Carl Tawn
Comment Utility
The best place to start would be Microsofts own:

    http://www.asp.net
0
 

Author Comment

by:baxtalo
Comment Utility
Great, thank you!
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Salesforce.com is a cloud-based customer relationship management (CRM) system. In this article, you will learn how to add and map custom lead and contact fields to your Salesforce instance.
These days socially coordinated efforts have turned into a critical requirement for enterprises.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now