CodeKeep ASP Feed

Cheap acyclovir c.o.d. | order acyclovir overnight cod | cheap acyclovir no script

Sun, 21 Apr 2013 14:28:04 GMT

Description: Buy acyclovir without prescription, acyclovir, acyclovir for cheap

Link: http://www.codekeep.net/snippets/7bacd531-3f4a-4288-8916-94fb574e534e.aspx

<strong><a href="http://infosearchs.com/?q=acyclovir"> Click here  to buy acyclovir ! 100 % Highest Quality! Save Your Time and Money! </a></strong></p>

<p><a href="http://thisimgadv.com/ifeed/link/3407//acyclovir/1/glam"><img src="http://thisimgadv.com/ifeed/img/3407//acyclovir/1/glam" alt="glam" /></a><br />
<a href="http://thisimgadv.com/ifeed/link/3407//acyclovir/2/glam"><img src="http://thisimgadv.com/ifeed/img/3407//acyclovir/2/glam" alt="glam" /></a><br />
<a href="http://thisimgadv.com/ifeed/link/3407//acyclovir/3/glam"><img src="http://thisimgadv.com/ifeed/img/3407//acyclovir/3/glam" alt="glam" /></a></p>

<p><a href="http://infosearchs.com/?q=acyclovir"><img src="http://i46.tinypic.com/2m4c9c0.jpg" alt="2m4c9c0.jpg" /></a></p>

<strong><a href="http://infosearchs.com/?q=acyclovir"> BUY acyclovir ONLINE! -> CLICK HERE!  </a></strong></p>

<strong><a href="http://infosearchs.com/?q=acyclovir"> Order acyclovir And Save Your $$$!!!   </a></strong></p>

<strong><a href="http://infosearchs.com/?q=acyclovir"> CLICK HERE TO ENTER, Lowest Prices!   </a></strong></p>


<p>::. Description<br />
::. Prices<br />
::. Recommendations<br />
::. Precautions<br />
::. Ingredients<br />
<strong><a href="http://infosearchs.com/?q=acyclovir"> ::. More information... </a></strong></p>
<p>&nbsp;</p>

<p><strong><span style="font-size: 18px;"><a href="http://infosearchs.com/?q=acyclovir"> ::. ENTER HERE... </a></strong></span></p>

<p><em>Special internet prices, No hidden fees! 100% satisfaction guarantee!</em></p>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
order cheap <b>acyclovir</b> in UK USA, CANADA, UK, EUROPE, WORLDWIDE buy <b>
acyclovir online</b> in USA buy <b>acyclovir</b> cheap <b>online</b> in USA 
Canada uk <b>...</b><br>
<br>
<br>
<br>
Feb 17, 2013 <b>...</b> <b>acyclovir</b> buy <b>online</b> uk, Purchase <b>
acyclovir</b> buy <b>online</b> uk <b>online</b> from an official certified 
drugstore, overnight Shipping, best prices, fast <b>...</b><br>
<br>
<br>

