October 2008

Wednesday, October 22, 2008

Easton Sv12 Fastpitch Softball Bat Reviews

Dollar-Peso MX with ASP ASP Whois

There will be some times when you need to know the current price of the dollar in pesos, for this can Use information from some banks, in this case I use the HSBC, after obtaining the info as you can do with her accounts or whatever you want with it.

The system works with the following code:

Response.Buffer = True

 September xml = Server.CreateObject ("Microsoft.XMLHTTP") 
 xml.Open "GET", "http://dsrefa01 .hsbc.com.mx / aptrix / InternetPub.nsf / Content / TasasSplash "False 
 XML.send 
 String = CSTR (xml.responseText) 
 PosIni1 = InStr (String," U.S. Dollars ") 
 PosIni2 = InStr (PosIni1 , Cadena ,"$") 
 PosFin = InStr (PosIni2, Cadena ,"\u0026lt;") DolarCompra = MID (String, PosIni2, PosFin-PosIni2) PosIni1 = PosFin PosIni2 = InStr (PosIni1, Cadena ,"$") PosFin = InStr (PosIni2, Cadena ,"\u0026lt;") DolarVenta = MID (String, PosIni2, PosFin-PosIni2 ) Set xml = Nothing 
 
 the result is in the variables and

DolarCompra DolarVenta I hope you serve something

2010 Tucson Push Start

Many have asked me how they can do a whois for your pages, here is a , which uses data from internic and Nic Mexico.

This whois used to check the availability of domains.

'Set timeout to 90min

 
 
 Server.ScriptTimeout = 90 'function to query the Whois whois server whoisResult 
 Private Function (whoisURL, strMethod, strResultsStart, strResultsEnd) 
 
' Dimension variables Dim objXMLHTTP 
 
 Dim strWhoisResultString September 
 objXMLHTTP = Server.CreateObject 
 ("Microsoft.XMLHTTP") 
 
 objXMLHTTP.Open strMethod, whoisURL, False 
 
 objXMLHTTP.Send 
 
 strWhoisResultString = objXMLHTTP.ResponseText 
 
 If Len (strDomainName) \u0026lt;whoisresult = "Not Valid - must have at least 3 Characteristics whoisresult = "An error occurred" whoisresult = "resultFormater (strWhoisResultString," objxmlhttp  =" Nothing" lngresultsstartpos =" InStr(1," lngresultsendpos =" InStr(lngResultsStartPos," lngresultsstartpos ="&lt;" lngresultsendpos =" lngResultsStartPos" resultformater =" Trim(Mid(strWhoisResultString," intloopcounter =" 0" strtextinput =" Replace(strTextInput," intloopcounter =" 46" strtextinput =" Replace(strTextInput," intloopcounter =" 58" strtextinput =" Replace(strTextInput," intloopcounter =" 123" strtextinput =" Replace(strTextInput," characterstrip =" strTextInput"&gt; "" Then 
  
  strDomainName = LCase(strDomainName) 
  
  strDomainName = Replace(strDomainName, "http://", "", 1,  -1, 1) 
  strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1) 
  
  strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".net", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".org", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".info", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".biz", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".tv", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".name", "", 1, -1, 1) 
  strDomainName =  Replace(strDomainName, ".co.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".org.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".ltd.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".plc.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".net.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".me.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".pn.uk", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".com.mx", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName,  ".net.mx", "", 1, -1, 1) 
  strDomainName = Replace(strDomainName, ".org.mx", "", 1, -1, 1) 
  
  If Left(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 2, Len(strDomainName)) 
  If Right(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 1, Len(strDomainName)-1) 
  
  strDomainName = Replace(strDomainName, "--", "-", 1, -1, 1) 
  
  strDomainName = characterStrip(strDomainName) 
 End If 
  
 If strDomainName &lt;&gt; "" Then 
  Response.Write(" 
  
  
 ") 
   Response.Write(" 
 Resultados de la  busqueda de 
 www." &amp; strDomainName &amp; strSuffix &amp; "   
   ") 
       
  If strSuffix = ".com" Then 
  Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" &amp; strDomainName &amp; ".com&amp;type=domain", "GET", " 
  
  
 ", " 
 "))  ElseIf strSuffix = ".net" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" &amp; strDomainName &amp; ".net&amp;type=domain", "GET", "   
 ", " 
 ")) ElseIf strSuffix = ".org" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic="  &amp; strDomainName &amp; ".org&amp;type=domain", "GET", "   
 ", " 
 ")) ElseIf strSuffix = ".biz" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" &amp; strDomainName &amp; ".biz&amp;type=domain", "GET", "   
 ", " 
 ")) ElseIf strSuffix = ".info" Then Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" &amp; strDomainName &amp; ".info&amp;type=domain", "GET", "   
 ", " 
 ")) ElseIf strSuffix = ".com.mx" Then Response.Write(whoisResult("http://www.sitiosweb.com.mx/whois/example.php?domain=" StrDomainName strSuffix & & & "& domain_type = 1 & template_type = & object_type_1 = & object_type_2 = & object_type_3 = 3 & text =" & strDomainName & "& current_page = Busqueda.Who_Is_2" " GET "," This domain is available ")) ElseIf strSuffix =". net.mx "Then Response.Write (whoisResult (http://www.sitiosweb.com.mx/whois/example.php?domain =" & ; strDomainName & strSuffix & "& domain_type = 3 & template_type = & object_type_1 = & object_type_2 = & object_type_3 = 3 & text =" & StrDomainName & "& current_page = Busqueda.Who_Is_2", "GET", "This domain is available")) ElseIf strSuffix = ". Org.mx" Then Response.Write (whoisResult ("http://www. sitiosweb.com.mx / whois / example.php? domain = "& strDomainName & strSuffix &" & domain_type = 5 & template_type = & object_type_1 = & object_type_2 = & object_type_3 = 3 & text = "& ; strDomainName & "& current_page = Busqueda.Who_Is_2", "GET", "This domain is available")) End If Response.Write (" 
") End If

I hope they serve

How To Make It Not Awkward With A Guy

Count in MySQL and ASP results

Normally when we started to program in ASP started with Access tables, which are very useful to some extent, when you've already migrated to MySQL (Highly Recommended) some things change, as the displaying of the results of a query.

In Access use something like this:

SQL = "Select * From Table"
rs.Open SQL, oConn, 1.1

 few = RS.RecordCount 
 
 MySQL

But things change, if we use this technique the result is a horrible -1, to correct this is to use: Simply add

this:

rs.CursorLocation = 3

 Rs.Open

Before

and Walaa, I hope you serve.