VBScript display data in browser

Hello Friends...

I am begginer I need print data in a window or browser using vbscript

data stored in variable. I can show popup message with data. but i cant display in browser or new window want to take print.... Pls help

Dim ConnectionString
ConnectionString = "Driver={SQL Server};Server=MYPC-PC;Database=xxxxxxx;Trusted_Connection=TRUE"

objConnection.Open ConnectionString
strQuery = "Select * from xxxxxxxxxxxxxx"
rs.Open strQuery,objconnection

Do While Not rs.EOF
val_C_Name=rs.Fields.Item("Client_Name")

header = "xxxxxxxxxxxxxx"
str = header&vbNewLine&vbNewLine &str&"Name of The client: " val_C_Name
rs.MoveNext
Loop
MsgBox str

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Web.UI.WebControls
Partial Class VBCode
Inherits System.Web.UI.Page
Private scon As New SqlConnection("Data Source=SureshDasari;Integrated Security=true;Initial Catalog=MySampleDB")
Private htmlTable As New StringBuilder()
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Not IsPostBack Then
Using scmd As New SqlCommand()
scmd.Connection = scon
scmd.CommandType = CommandType.Text
scmd.CommandText = "SELECT * FROM UserInfo"
scon.Open()
Dim articleReader As SqlDataReader = scmd.ExecuteReader()
htmlTable.Append("")
htmlTable.Append("SlNo.NameMobile NumberEmailId")
If articleReader.HasRows Then
While articleReader.Read()
htmlTable.Append("")
htmlTable.Append("" & Convert.ToString(articleReader("ID")) & "")
htmlTable.Append("" & Convert.ToString(articleReader("Name")) & "")
htmlTable.Append("" & Convert.ToString(articleReader("Mobno")) & "")
htmlTable.Append("" & Convert.ToString(articleReader("EmailId")) & "")
htmlTable.Append("")
End While
htmlTable.Append("")
PlaceHolder1.Controls.Add(New Literal() With { _
Key .Text = htmlTable.ToString() _
})
articleReader.Close()
articleReader.Dispose()
End If
End Using
End If
End Sub
End Class

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Rajanikant Hawaldar5y ago
Accepted answer
1. Imports System.Data
2. Imports System.Data.SqlClient
3. Imports System.Text
4. Imports System.Web.UI.WebControls
5. Partial Class VBCode
6. Inherits System.Web.UI.Page
7. Private scon As New SqlConnection("Data Source=SureshDasari;Integrated Security=true;Initial Catalog=MySampleDB")
8. Private htmlTable As New StringBuilder()
9. Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
10. If Not IsPostBack Then
11. Using scmd As New SqlCommand()
12. scmd.Connection = scon
13. scmd.CommandType = CommandType.Text
14. scmd.CommandText = "SELECT * FROM UserInfo"
15. scon.Open()
16. Dim articleReader As SqlDataReader = scmd.ExecuteReader()
17. htmlTable.Append("")
18. htmlTable.Append("SlNo.NameMobile NumberEmailId")
20. If articleReader.HasRows Then
21. While articleReader.Read()
22. htmlTable.Append("")
23. htmlTable.Append("" & Convert.ToString(articleReader("ID")) & "")
24. htmlTable.Append("" & Convert.ToString(articleReader("Name")) & "")
25. htmlTable.Append("" & Convert.ToString(articleReader("Mobno")) & "")
26. htmlTable.Append("" & Convert.ToString(articleReader("EmailId")) & "")
27. htmlTable.Append("")
28. End While
29. htmlTable.Append("")
31. PlaceHolder1.Controls.Add(New Literal() With { _
32. Key .Text = htmlTable.ToString() _
33. })
35. articleReader.Close()
36. articleReader.Dispose()
37. End If
38. End Using
39. End If
40. End Sub
41. End Class
UI code:
1. <html xmlns="http://www.w3.org/1999/xhtml">
2. <head runat="server">
3. <title>Display Data from Database in HTML Table in asp.nettitle>
4. head>
5. <body>
6. <form id="form1" runat="server">
7. <div>
8. <asp:PlaceHolder id="PlaceHolder1" runat="server">asp:PlaceHolder>
9. div>
10. form>
11. body>
12. html>
Create table may be as UserInfo and add columns like ID, Name, MobileNo, EmailId