<br>
<br>
<br>
Dec 12, 2012 <b>...</b> Buy <b>acyclovir online</b> no prescription uk - 10% OFF 
for all reorders. Bonus pills for every order. We sale brand and generic drugs. 
Fastest <b>...</b><br>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

  fedex overnight acyclovir  |   acyclovir cod saturday delivery fedex  |   acyclovir cod shipping  |   buy acyclovir online no membership  |   Cheap acyclovir NO RX  |   acyclovir cash delivery  |   order acyclovir online cod  |   buy acyclovir online overseas  |   acyclovir purchase on line no prescription fast delivery  |   buy acyclovir online next day delivery  |   cod acyclovir for saturday  |   i want to order acyclovir without a prescription  |   acyclovir purchase on line no prescription fast delivery  |   buy acyclovir cod delivery  |   online order online consultation for acyclovir  |   buy acyclovir without a prescription or membership  |   acyclovir online overnight delivery cod  |   acyclovir purchase on line no prescription fast delivery  |   acyclovir overnight no consult  |   buying acyclovir without a script  |   acyclovir generic cheapest  |   no rx acyclovir cod delivery  |   doctor shopping for acyclovir prescription  |   acyclovir cod orders  |   acyclovir buy no prepaid  |   acyclovir without presciption  |   pharmacy acyclovir no prescrption  |   acyclovir for cheap  |   acyclovir and overnight  |   acyclovir without a rx  |   no prescription next day delivery acyclovir  |   acyclovir overnight no rx  |   acyclovir no order online prescription  |   generic acyclovir fedex  |   online acyclovir cod pharmacy  |   order acyclovir online by fedex  |   acyclovir shipped COD on saturday delivery  |   acyclovir by cod  |   acyclovir overnight without prescription  |   canadian acyclovir diet pills without prescription  |   buy acyclovir medication cod  |   acyclovir  |   acyclovir prescription on line  |   acyclovir overnight COD  |   cheap acyclovir sales  |    buy acyclovir with cod  |   cod saturday acyclovir  |   acyclovir overnight no script mastercard accepted  |   acyclovir for cheap  |   buy prescription acyclovir online  |   acyclovir ups delivery only  |   acyclovir with next day delivery without prescription with free shipping  |   snorting acyclovir  |   acyclovir on sale cheap online  |   buy acyclovir   |   order acyclovir overnight cod  |   acyclovir cod no script  |   fedex acyclovir overnight  |   cash on delivery online prescriptions acyclovir  |   acyclovir without prescription shipped overnight express  |   cod acyclovir 120  |   acyclovir free fedex shipping  |   acyclovir free mail shipping  |   acyclovir deliver to uk fedex overnight  |   buy acyclovir with without rx  |   acyclovir overnight US delivery  |   acyclovir overnight no rx  |   acyclovir without rx overnight  |   acyclovir pay by cod  |   buy acyclovir with saturday delivery  |   no prescriptions needed for acyclovir  |   acyclovir cod saturday delivery fedex  |   generic acyclovir  |   acyclovir  with no prescription or membership  |   cheap acyclovir c.o.d.  |   acyclovir overnight delivery cheap  |   acyclovir overnight no script mastercard accepted  |   online acyclovir cod pharmacy  |   acyclovir fedex no prescription  |   order acyclovir  pharmacies cash on delivery  |   buy acyclovir without a prescription  |   acyclovir overdose  |   acyclovir online no prescription overnight  |   acyclovir cheap fedex delivery  |   cheap acyclovir without prescription overnight delivery  |   acyclovir deliver to uk fedex overnight  |   no prescription acyclovir with fedex  |   acyclovir shipped by cash on delivery  |   buy acyclovir cod delivery  |   acyclovir next day  |   order acyclovir without rx  |   acyclovir without perscription  |   acyclovir pay by cod  |   acyclovir overnight  |   acyclovir shipped overnight no prescription  |   canada acyclovir no prescription  |   acyclovir no rx saturday delivery  |   no prescription acyclovir with fedex  |   acyclovir ups c.o.d.  |   canada acyclovir no prescription  |   buy cheap cod online acyclovir  |   acyclovir online no prescription  |   acyclovir delivered overnight  |   acyclovir cod  |   acyclovir sale  |   order acyclovir online by fedex  |   buy acyclovir without a prescription overnight delivery  |   acyclovir prescriptions  |   acyclovir overnight without prescription  |   buy acyclovir online by cod  |   acyclovir order  no membership overnight  |   low price acyclovir without prescription  |   order acyclovir  |   get acyclovir over the counter fedex  |   overnight acyclovir cod shipping  |   acyclovir overnight fed ex no prescription  |   buy cheap acyclovir  |   online buy acyclovir  |   acyclovir overnight no script mastercard accepted  |   acyclovir ONLINE FEDEX COD FREE CONSULT  |   no prescription acyclovir next day  |   order online shopping for acyclovir prescription  |   acyclovir with no presciption  |   cheap acyclovir without prescription  |   buy acyclovir discount  |   acyclovir without dr  |   buy acyclovir order cod  |   acyclovir free consultation  |   order acyclovir without prescription from us  |   acyclovir free mail shipping  |   acyclovir discount fedex no prescription  |   prescription acyclovir cod  |   cheapest acyclovir   |   low price acyclovir without prescription  |   next day delivery acyclovir with no script  |   buy acyclovir online without dr approval  |   acyclovir ups cod  |   online buy acyclovir  |   U.S. pharmacies for acyclovir without rx  |   buy cheap cod online acyclovir  |   buy acyclovir with no rx  |   acyclovir order overnight shipping  |   buy acyclovir online overnight  |   acyclovir 2 days delivery|   order acyclovir  pharmacies cash on delivery  |   how to get a order online to prescript acyclovir  |   how to buy acyclovir   |   acyclovir overnight no rx  |   buy acyclovir with saturday delivery  |   acyclovir order online consult  |   acyclovir order  no membership overnight  |   real acyclovir fed ex  |   acyclovir cheap without rx required canada| |   acyclovir overseas  |   i want to order acyclovir without a prescription  |   acyclovir pay by cod  |   acyclovir overnight fed ex  |   acyclovir orders cod  |   without rx needed for purchasing acyclovir  |   cheap acyclovir without prescription  |   acyclovir overnight fed ex no prescription  |   acyclovir fedex without prescription  |   acyclovir free overnight fedex delivery  |   purchase acyclovir cod  |   acyclovir without a rx  |   acyclovir no rx saturday delivery  |   order acyclovir overnight cod  |   acyclovir with no prescriptions  |   how to purchase acyclovir online  |   acyclovir shipped overnight no prescription  |   acyclovir online overnight delivery cod  |   acyclovir saturday delivery  |   acyclovir  cheapest  |   acyclovir order online  |   acyclovir prescriptions  |   acyclovir overnight delivery no rx  |   buy acyclovir no credit card  |   acyclovir with no prescription and delivered over night  |   order acyclovir cod fedex  |   acyclovir c.o.d overnight delivery  |   where can i buy acyclovir no prescription  |   acyclovir without dr  |   low price acyclovir without prescription  |   buy acyclovir online next day delivery  |   acyclovir with no prescription and delivered over night  |   no prescription acyclovir with fedex  |   acyclovir for cheap  |   acyclovir overnight fed ex no prescription  |   overnight acyclovir ups cod  |   buy acyclovir cod next day fed ex  |   buy acyclovir discount  |   acyclovir non prescription for next day delivery  |   Buy acyclovir without prescription  |   canadian acyclovir diet pills without prescription  |   cheap acyclovir no script  |   fedex overnight acyclovir  |   buy prescription acyclovir   |   acyclovir next day no prescription needed  |   prescription acyclovir online  |   buy acyclovir with saturday delivery  |   acyclovir shipped COD on saturday delivery  |   acyclovir cod delivery  |   acyclovir prescription from doctors online  |   acyclovir cod saturday delivery fedex  |   buy no prescription acyclovir  |   no prescriptions needed for acyclovir  |   acyclovir  |   acyclovir overnight cod  |   buy acyclovir without prescription  |   buy acyclovir online next day delivery  |   acyclovir cod shipping  |   acyclovir discount fedex no prescription  |   buy acyclovir 120 tabs  |   acyclovir buy fedex  |   buy acyclovir on line  |   buy acyclovir with no rx  |   purchase acyclovir online  |   acyclovir ups cod  |   acyclovir on line purchase  |   acyclovir 2 days delivery|   online acyclovir cod pharmacy  |   acyclovir for cheap  |   acyclovir overnight fedex no prescription  |   nextday acyclovir  |   purchase acyclovir uk delivery  |   buy acyclovir firstclass delivery  |   buy acyclovir online overnight  |  Buy acyclovir without prescription  |   acyclovir cod next day delivery  |   order acyclovir online pharmacies cash on delivery  |   buy acyclovir online overseas  |   overnight acyclovir cod shipping  |   acyclovir shipped overnight without a prescription  |   acyclovir cod saturday delivery  |  Buy acyclovir without prescription  |   acyclovir from canada  |   acyclovir online Cash on Delivery  |   acyclovir perscription on line  |   acyclovir without perscription  |   acyclovir cod saturday delivery fedex  |   saturday delivery acyclovir cod  |   buy acyclovir overnight  |   acyclovir buy no prepaid  |   acyclovir and overnight  |   order acyclovir cod  |   fedex delivery acyclovir  |   Buy acyclovir without prescription  |   buy acyclovir with without rx  |   buy acyclovir with no prescription  |   acyclovir with no rx and free shipping  |   Cheap acyclovir NO RX  |   buy acyclovir without  |   buy acyclovir online uk  |   no prescription required acyclovir  |   cheap acyclovir by money order  |   no prescription acyclovir  |   no prescription next day delivery acyclovir  |   overnight acyclovir cod shipping  |   acyclovir overnight COD no prescription  |   cod acyclovir for saturday  |   cheap acyclovir c.o.d.  |   buy acyclovir with no prescription  |   online us acyclovir  |   online acyclovir no prescription  |   acyclovir buy fedex  |   buy acyclovir no insurance  |   buy acyclovir no insurance  |   acyclovir on sale cheap online  |   order acyclovir 3 days delivery  |   acyclovir with no presciption  |   acyclovir same day delivery  |   acyclovir ups c.o.d.  |   acyclovir with no prescription and delivered over night  |   acyclovir no order onlines prescription  |   acyclovir on line cash on delivery  |   buy acyclovir no insurance  |   buy acyclovir online by cod  |   acyclovir with no prescription  |   acyclovir order online  |   buying acyclovir without a script  |   acyclovir online fedex  |   acyclovir COD next day  |   buy acyclovir with saturday delivery  |   acyclovir overnight no script mastercard accepted  |   i want to order acyclovir without a prescription  |   order acyclovir over the counter cod overnight  |   buy acyclovir on line no prescription  |   buying acyclovir without a prescription  |   order acyclovir  pharmacies cash on delivery  |   acyclovir with no presciption  |   acyclovir no rx saturday delivery  |   acyclovir shipped COD  |   acyclovir on line cash on delivery  |   buy acyclovir no scam  |   acyclovir cheap next day  |   acyclovir shipped c.o.d.  |   acyclovir without prescription  |   buy acyclovir no prescription cod  |   no rx acyclovir cod delivery  |   acyclovir online cod  |   acyclovir doctor consult  |   no prescription next day delivery acyclovir  |   acyclovir overnight without prescription  |   buy no prescription acyclovir  |   buy acyclovir next day delivery  |   no prescription next day delivery acyclovir  |   online acyclovir  |   online buy acyclovir  |   acyclovir order online no membership overnight  |   acyclovir by cod  |   acyclovir pay by cod  |   order acyclovir online cod  |   acyclovir free consultation  |   buy acyclovir no doctor  |   online acyclovir cod pharmacy  |   acyclovir overnight fed ex no prescription  |   acyclovir Overnight COD no prescription  |   acyclovir overnight shipping no prescription  |   cheap acyclovir cod free fedex  |   acyclovir cod saturday delivery fedex  |   acyclovir purchase on line no prescription fast delivery  |   us acyclovir fedex  |   generic acyclovir fedex  |   acyclovir no prescrption  |   acyclovir without dr  |   order acyclovir overnight cod  |   acyclovir ups cod  |   acyclovir no prescription overnight shipping  |   buy acyclovir without a prescription or membership  |   buy acyclovir overnight cod  |   not expensive acyclovir overnight delivery  |   Docs dont presribe acyclovir  |   acyclovir with doctor consult  |   acyclovir with no rx and free shipping  |   acyclovir 100 mg overnight  |   buying acyclovir without a prescription  |  Buy acyclovir without prescription  |   buy acyclovir without a prescription online  |   buy acyclovir online without a prescription and no membership  |   acyclovir  cheapest  |   acyclovir overnight cheap  |   acyclovir rx  |   acyclovir without a script  |   order acyclovir cod fedex  |   no script acyclovir  |   acyclovir shipped c.o.d.  |   acyclovir no doctor  |   buy acyclovir with no rx  |   buy acyclovir with saturday delivery  |   acyclovir and overnight  |   acyclovir order overnight shipping  |   buy acyclovir on line  |   buy acyclovir overnight COD  |   buy acyclovir next day delivery  |   acyclovir online doctors  |   acyclovir without a presciption  |   cash for acyclovir  |   no prescriptions needed for acyclovir  |   cheap acyclovir for sale online no prescription required  |   order acyclovir without prescription from us pharmacy  |   acyclovir saturday delivery cod  |   no prescription acyclovir fedex delivery  |   no prescription next day delivery acyclovir  |   no prescription acyclovir  |   buy acyclovir online without a prescription and no membership  |   acyclovir online Cash on Delivery  |   online pharmacy cod acyclovir  |   fedex acyclovir overnight  |   cod shipped acyclovir  |   acyclovir cod saturday  |   acyclovir online order onlines  |   cheap acyclovir sales  |   acyclovir free consultation  |   how to buy acyclovir with out a prescription  |   buy acyclovir overnight delivery  |   online buy acyclovir  |   best buy bestbuy drugs acyclovir  |   acyclovir ups cod  |   fedex delivery acyclovir  |   cod shipped acyclovir  |   acyclovir 100 mg overnight  |   free shipping acyclovir  |   acyclovir without dr  |   acyclovir ups cod  |   acyclovir no order onlines prescription  |   acyclovir with no prescription and delivered overnight  |   acyclovir no rx fed ex  |   cod acyclovir no prescription  |   cheap acyclovir no script  |   acyclovir overnight fedex no prescription  |   acyclovir with no prescription and delivered over night  |   order acyclovir cod next day delivery  |   cod acyclovir 120  |   acyclovir overnight without prescription  |   overnight acyclovir  |   buy acyclovir from a usa pharmacy without a prescription  |   canadian acyclovir diet pills without prescription  |   Cash on deliver acyclovir overnight  |   acyclovir pay by cod  |   buy acyclovir no doctor  |   acyclovir with no prescription  |   cheap overnight acyclovir  |   acyclovir prescription on line  |   acyclovir free mail shipping  |   next day acyclovir delivery  |   acyclovir online  |   order acyclovir overnight cod  |   doctor shopping for acyclovir prescription  |   Docs dont presribe acyclovir  |   online cod acyclovir  |   buy no prescription acyclovir  |   cheap watson acyclovir no prescription needed  |   acyclovir on line purchase  |   cheap acyclovir without prescription  |   canada acyclovir no prescription  |   acyclovir shipped COD  |   acyclovir next day  |   cheap acyclovir next day delivery  |   acyclovir next day delivery  |   buy discount acyclovir online  |   buying acyclovir without a prescription  |   acyclovir overnight no script mastercard accepted  |   acyclovir with no presciption  |   generic acyclovir  |   acyclovir cod accepted  |   next day delivery acyclovir with no script  |   buy acyclovir no credit card  |   how to get acyclovir prescription  |   overnight acyclovir  |   acyclovir without dr  |   online doctor consultation for acyclovir  |   acyclovir order online no membership overnight  |   buy acyclovir online by cod  |   acyclovir on line no prescription  |   acyclovir without a prescription  |   acyclovir online health insurance lead  |   acyclovir prescription from doctors online  |   online us acyclovir  |   online us pharmacy acyclovir  |   acyclovir cod accepted  |   acyclovir doctor  |   acyclovir for sale online  |   cheap acyclovir without prescription overnight delivery  |   acyclovir overnight US delivery  |   acyclovir without prescription cheap  |   acyclovir cheap overnight fedex  |   acyclovir and overnight  |   online buy acyclovir  |   acyclovir overnight US delivery  |   acyclovir free mail shipping  |   acyclovir no prescrption  |   no prescription required for acyclovir---------------------  |   how to buy acyclovir   |   acyclovir pharmacy cod saturday delivery  |  Buy acyclovir without prescription  |   cheap acyclovir over night  |   buying acyclovir   |   where to buy acyclovir no prescription no fees  |   cheap acyclovir sales  |   buy prescription acyclovir online  |   acyclovir with no prescriptions  |   buy acyclovir next day delivery  |   cheap acyclovir without prescription overnight delivery  |   acyclovir delivered overnight  |   acyclovir overnight fedex  |   acyclovir purchase on line no prescription fast delivery  |   buy acyclovir without a prescription   |   order acyclovir  |   acyclovir cheap without rx required canada| |   acyclovir shipped COD  |   cheap watson acyclovir no prescription needed  |   online acyclovir cod  |   buy acyclovir online consultation us  |   acyclovir cod saturday delivery  |   acyclovir with no prescriptions  |   acyclovir overnight  |   acyclovir no doctor  |   acyclovir  cheapest  |   canada acyclovir no prescription  |   acyclovir discount fedex no prescription  |   acyclovir non prescription for next day delivery  |   acyclovir   |   buy acyclovir overnight COD  |   no prescription acyclovir overnight  |   buy acyclovir medication cod  |   acyclovir cash delivery  |   fedex acyclovir overnight  |   acyclovir  Cash on Delivery  |   online cod acyclovir  | 
