<% strForm = Request("engines") Url = Request.Form("url") Email = Request.Form("email") strForm = Replace(strForm, "," , "") arrString = Split(strForm) intArrIndex = 0 Do While intArrIndex <= UBound(arrString) strAdd = Trim(arrString(intArrIndex)) intArrIndex = intArrIndex + 1 Loop Counter = intArrIndex Dim Engine() ReDim Engine(Counter) intAddindex = 0 intArrIndex = 0 Do While intArrIndex <= UBound(arrString) strAdd = Trim(arrString(intArrIndex)) If Len(strAdd) > 0 Then Select Case strAdd Case "anzwers" Engine(intArrindex) = "http://www.anzwers.com.au/cgi-bin/print_addurl.pl?url="& Url & "&email=" & Email Case "altavista" Engine(intArrindex) = "http://add-url.altavista.com/cgi-bin/newurl?ad=1&q=" & Url Case "euroseek" Engine(intArrindex) = "http://www.euroferret.com/cgi-bin/efaddurls/?urls=" & Url Case "excite" Engine(intArrindex) = "http://www.excite.com/cgi/add_url.cgi?look=excite&url=" & url & "&email=" & Email Case "hotbot" Engine(intArrindex) = "http://www.hotbot.com/addurl.asp?MM=1&success_page=http://www.hotbot.com/addurl.asp&failure_page=http://www.hotbot.com/oops.asp&ACTION=subscribe&SOURCE=hotbot&ip=" & Remote & "&redirect=http://www.hotbot.com://addurl2.html&newurl=" & Url & "&email=" & Email & "&send=Add+my+URL" Case "infomak" Engine(intArrindex) = "http://www.infomak.com/add_url.sh?Page=url&url=" & Url Case "google" Engine(intArrindex) = "http://www.google.com/addurl?q=" & Url & "&dq=&submit=Add+URL" Case "searchit" Engine(intArrindex) = "http://www.searchit.com/cgi-bin/addsite?url=" & Url & "&email=" & Email Case "directhit" Engine(intArrindex) = "http://www.directhit.com/util/submiturl.asp?fmt=disp&template=addurl&src=DH_ADDURL&URL=" & Url & "&email=" & Email & "keys=&submit=Submit%21" Case "nlsearch" Engine(intArrindex) = "http://www.nlsearch.com/cgi-bin/urlsubmit.pl?page=" & Url & "&contact=Webmaster&email=" & Email Case "lycos" Engine(intArrindex) = "http://www.lycos.com/cgi-bin/spider_now.pl?query=" & Url & "&email=" & Email Case "voila" Engine(intArrindex) = "http://www.voila.fr/submit?url=" & Url & "&email=" & Email Case "webcrawler" Engine(intArrindex) = "http://www.webcrawler.com/info/add_url/thanks/?url=" & Url & "&email=" & Email & "&brand=webcrawler" Case "webwombat" Engine(intArrindex) = "http://www.webwombat.com.au/Wregister?newurl=" & Url & "&email=" & Email Case "whatyouseek" Engine(intArrindex) = "http://whatuseek.com/cgi-bin/addurl?submit=Add+This+URL&url=" & Url & "&email=" & Email End Select intAddindex = intAddindex + 1 End If intArrIndex = intArrIndex + 1 Loop ReDim Preserve Engine(intArrIndex) Engine(intArrIndex) = "thanks.htm" intArrIndex = intArrIndex + 1 Function IsEven(intArrIndex) If (intArrIndex Mod 2) = 0 then IsEven = "True" Else IsEven = "False" End If End Function If IsEven(intArrIndex) = "False" then ReDim Preserve Engine(intArrIndex) Engine(intArrindex) = "extra.htm" intArrIndex = intArrIndex + 1 End If NumFrames = (intArrIndex/2) FramePercent = int(100/NumFrames) Call Frames Sub Frames Response.Write "" B = 0 Do While B < intArrIndex Response.Write "" Response.Write "" B = B + 1 Response.Write "" Response.Write "" B = B + 1 Loop End Sub %>