VBScript display data in browser

Question

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

Rajanikant Hawaldar · Answer

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. Name Mobile Number EmailId " ) 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 UI code: html xmlns = "http://www.w3.org/1999/xhtml" > head runat = "server" > title > Display Data from Database in HTML Table in asp.net title > head > body > form id = "form1" runat = "server" > div > asp:PlaceHolder id = "PlaceHolder1" runat = "server" > asp:PlaceHolder > div > form > body > html > Create table may be as UserInfo and add columns like ID, Name, MobileNo, EmailId

Jhon ABhu · Answer

Thanks Rajanikant... Here i am append the data to div i want to displayvalues with headers also... but now i am getting only values using this below code... pls help me Set rs2 =CreateObject("ADODB.RecordSet") strQuery_xxxxxxxxxxxx = "Select * from XXXXXXXXXXXXXX" rs2.Open strQuery_xxxxxxxxxxxx ,objconnection Set e = document.getElementById("eventAPP") e1.innerHTML = " " & rs2.GetString(2, , " ", " ") & " "