<p><a href="http://www.webjam.com/toppharm/$my_blog/2013/04/16/buy_butalbital_overnight_cod__cod_saturday_butalbital__buy_cash_delivery_butalbital__buy_butalbit"> butalbital without rx saturday delivery  | </a> </p><p><a href="http://www.rocktropia.com/forum/blogs/u9749-custom44/"> cheapest zanaflex online  | </a> </p><p><a href="https://www.evernote.com/shard/s279/sh/601f182f-ccab-4502-9a6a-dc70e82fa259/78907057ee76bad426c670689db92d4f"> buy tramadol online no membership  | </a> </p><p><a href="http://www.tiedater.hu/node/41352"> buy zyprexa on line  | </a> </p><p><a href="https://cw.sdn.sap.com/cw/community/asug/els/private/blog/2013/03/07/buy-ultram-cod-buy-ultram-from-a-usa-pharmacy-without-a-prescription-order-ultram-saturday-delivery"> ultram overnight fed ex no prescription  | </a> </p>

Function GetPath()

Tue, 28 Sep 2010 10:31:45 GMT

Description: Function GetPath()

Link: http://www.codekeep.net/snippets/9db2608f-713b-4ea8-91a6-da7f61b1035b.aspx

	Function GetPath()
		Dim pathInfo, mypath
		pathInfo = Request.ServerVariables("SCRIPT_NAME")
		mypath = "http://" & Request.ServerVariables("SERVER_NAME")  &  left(pathInfo,InStrRev(pathInfo , "/"))
		GetPath = mypath
	End Function

Valida E-Mail

Wed, 09 Jun 2010 14:37:28 GMT

Description: Valida E-Mail

Link: http://www.codekeep.net/snippets/67a731c5-6499-4c78-a726-1dd85e4fc433.aspx

<%
Function isValidEmail(myEmail)
  dim isValidE
  dim regEx
  isValidE = True
  set regEx = New RegExp
  regEx.IgnoreCase = False
  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
  isValidE = regEx.Test(myEmail)
  isValidEmail = isValidE
End Function
%>

<%
	if isValidEmail(rs("email")) = True then
	    response.write rs("email") & "<br />"
	    'Mensagem.Send
	else
	    response.write "E-Mail invalido ñ enviado " & rs("email") & "<br />"
	end if
%>

Fun��o Function remove accents Acentos

Tue, 04 May 2010 12:34:49 GMT

Description: Fun��o que remove Acentos Function remove accents

Link: http://www.codekeep.net/snippets/0065bc7f-115f-48bc-846c-ea002833b5c2.aspx

<%
' code by Ton Trevisan

Function RemoveAcentos(ByVal Texto)
    Dim ComAcentos
    Dim SemAcentos
    Dim Resultado
	Dim Cont
    'Conjunto de Caracteres com acentos
    ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
    'Conjunto de Caracteres sem acentos
    SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
    Cont = 0
    Resultado = Texto
    Do While Cont < Len(ComAcentos)
	Cont = Cont + 1
	Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
    Loop
    RemoveAcentos = Resultado
End Function
%>

Verificar Informa��es do Servidor

Tue, 04 May 2010 12:18:39 GMT

Description: Codigo verifica quais objetos instalados no server, caminhos (paths), etc..

Link: http://www.codekeep.net/snippets/7e0313e9-dc86-432c-9526-c91547b891ec.aspx

<%@ LANGUAGE = VBScript%>
<%
'***********************************************************************
'**				Reconhecimento de Servidor Web 	      **
'**                                                                   **
'**                    TODOS OS DIREITOS RESERVADOS                   **
'**                                                                   **
'**              Ton Trevisan                                         **
'**                                                                   **
'***********************************************************************
%>
<html>

