Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all 21117 articles
Browse latest View live

Need Help With SQL Statement In VB6 Application

$
0
0
I'm trying to piece together a SQL statement that joins two tables and creates a recordset based on a name. The name is stored in a variable called strAuthor but I can't get my SELECT statement to put the name in quotes. Here is my SQL statement:

Code:

"SELECT BOOK_SET_ASSOCIATIONS.ISBN, BOOKS.AUTHOR, BOOKS.BOOK_SET_ID" & _
    "FROM BOOK_SET_ASSOCIATIONS INNER JOIN BOOKS ON BOOK_SET_ASSOCIATIONS.ISBN = BOOKS.ISBN" & _
    "Where (((BOOKS.AUTHOR) = " & strAuthor & "))" & _
    "ORDER BY BOOKS.BOOK_SET_ID"

When I execute my program it gets a runtime error 3075 syntax error as shown in the following attachment:

Error 3075 Sql Syntax.doc

As you can see in the error message, the Where clause is being converted to:

Code:

"Where (((BOOKS.AUTHOR) = Robert James Waller))
Instead of:

Code:

"Where (((BOOKS.AUTHOR) = "Robert James Waller"))
How do I modify my original SELECT statement shown above to get the necessary quotes around strAuthor? Thank you in advance.
Attached Files

UnKnown ADODB Error

$
0
0
Hi
I have used this class system before without a problem and I keep looking at it and cannot see my error but I get Unknown ADODB error ADO
could you please tell me what I have done wrong please
Code:

VB6

Option Explicit
'clsTitles - wraps up Table. By keeping the
'interface consistent it should be possible to move the class
'to a point at some other data source, such as RDO ResultTest,
'on a flat file, without the users of the class ever noticing.

Public Event DataChange()

'Public members to implement properties
'for Titles DB
Public strName As String
Public strNum1 As String
Public strNum2 As String
Public strNum3 As String

'Public connection to Database
'and the recordset
Public strConn As New ADODB.Connection  'My Connection
Public myRs As New ADODB.Recordset    'My Recordset
Public strSQL As String    'My Command

Public Sub Class_Initialize()
'When an instance of the class is created, we want to
'connect to the Database and open up the Database Table.
'Set,describe,and open the connection to the database

'ReDim strMNum(1 To 2)
'ReDim strWNum(1 To 2)

'***************Declaration*************
Set frmTest.dgControl.DataSource = Nothing

'***************Connection**************
  dbPath = "E:\Program Files\Microsoft Visual Studio\VB98\Ron Files\Class Example"
 
    Set strConn = New ADODB.Connection
      strConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & "\Telephone.mdb"
      strConn.CursorLocation = adUseClient
  '    Debug.Print App.Path

  '  Set and Define Command
      strSQL = "SELECT * FROM Names ORDER BY LastName"
     
  '  Set and Define Recordset
      With frmTest
          .adoControl.ConnectionString = strConn
          .adoControl.RecordSource = strSQL
            Set .dgControl.DataSource = .adoControl
            Debug.Print dbPath
            Debug.Print strSQL
            Debug.Print strConn
      End With
 
    Set Me.myRs = New ADODB.Recordset
      With Me.myRs
          Set .ActiveConnection = strConn
              .CursorType = adOpenStatic
              .Source = strSQL
'              .Open
      End With
     
  '  Add columns to the Recordset
        With frmTest.dgControl
          .Columns.Add 2
          strName = VBA.vbNullString & .Columns(0)
          strNum1 = VBA.vbNullString & .Columns(1)
          strNum2 = VBA.vbNullString & .Columns(2)
'          strNum3 = VBA.vbNullString & .Columns(3)
        End With
               
  '*********************************************

'Clean up after you have finished
    myRs.Close
    Set myRs = Nothing
    strConn.Close
    Set strConn = Nothing
End Sub

VB6 - Error Manager

$
0
0
hi
I'd like to know if there's a way to Manage VB6 Error/Crash.
I never worried about Errors , so it's the first time I am dealing with them.

Is there a way, when an Error arise, to Call a specific Procedure so that it can manage current data, and Know where error happened (which Sub/Function) ?
So , when a user encounter an Error, it can have information about which Sub/Function produced it (and mabye some extra info)


Maybe I should put on Every Sub/Function a On Error "Call ErrorManager-Sub"

Any suggegtion is wellcome!

EDIT
Here I found some information ....

would you please correct me this query?

$
0
0
Hello
I'm using vb6 and access
with this query I'm getting this error
impossible to use this connection Its either closed or invalid in this context ...
Code:

Set RS = New ADODB.Recordset
    With RS
        .CursorLocation = adUseClient
RS.Open "select * from T1 inner join T2 on T1.Id = T2.num where datt >= #" & _
      Format(DTPicker1.Value, "mm/dd/yyyy") & "# and datt <= #" & _
      Format(DTPicker2.Value, "mm/dd/yyyy") & "#", DB, adOpenStatic, adLockOptimistic

Thanks a lot

How to protect exe file on ".RES"

$
0
0
Hey, (using VB6)
here I made a project, and I import an exe file into the ".res", but someone managed to steal files RES me, how do I protect ".res" in order not to be on crack?
i hate cracker :mad:

[RESOLVED] would you please correct me this query?

$
0
0
Hello
I'm using vb6 and access
with this query I'm getting this error
impossible to use this connection Its either closed or invalid in this context ...
Code:

Set RS = New ADODB.Recordset
    With RS
        .CursorLocation = adUseClient
RS.Open "select * from T1 inner join T2 on T1.Id = T2.num where datt >= #" & _
      Format(DTPicker1.Value, "mm/dd/yyyy") & "# and datt <= #" & _
      Format(DTPicker2.Value, "mm/dd/yyyy") & "#", DB, adOpenStatic, adLockOptimistic

Thanks a lot

HELP ! VB6 using Flexgrid

$
0
0
Hi I'm a newbie with programming.
Im using VB 6.0 and my database is SQL Server 2005.
What I want is to insert into my database the values that I inputted on flexgrid.

Here's my Code:

With poFlexGrid
For i = 1 To .Rows - 1
cn.Execute "INSERT into tbl_POinfo VALUES('" & txtPONumber.Text & "'," & _
" '" & cboCategory.Text & "','" & DTPODate.Value & "','" & .TextMatrix(i, 1) & "', " & _
" " & CDbl(.TextMatrix(i, 2)) & "," & CDbl(.TextMatrix(i, 3)) & ",'" & .TextMatrix(i, 4) & "', " & _
" " & CDbl(.TextMatrix(i, 5)) & ",'" & .TextMatrix(i, 6) & "')"
Next
End With

But I got an error:

Name:  EXPLICIT.jpg
Views: 18
Size:  36.0 KB


Please tell me what part Im wrong :(
Attached Images
 

VB pretty easy compared to C++

$
0
0
I downloaded a C++ trial. Was tempted to buy it, figure sooner or later a switch will have to be made since I'll never be able to get VB6 if something happens to that CD.

Wow, try to get a label to say "Hello World" in the code..... In VB6 Label1.Caption = "Hello World"
OK, now try it in C++. I gave up after looking online for 45 minutes.

Thing is, VB6 is pretty dang good. And it works great for what I do. But, there are new techniques out there. Should a person make a jump or not.

I've already learned a lot about VB6. Might take some thinking or asking questions on here, but I get it done and the code ends up stable. Switching is like starting over. Be looking at unstable code, hours of head scratching, and a computer going through the window.

Add, delete flexgrid vb6

$
0
0
Hello,

I am using FLEXGRID on my form.
It is not decided that how many rows of data user will enter?

So can I add, delete any row at run time???

CAN ANYBODY HELP ME ? HOW TO ADD and DELETE ROW TO GRID at runtime? :(

Looking for a good report control our new network scanner app

$
0
0
Hi all. Me and a partner of mine wrote both a free & commercial multi-threaded network scanner written entirely in Classic VB and I'm looking for a good report control for a future version, commercial or free, it doesn't matter. I can't seem to find anything decent, so I thought I'd ask here. I use iGrid for the data grids, but I'm looking for printable reports, like Crystal Reports, but not Crystal Reports. I'm pretty sure they don't still offer a Classic VB control anymore anyway.

Here's a screenshot in case anyone cares to see that:
http://bit.ly/1Pa4GfA

Be gentle. And thanks!

Read from database and show in form as checkbox

$
0
0
Hi all
i want to read data in database and show it in form.there are 3 column in my table: auto_id, num, status .also there are 10 chekbox as array in form.
there are 10 records in table . some records in table turns value to true.
i want if Status field in table was tick mark, the same checkbox in form has tikmark.
in my sample that i attached :
if num 7 status = true ===> in form chName(7).value=true

in my sample code works good but condition dosenot work.

please take a look at my sample and trim it.

sorry for my poor english

thanks all
Attached Files

Missing File

$
0
0
I have a couple of programs that will not run. When I try I get a message stating "Cannot load MSDX.ocx" What do I have to do as there is no such file on my computer'

Need to clear Winhttp Cookies

$
0
0
Sir, I need to clear cookies from winhttp connection after a certain session. How to do it? Pls help me.

How to seek a null value?

$
0
0
Hello everyone
I'm looking for a query that allows me to retrieve all the pupils who did not have marks in a given exam. (let's say they were absent) and display them on a listview.
I used this query but it did not give any results.
Code:

RS.Open "select  from Student_Table inner join Grades_Table on Student_Table.Id = Grades_Table.PID where exam ='""'", DB, adOpenStatic, adLockOptimistic
If RS.RecordCount = 0 Then
MsgBox " All the students have marks"
else.......

Now with this query I always get
Code:

MsgBox " All the students have marks"
eventhough some students do not have exam marks
thank you

안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다

$
0
0
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리
안전한사설토토{∩}KaKa83,cOm까톡: oxiz{∩}배팅사이트 네임드사다리

토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터

$
0
0
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}야구토토 안전사설놀이터

축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅

$
0
0
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅
축구배팅사이트{∩}KaKa83,cOm까톡: oxiz{∩}축구픽 축구온라인배팅

스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설

$
0
0
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설
스포츠토토분석 {∩}KaKa83,cOm까톡: oxiz{∩}해외토토분석 토토사설

토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천

$
0
0
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천
토토추천{∩}KaKa83,cOm까톡: oxiz{∩}해외놀이터 스포츠토토추천

스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토

$
0
0
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
스타토토{∩}KaKa83,cOm까톡: oxiz{∩}스포츠배팅 사설토토
Viewing all 21117 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>