%@ Import Namespace="Ultravid_Net.DAL.AdminLayer" %> <%@ Import Namespace="Ultravid_Net.Server" %> <%@ Import Namespace="Ultravid_Net.DAL.ViewerLayer" %> <%@ Import Namespace="Ultravid_Net.DAL" %> <%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <%@ Assembly Name="Ultravid_Net.Server, Version=1.0.1.3000, Culture=neutral, PublicKeyToken=09942fb4d77c90b1" %> <%@ Assembly Name="Ultravid_Net.DAL, Version=1.0.1.3000, Culture=neutral, PublicKeyToken=09942fb4d77c90b1" %> <%@ Assembly Name="Interop.WinHttp" %> <%@ Page %>
|
When you
buy your membership, you receive an account with the signup amount deposited for
your use in any performer's 'private chat room'.
After adding funds, when you take a performer into a private video chat, the funds in your account will be depleted at the per minute rate for that performer. You will be presented with the per minute rate before entering the private session. After your account reaches a value of zero, you can deposit more funds into the same account to continue to use private chat. Or, if you wish to use different billing information, then you can create a brand new account. |
|||
|---|---|---|---|
|
YourWebsite Private Videochat Credits |
<%
Dim dalViewer As New ViewerPersonalInfo
Dim viewerRow As DataRow = dalViewer.GetPersonalInfo(User.Identity.Name)
If (viewerRow Is Nothing) Then
Throw New Exception("Viewer Data Not Found!")
End If
'_/_/_/CHANGE THE APPROPRIATE VALUES BELOW\_\_\_
Dim username = User.Identity.Name
Dim CreditForm As String = "6cc" 'the form number
Dim CheckForm As String = "110ck" 'the check form number
Dim Account As String = "934250" 'your ccbill account number
Dim customer_fname As String = viewerRow("FirstName")
Dim customer_lname As String = viewerRow("LastName")
Dim email As String = viewerRow("EmailAddr")
Dim address1 As String = viewerRow("Address1")
Dim city As String = viewerRow("City")
Dim state As String = viewerRow("State")
Dim zipcode As String = viewerRow("PostalCode")
Dim Domain As String = (New Ultravid_Net.DAL.HostedWebsites.HostedWebsitesDAL).GetHostedWebsiteFromWebAppPath(Context.Request.PhysicalApplicationPath)
Dim Subaccount As String = "0000" 'the sub account number, usually 0000 or 0001
Dim AllowedType As String = "0000001666:840,0000000748:840,0000002528:840,0000002413:840" 'the allowed type ID's associated with this sub account
Dim SubscriptionTypeId As String
'_/_/_/DO NOT CHANGE ANYTHING BELOW HERE\_\_\_
%>
Select Amount:
|||
Support:
For Ccbill billing support: https://support.ccbill.com/
General Support: muscletease@gmail.com
Back
to the Viewer lounge