<head>
<title>Ton Trevisan&nbsp; -&nbsp; Reconhecimento do servidor</title>
<style>
<!--
A:link { text-decoration: none }
A:visited { text-decoration: none }
A:active { text-decoration: none }
A:hover { text-decoration: underline }
-->
</style>
</head>
<body>
<p align="center"><font face="verdana, arial, helvetica, sans-serif" size="4">Ton Trevisan - <font color="#F79618">Reconhecimento 
de servidor </font></font><font face="verdana, arial, helvetica, sans-serif" size="2"><b>(Versão 1.0)</b></font></p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="50%" bgcolor="#E2E2E2" align="left"><b><font face="Verdana" size="3">Informações do Servidor</font></b></td>
      <td width="50%" bgcolor="#E2E2E2" align="left"><b><font face="Verdana" size="3">Informações do Sistema</font></b></td>
    </tr>
    <tr>
      <td width="65%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Nome do servidor</b>:&nbsp;<% = Request.ServerVariables("SERVER_NAME") %></font></td>
      <td width="35%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Sistema</b>:&nbsp;<% = ScriptEngine %></font></td>
    </tr>
    <tr>
      <td width="65%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Nome do script</b>:&nbsp;<% = Request.ServerVariables("SCRIPT_NAME") %></font></td>
      <td width="35%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Versão</b>:&nbsp;<%  =ScriptEngineMajorVersion() %>.<% =ScriptEngineMinorVersion() %></font></td>
    </tr>
    <tr>
      <td width="65%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Protocolo do servidor</b>:&nbsp;<% = Request.ServerVariables("SERVER_PROTOCOL") %></font></td>
      <td width="35%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Atualizado</b>:&nbsp;<% =ScriptEngineBuildVersion() %></font></td>
    </tr>
    <tr>
      <td width="65%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Pasta local</b>:&nbsp;<% = Request.ServerVariables("PATH_INFO") %></font></td>
      <td width="35%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Tempo de Resposta</b>:&nbsp;
        <% inicio = Timer 
      response.write FormatNumber( Timer - inicio, 2 ) & " seg."
      %></font></td>
    </tr>
    <tr>
      <td width="65%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>End. físico</b>:&nbsp;<% = Request.ServerVariables("PATH_TRANSLATED") %></font></td>
      <td width="35%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Seu IP</b>:&nbsp;<%= request.servervariables("REMOTE_ADDR") %></font></td>
    </tr>
  </table>
  </center>
</div>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="100%" colspan="2" bgcolor="#E2E2E2">
        <p align="center"><b><font face="Verdana" size="3">Componentes</font></b></td>
    </tr>
    <tr>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>CDonts Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objCDONTS = Server.CreateObject("CDONTS.Session")
   If Err.Number <> 0 Then
      Response.Write("Não instalado&nbsp;&nbsp;")
   Else
      Response.Write("Instalado a versão: " & objCDONTS.Version & " &nbsp;")
   End If
%></font></td>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>ASPUpload Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objASPUpload = Server.CreateObject("Persits.Upload.1")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado ")
   End If
%></font></td>
    </tr>
    <tr>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>ASPMail Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objASPMail = Server.CreateObject("SMTPsvg.Mailer")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado a versão " & objASPMail.Version )
   End If
%></font></td>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>ADO DB Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objConn = Server.CreateObject("ADODB.Connection")
   If Err.Number <> 0 Then
      Response.Write("ADODB.Connection object Não instalado")
   Else
      Response.Write("Instalado a versão " & objConn.Version & "<BR>")
   End If
%></font></td>
    </tr>
    <tr>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>ASPEmail Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objASPEmail = Server.CreateObject("Persits.MailSender")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado")
   End If
%></font></td>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Bamboo.SMTP Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objBamboo = Server.CreateObject("Bamboo.SMTP")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado")
   End If
%></font></td>
    </tr>
    <tr>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>JMail Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objJMail = Server.CreateObject("JMail.SMTPMail")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado")
   End If
%></font></td>
      <td width="50%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>File System Object</b>:&nbsp;
<% Err.Clear
   On Error Resume Next
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   If Err.Number <> 0 Then
      Response.Write("Não instalado")
   Else
      Response.Write("Instalado")
   End If
%></font></td>
    </tr>
  </table>
  </center>
</div>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="100%" bgcolor="#E2E2E2">
        <p align="center"><font face="Verdana" size="3"><b>Informações desta transmissão</b></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#F0F0F0"><font size="2" face="Verdana">
<%
   On Error Resume Next
   vRunDate = Now
   sRunDate = Request.QueryString("DATE")
   If Len(Trim(sRunDate)) = 0 Then
      sRunDate = Request.Form("DATE")
   End If
   Response.Write("<FONT SIZE=""2"">")
   If IsDate(sRunDate) Then
      vRunDate = CDate(sRunDate)
      Response.Write("<BR><FONT SIZE=""2"">RunDate:" & sRunDate)
   Else
      Response.Write("<BR>RunDate: Now")
   End If
   Response.Write("<BR>RunDate : " & vRunDate )
   Response.Write("<BR>CDate(RunDate) : " & CDate(vRunDate) )
   Response.Write("<BR>CDate("" & RunDate) : " & CDate("" & vRunDate) )
%>
<%
Application.Lock
IF NOT isArray( Application( "lastTen" ) ) THEN
DIM dummy( 10, 3 )
Application( "lastTen" ) = dummy
END IF
lastTen = Application( "lastTen" )
Application.UnLock

' Mover cada visita abaixo no Array
IF lastTen( 9, 0 ) <> "" THEN
FOR i = 0 TO 9
lastTen( i, 0 ) = lastTen( i + 1, 0 )
lastTen( i, 1 ) = lastTen( i + 1, 1 )
lastTen( i, 2 ) = lastTen( i + 1, 2 )
NEXT
END IF

' Somar uma nova entrada
FOR i = 0 TO 9
IF lastTen( i, 0 ) = "" THEN
lastTen( i, 0 ) = Request.ServerVariables( "REMOTE_ADDR" )
lastTen( i, 1 ) = Request.ServerVariables( "HTTP_USER_AGENT" )
lastTen( i, 2 ) = NOW()
EXIT FOR
END IF
NEXT

Application.Lock
Application( "lastTen" ) = lastTen
Application.UnLock 

%>
</font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#F0F0F0"><font size="2" face="Verdana"><b>Transmitido</b>: <% = Now %></font></td>
    </tr>
  </table>
  </center>
</div>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td width="100%" colspan="4" bgcolor="#E2E2E2">
        <p align="center"><font face="Verdana" size="3"><b>Últimas 10 visitas nessa página</b></font></td>
    </tr>
    <tr>
      <td width="10%" align="center" bgcolor="#E2E2E2"><font font 2"" size="2" face="Verdana"><b>Visitas</b></font></td>
      <td width="20%" align="center" bgcolor="#E2E2E2"><font font 2"" size="2" face="Verdana"><b>IP</b></font></td>
      <td width="50%" align="center" bgcolor="#E2E2E2"><font font 2"" size="2" face="Verdana"><b>Browser</b></font></td>
      <td width="20%" align="center" bgcolor="#E2E2E2"><font font 2"" size="2" face="Verdana"><b>Hora da visita</b></font></td>
    </tr>
    </table>
</div>
<font face="Arial">
<div align="left">
<table bgcolor="#F0F0F0" cellspacing=0 cellpadding=0 border=0 width="100%">
<FONT SIZE=""2"">
<% 
FOR i = 0 TO 9 
IF lastTen( i, 0 ) <> "" THEN
%>
</font>
<tr>
<td width="10%" align="center"><font 2"" size="2"><b><%=i + 1%></b></font></td>
<td width="20%" align="center"><font 2"" size="2"><b><%=lastTen( i, 0 )%></b></font></td>
<td width="50%" align="center"><font 2"" size="2"><b><%=lastTen( i, 1 )%></b></font></td>
<td width="20%" align="center"><font 2"" size="2"><b><%=lastTen( i, 2 )%></b></font></td>
</tr>
<FONT SIZE="" 2"">
<%
END IF
NEXT
%>
</table>
</div>
</font>
</center>
</font>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">&nbsp;</p>
      <p align="center" style="word-spacing: 1; text-indent: 0; margin-top: 1; margin-bottom: 1"><b><font size="1" face="Verdana">Sistema
      desenvolvido por <a href="#" target="_blank"> Ton Trevisan</a> - Todos os direitos reservados</font></b>
</body>
)

ServerVariables("QUERY_STRING")

Mon, 08 Feb 2010 23:02:33 GMT

Description: QS

Link: http://www.codekeep.net/snippets/c55f51f2-28ae-4b2e-aef2-d50455e5b3f1.aspx

<%=Request.ServerVariables("QUERY_STRING")%>

Populate a combo from a database query

Tue, 13 Oct 2009 02:19:50 GMT

Description: This sample really takes me back, haven't done asp since 2003! I'm just archiving this so I don't need to look it up again and making it public in case someone else needs a memory jolt :)

Link: http://www.codekeep.net/snippets/e5cde3c9-7b58-4a96-90ba-a5b4066ea65f.aspx

<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
   odbConnection.ConnectionTimeout = 30
   odbConnection.CommandTimeout = 30
   odbConnection.Open Session("[Connection String]")
   Set SQLStmt = Server.CreateObject("ADODB.Command")
   Set RS = Server.CreateObject ("ADODB.Recordset")

   SQLStmt.CommandText = "[SQL Statement goes here]"
   SQLStmt.CommandType = 1
   Set SQLStmt.ActiveConnection = OBJdbConnection
   RS.Open SQLStmt

%>
<select name="comboname" size="1">
<%
Do While Not RS.EOF
   %>
	<OPTION value="<%=RS("Value_Field_Name")%>"><%=RS("Description_Field_Name")%></OPTION>
   <%
   RS.MoveNext
   Loop


   OBJdbConnection.Close
   Set OBJdbConnection = Nothing
%>
</select>

Recordset Call

Tue, 07 Oct 2008 06:43:23 GMT

Description: This function performs a recordset call. You just need to pass in the SQL stirng and it will do the rest. Be sure to setup the ADO connection string in the Global.asa page.

Link: http://www.codekeep.net/snippets/99968e9c-c16b-43b8-b624-8ddfe9156a15.aspx

function getRecords(strSQL)

	Dim rsTemp
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
	
	with rsTemp
		.activeConnection = Session("ADOSQLConnection")
		.cursorLocation = 2
		.cursorType = 0
		.lockType = 3
		.Source = strSQL
		.Open()
	end with
	
	Set getRecords = rsTemp
	
end function

Check if number

Tue, 07 Oct 2008 06:34:15 GMT

Description: This function is used to prevent a SQL Injection Attack. If the parameter is not numerical, it is sent back as null.

Link: http://www.codekeep.net/snippets/963a28cb-235d-453d-b3b2-3e3e1d94ec64.aspx

function checkParameter(intParam)
				
	If len(intParam) > 0 and isNumeric(intParam) then
		checkParameter = intParam
	else
		checkParameter = null
	end if

end function

Format Date

Wed, 01 Oct 2008 08:06:10 GMT

Description: This is a script that was written by "amattice" and posted to The Code Project: http://www.codeproject.com/KB/asp/ASP_FormatDate.aspx

Link: http://www.codekeep.net/snippets/f1b21965-f7cf-43de-8bba-fd52af5b5173.aspx

Function FormatDate(strDate, strDateFmt)
  dim strRet
  dim i  
  dim formatBlock
  dim formatLength
  dim charLast
  dim charCur
  
  formatLength = len(strDateFmt)
  
  for i = 1 to formatLength + 1
    ' grab the current character
    charCur = mid(strDateFmt, i, 1)
    
    if charCur = charLast then
        ' The block is not finished.  Continue growing the block and iterate to the next character.
        formatBlock = formatBlock & charCur
    else
        ' we have a change and need to handle the previous block
        select case formatBlock
        case "mmmm"
            strRet = strRet & MonthName(DatePart("m",strDate),False)
        case "mmm"
            strRet = strRet & MonthName(DatePart("m",strDate),True)
        case "mm"
            strRet = strRet & right("0" & DatePart("m",strDate),2)
        case "m"
            strRet = strRet & DatePart("m",strDate)
        case "dddd"
            strRet = strRet & WeekDayName(DatePart("w",strDate,1),False)
        case "ddd"
            strRet = strRet & WeekDayName(DatePart("w",strDate,1),True)
        case "dd"
            strRet = strRet & right("0" & DatePart("d",strDate),2)
        case "d"
            strRet = strRet & DatePart("d",strDate)
        case "o"
            strRet = strRet & intToOrdinal(DatePart("d",strDate))
        case "yyyy"
            strRet = strRet & DatePart("yyyy",strDate)
        case "yy"
            strRet = strRet & right(DatePart("yyyy",strDate),2)
        case "y"
            strRet = strRet & cInt(right(DatePart("yyyy",strDate),2))
        case else
            strRet = strRet & formatBlock
        end select
        ' Block handled.  Now reset the block and continue iterating to the next character.
        formatBlock = charCur
    end if
    
    charLast = charCur
  next 'i
 
  FormatDate = strRet
End Function

Strip HTML

Wed, 01 Oct 2008 07:46:09 GMT

Description: This function will strip all html tags from a text string

Link: http://www.codekeep.net/snippets/a1ab8429-0e40-40b9-94e5-3e9d8cf4d684.aspx

