<% Dim xMyConn, xUSERNAME, xPASSWORD
'// SET YOUR xUSERNAME & xPASSWORD
xUSERNAME = "dcameron"
xPASSWORD = "nganatha"
'// SET YOUR DATBASE CONNECTION
SUB xOPEN_DB()
'// SQL CONNECTION
'Set xMyConn = Server.CreateObject("ADODB.Connection")
'xMyConn.open = "Driver={SQL Server};UID=comersus;password=nganatha;DATABASE=random_q;SERVER=64.78.59.253"
'// MySQL CONNECTION
'Set xMyConn = Server.CreateObject("ADODB.Connection")
'xMyConn.open = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=mysql.YourDomain.com;" & " DATABASE=dbname;" & "UID=xUSERNAME;PWD=xPASSWORD; OPTION=35"
'// DSN CONNECTION
'Set xMyConn = Server.CreateObject("ADODB.Connection")
'xMyConn.open = "DSN=dsn_name"
'// ACCESS CONNECTION
Set xMyConn = Server.CreateObject("ADODB.Connection")
'FLIPED UNCOMMENTS BEFORE UPLOADING
'xMyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\ImagesOfOnev2\_private\random_q.mdb;"
xMyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=D:\FTP\dcameron\Database\random_q.mdb;"
'// SAMPLE MapPath CONNECTION
'Set xMyConn = Server.CreateObject("ADODB.Connection")
'sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\path_to\db\random_q.mdb") & ";Persist Security Info=False"
'xMyConn.Open(sConnection)
END SUB
' --==--==--==--==-- THAT IS ALL YOU HAVE TO CHAGE --==--==--==--==-- '
PRIVATE FUNCTION xAPO(val)
xAPO = Replace(Trim(val),"'","''")
END FUNCTION
FUNCTION xCONVERT_TXT(val)
IF Trim(Cstr(val)) = "1" THEN
xCONVERT_TXT = "Yes"
ELSE
xCONVERT_TXT = "No"
END IF
END FUNCTION
%>
<% Dim xIDS, xarrIDS, xintRV, xQUOTE, xSQL, xRS, xLowestNumber, xHighestNumber
Call xOPEN_DB()
xSQL = "SELECT ID FROM TABLE_Q WHERE fldACTIVE = 1"
Set xRS = xMyConn.Execute(xSQL)
WHILE NOT xRS.EOF
xIDS = xIDS & Trim(xRS("ID")) & ","
xRS.MoveNext
WEND
xRS.Close
Set xRS = Nothing
xarrIDS = Split(xIDS,",")
IF NOT Ubound(xarrIDS) = -1 Then
Randomize()
xLowestNumber = Lbound(xarrIDS)
xHighestNumber = Ubound(xarrIDS) - 1
xintRV = Int((xHighestNumber-xLowestNumber+1)*Rnd+xLowestNumber)
IF xintRV > xHighestNumber Then xintRV = xintRV - 1
xSQL = "SELECT fldMEMO FROM TABLE_Q WHERE ID = " & xarrIDS(xintRV)
Set xRS = xMyConn.Execute(xSQL)
IF NOT xRS.EOF THEN
xQUOTE = trim(xRS("fldMEMO"))
END IF
xRS.Close
Set xRS = Nothing
ELSE
xQUOTE = ""
END IF
xMyConn.Close
Set xMyConn = Nothing
%>
Experience Safe, Secure Shopping. We value
your Privacy.
See dozens of satisfied customer stories and testimonials (in audio and text) for you to consider for yourpeace of mind and security here
at Images of One!
We guarantee
that subscribing will not result in
more spam.
"After reading, and
reading, and reading all your newsletters
by email, what seemed like a miracle just
suddenly happened out of the blue... Your
material has lifted me into another world,
i will never be able to thank you enough for
all the incredible information that you write,
and how you describe and break everything
all down, so that we the readers feel the
incredible reality of all those words, in
your newsletters!" - Nicole.
Lisa - I have been getting the newsletters for the last couple of years... I get so much value out of everything that comes from him...
See many
more audio and text testimonials..
THINK! The Ultimate Success Seminar
What is the 2007 THINK! Seminar? Whatever it is, it will rock your world! Limited tickets. Get yours while they are still available. Find out more here...
Did you know?
We were part of the TV
show called “The Secret"
(Please allow a few minutes for the video to load if necessary. You may go to another window and do something else while you wait for the music to start. Thank you.)
It is good for you to feel good :)
Step 1:
Now that you have benefited from this video, please help others to have the same free but valuable benefit. People such as your friends and family, your associates and acquaintances, all would love to feel better and live better. So, please open your email software or provider and send this web address to everyone you know, asking them to have a look at this free but valuable video. Copy and paste and send this address to them:
If you are an Images of One affiliate and you wish to send this page to your affiliates, you can do so and earn a 40-50% commission on all purchases made by the people you send over. For details, please see the FAQ section on this page.
Step 2:
We will release a wallpaper and screensaver version of this video by mid January, 2007. This will allow you to enjoy this video on your computer as a wallpaper and screensaver so that it can constantly remind you of your power and capability. To be informed when it is released, sign up for our free newsletter here:
We guarantee
that subscribing will not result in
more spam.
"After reading, and
reading, and reading all your newsletters
by email, what seemed like a miracle just
suddenly happened out of the blue... Your
material has lifted me into another world,
i will never be able to thank you enough for
all the incredible information that you write,
and how you describe and break everything
all down, so that we the readers feel the
incredible reality of all those words, in
your newsletters!" - Nicole.
Lisa - I have been getting the newsletters for the last couple of years... I get so much value out of everything that comes from him...
See many
more audio and text testimonials..
Step 3:
We have another great video for you to watch. Just click on the image below:
