Search Tools Links Login

Country Based Redirection


'redirect users based on which country they are visiting your website from.

Original Author: dvchaos

Inputs

NetGeo
http://www.caida.org/tools/utilities/netgeo/

API Declarations

use and abuse.

Code

'create 2 command buttons, call the first one "Open" and the second one "Close"
'create a label

Private Sub Form_Load()
command1.tag = "open"
Private Sub Command1_Click()
If Command1.Tag = "open" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Command1.Tag = "closed"
Else
retvalue = mciSendString("set cdaudio door closed", returnstring, 127, 0)
Command1.Tag = "open"
End If
Label1.Caption = Command1.Tag 'place a label to check to tag property of the command button

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 94 times

Categories

ASP/ HTML

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.