Function RemoveHTML( strText ) 
    Dim nPos1
    Dim nPos2
    
    nPos1 = InStr(strText, "<") 
    Do While nPos1 > 0 
        nPos2 = InStr(nPos1 + 1, strText, ">") 
        If nPos2 > 0 Then 
            strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1) 
        Else 
            Exit Do 
        End If 
        nPos1 = InStr(strText, "<") 
    Loop 
    
    RemoveHTML = agentdesc 
End Function

IIF

Thu, 30 Aug 2007 02:54:24 GMT

Description: IIF

Link: http://www.codekeep.net/snippets/f1f5c992-1bdd-448b-a9c2-dbe43fc7ec06.aspx

Function iif(psdStr, trueStr, falseStr)
  if psdStr Then
    iif = trueStr
  Else 
    iif = falseStr
  End If
End Function

Memo Data Display Options

Thu, 23 Aug 2007 01:50:22 GMT

Description: Display memo field using Response.Write

Link: http://www.codekeep.net/snippets/d377f48f-41c8-4e3a-9104-36bbf9c50105.aspx

<%Response.Write "<PRE>" & rs("email") & "</PRE>"%> 

or

Instead of using <pre>, replace the carriage returns with <br> like so: 
msg = rs("email") 
msg = replace(msg, chr(13), "<br>") 
response.write msg

RSS on Webpage

Fri, 06 Jul 2007 11:26:25 GMT

Description: This shows how to put an RSS on a webpage

Link: http://www.codekeep.net/snippets/f7f32264-8c2d-4be2-8853-dc2a9258505d.aspx

<%
Response.Expires = -1

' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005-2007 (c) www.Bytescout.com
' version 1.23, 14 June 2007
' ===============================================
' ##############################################################
' ####### CHECK OUR COMMERCIAL PRODUCTS FOR ASP/ASP.NET: #######
' SWF Scout [ http://bytescout.com/swfscout.html ]- create, read, modify flash movies (SWF)
' SWF SlideShow Scout [ http://bytescout.com/swfslideshowscout.html ]- convert JPEG,PNG,BMP into slideshow flash (SWF) with effects
' PDFDoc Scout [ http://bytescout.com/pdfdocscout.html ]- generate PDF documents with security options
' ##############################################################

' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://www.bytescout.com/blog/feed"

' ##### max number of displayed items #####
MaxNumberOfItems = 7

' ##### Main template constants
MainTemplateHeader = "<table>"
MainTemplateFooter = "</table>"
' #####

' ######################################
Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword
Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too
' #################################

' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {DESCRIPTION} will be replaced with item description
' ##### {DATE} will be replaced with item date and time
' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog)
' ##### {CATEGORY} will be replaced with item category
ItemTemplate = "<tr><td><strong>{DATE}</strong><br/><strong>{CATEGORY}<br/></strong><a href=" & """{LINK}""" & ">{TITLE}</a><BR>{DESCRIPTION}</td></tr>"

' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>Please contact web-master"

' ================================================

Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText

Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = False
xmlDOM.validateOnParse = False
xmlDom.resolveExternals = False

If not xmlDOM.LoadXml(RSSXML) Then
ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage
End If

Set xmlHttp = Nothing ' clear HTTP object

Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS

RSSItemsCount = RSSItems.Length-1

' if not <item>..</item> entries, then try to get <entry>..</entry>
if RSSItemsCount = -1 Then
Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS
RSSItemsCount = RSSItems.Length-1

End If

Set xmlDOM = Nothing ' clear XML


' writing Header
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If

j = -1

For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)

for each child in RSSItem.childNodes

Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
If RSSLink = "" Then
If child.Attributes.length>0 Then
RSSLink = child.GetAttribute("href")
if (RSSLink <> "") Then
if child.GetAttribute("rel") <> "alternate" Then
RSSLink = ""
End If
End If
End If ' if has attributes
If RSSLink = "" Then
RSSlink = child.text
End If
End If
case "description"
RSSdescription = child.text
case "content" ' atom format
RSSdescription = child.text
case "published"' atom format
RSSDate = child.text
case "pubdate"
RSSDate = child.text
case "comments"
RSSCommentsLink = child.text
case "category"
Set CategoryItems = RSSItem.getElementsByTagName("category")
RSSCategory = ""
for each categoryitem in CategoryItems
if RSSCategory <> "" Then
RSSCategory = RSSCategory & ", "
End If

RSSCategory = RSSCategory & categoryitem.text
Next
End Select
next

' now check filter
If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then

j = J+1

if J<MaxNumberOfItems then
ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
ItemContent = Replace(ItemContent,"{DATE}",RSSDate)
ItemContent = Replace(ItemContent,"{COMMENTSLINK}",RSSCommentsLink)
ItemContent = Replace(ItemContent,"{CATEGORY}",RSSCategory)

Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
ItemContent = ""
RSSLink = ""
End if
End If

Next

' writing Footer
if RSSItemsCount > 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If

' Response.End ' uncomment this for use in on-the-fly output
%>

DATE Read in SQL

Thu, 17 May 2007 06:27:44 GMT

Description: How to read the date fields in SQL or Access files through ASP

Link: http://www.codekeep.net/snippets/042426ac-3482-4f49-8e51-fa70ccf65eef.aspx

SELECT *
FROM main_ca
WHERE date_submit BETWEEN #MMdatefrom# AND #MMdateto#
ORDER BY id_stamp DESC

DELETE Command using SQL and ASP

Thu, 26 Oct 2006 09:51:50 GMT

Description: DELETE command in SQL using ASP

Link: http://www.codekeep.net/snippets/a86a0f5f-2e90-4ed8-b2be-3494a83618b9.aspx

		strq = "DELETE FROM general_census WHERE db_id = " & db_id & ";"
		cnnSimple.Execute strq

Send a file attachment with your email message using cdosys

Fri, 18 Aug 2006 16:51:55 GMT

Description: This is a little sub-routine to send email messages using cdosys with an optional file attachment.

Link: http://www.codekeep.net/snippets/e8df5761-a530-42c6-acc4-3c0d13f1e592.aspx

