Asp > Miscellaneous sample source codes

 Domain Redirect

Domain Redirect 'Set up the redirect variables Dim strURL 'This is the URL the user typed into the browser Dim strSiteName 'This is the domain name Dim intEPos 'This is the position of the remaining dot strURL = Request.ServerVariables("HTTP_HOST") intURLLen = Len(strURL) If InStr(1, UCase(strURL), "WWW") > 0 Then strURL = Right(strURL, (intURLLen - 4)) End If intEPos = InStr(1, strURL, ".") strSiteName = UCase(Mid(strURL, 1, (intEPos - 1))) 'Insert your site names in the Select Ca ' se statement below to 'replace the Your-Site, Your-Next-Site & ' Default-Site text. 'Feel free to add to the select case for ' additional sites. Select Case strSiteName Case "Your-Site" Response.Redirect "http://www.Your-Site.com" Case "Your-Next-Site" Response.Redirect "http://www.Your-Next-Site.com/sitedir" Case Else Response.Redirect "http://www.Default-Site.com/home.html" End Select %>



Privacy Policy | Link to Us | Links