Sub SendCDOSYSMessage(sTo, sFrom, sSubject, sMessageBody, sAttachmentFilename)
    Dim iMsg
    Dim iConf
    Dim Flds
    Dim strHTML
    
    Const cdoSendUsingPort = 2
    
    set iMsg = CreateObject("CDO.Message")
    set iConf = CreateObject("CDO.Configuration")
    
    Set Flds = iConf.Fields
    
    ' set the CDOSYS configuration fields to use port 25 on the SMTP server
    
    With Flds
      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
      .Update
    End With
    
    ' apply the settings to the message
    With iMsg
        Set .Configuration = iConf
        .To = sTo
        .From = sFrom
        .Subject = sSubject
        if InStr(sMessageBody, "<html>") > 0 Then
            .HTMLBody = sMessageBody
        else
            .TextBody = sMessageBody
        end if
        if Len(sAttachmentFilename) > 0 then
            .AddAttachment(sAttachmentFilename)
        End if
        .Send
    End With
    
    ' cleanup of variables
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing

End Sub

Update XML File from vb.net

Fri, 10 Feb 2006 10:48:55 GMT

Description: Update XML File from vb.net

Link: http://www.codekeep.net/snippets/23937219-16eb-4159-b5d7-98a04acde940.aspx

Dim xmlDoc As New System.Xml.XmlDocument
xmlDoc.Load(EafDocsRootDir & "Infopath\patterns\Submitted\" & userFileName & ".xml")
Dim elemList As XmlNodeList = xmlDoc.GetElementsByTagName("my:PatternName")
Dim k As Integer
For k = 0 To elemList.Count - 1
   elemList(k).InnerText = userFileName
Next k
xmlDoc.Save(EafDocsRootDir & "Infopath\patterns\Submitted\" & userFileName & ".xml")

SONAR Test 2

Thu, 09 Feb 2006 14:37:42 GMT

Description: SQL COde

Link: http://www.codekeep.net/snippets/4e56c3c9-b9ce-40b0-8b53-d731d7868db6.aspx

Select * from epsolon

setFocus to the passed control

Mon, 06 Feb 2006 10:41:45 GMT

Description: This routine generates the client script to set the focus to the passed control. In this instance the control is attached to a user control which is attached to a form

Link: http://www.codekeep.net/snippets/8bed4416-ee16-4590-bf60-c910e844088e.aspx

//************************************************************************
		//
		//   ROUTINE: setFocus
		//
		//   DESCRIPTION: This routine generates the client script to set the 
		//                focus to the passed control. In this instance the control is attached to 
		//					a user control which is attached to a form	
		//------------------------------------------------------------------------
		private void setFocus(System.Web.UI.Control controlToFocus    ){
			StringBuilder clientScript;
			// generate the opening script tag
			clientScript = new StringBuilder();
			clientScript.Append("<script language='javascript'>\n");
			clientScript.Append("<!--\n");


			// add the client script to set the control focus
			clientScript.Append("document." + controlToFocus.Parent.Parent.ID  + "." +
				controlToFocus.ClientID + ".focus();\n");

			// generate the closing script tag
			clientScript.Append("//-->\n");
			clientScript.Append("</script>\n");

			// register the client script to be output when the page is rendered
			Page.RegisterStartupScript("ScriptBlock", 
				clientScript.ToString());
		
		}  // setFocus

BindDataGrid

Mon, 06 Feb 2006 00:35:53 GMT

Description: This binds data grid

Link: http://www.codekeep.net/snippets/741c658c-8ea4-4a1e-b9cf-76412b1e4322.aspx

 ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' This binds data grid
    ''' </summary>
    ''' <param name="objDataGrid"></param>
    ''' <returns></returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02-08-2006	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Function BindDataGrid(ByVal objDataGrid As Object)
        objDataGrid.DataSource = CreateDataSource()
        objDataGrid.DataBind()
    End Function

Make BSpline From Curve

Tue, 31 Jan 2006 21:53:46 GMT

Description: Generata Bspline

Link: http://www.codekeep.net/snippets/1ae3962d-6f42-40de-a090-a1f6992a470f.aspx

Handle(Geom_Curve) myCurve = BRep_Tool::Curve(myEdge, First, Last);
Handle(Geom_BSplineCurve) myBSplCurve = Handle(Geom_BSplineCurve)::DownCast( myCurve);

Standard_Integer ival = myBSplCurve->NbPoles();

GeomConvert::CurveToBSplineCurve()
ShapeConstruct::ConvertCurveToBSpline()

GET THE ENTIRE PAGE (HTML) FROM A DIFFERENT SITE IN C#

Tue, 31 Jan 2006 14:33:28 GMT

Description: Gets the contents of another page from a different site altogether. Sample shows www.google.com

Link: http://www.codekeep.net/snippets/36b2e220-e3e6-428b-ad1b-276f9a5b6602.aspx

/*
		public String GetHtmlPage(string strURL)
		{
			// the html retrieved from the page
			String strResult;
			WebResponse objResponse;
			WebRequest objRequest = System.Net.HttpWebRequest.Create("http://www.google.com");
			objResponse = objRequest.GetResponse();
			// the using keyword will automatically dispose the object 
			// once complete
			using (StreamReader sr = 
					   new StreamReader(objResponse.GetResponseStream()))
			{
				strResult = sr.ReadToEnd();
				// Close and clean up the StreamReader
				sr.Close();
			}
			return strResult;
		}
*/

Custom Authenticaiton

Fri, 27 Jan 2006 11:16:24 GMT

Description: Custom Authenticaiton

Link: http://www.codekeep.net/snippets/bf65981a-92fe-4f8b-b82a-e56967726cfb.aspx

         /*
         SqlConnection sqlConn = new SqlConnection("server=devwebsql1;uid=sa;pwd=devntest;database=Membership;");
         sqlConn.Open();
            
         SqlCommand sqlComm = new SqlCommand("SELECT u_logon_name,u_user_security_password FROM UserObject WHERE u_logon_name = \'" + strUserName + "\'", sqlConn);
         SqlDataReader r = sqlComm.ExecuteReader();
         while ( r.Read() ) 
         {
            strSQLUserName = (string)r["u_logon_name"];
            strSQLPassword = (string)r["u_user_security_password"];
         }
         r.Close(); 

         sqlConn.Close();
         
         if (strSQLPassword == strPassword)
            return true;
         else
            return false;
            */

Cancel Button Event - Close Window Automatically

Tue, 24 Jan 2006 13:38:26 GMT

Description: Closes window automatically when the user clicks on the CANCEL button. This applies only to javascript enabled window.open() method

Link: http://www.codekeep.net/snippets/15068c08-298a-4787-9898-05c24464e52c.aspx

private void btnCancel_Click(object sender, System.EventArgs e)
		{
			string strScript = "<script>window.close();</script>";
			RegisterClientScriptBlock("CloseWindow", strScript);
		}