Pare de concatenar strings SQL!

[cyberalexxx]

Ta de saco cheio de ficar colocando & "'" nas suas instruções SQL???

Seus problemas acabaram!!!

Ta parecendo televenda né?? he he!!! achei essa função interessante:

Pare de concatenar strings SQL! (Versão VBScript)

Por Fabio A Lopes 

<%

'Autor: Fabio A Lopes

'Email: fabio@encode.com.br

Function ExpSQL(sql)

  Dim rg, mts, mt, varnom, varval, varsql

  Set rg = New RegExp

  rg.Pattern = "[=\s]@([\d\w]*)"

  rg.IgnoreCase = True

  rg.Global = True

  Set mts = rg.Execute(sql)

  For Each mt in mts

    varsql = trim(replace(mt.Value,"=",""))

    varnom = replace(varsql,"@","")

    varval = eval(varnom)

    If VarType(varval) = 8 Then varval = "'" & varval & "'"

    sql = replace(sql,varsql,varval,1,1,1)

  Next

  ExpSQL = sql

  Set mts = nothing

  Set rg = nothing

End Function

%>

Como usar:

<%

nome=request.QueryString("nome")

codigo=request.QueryString("codigo")

preço=request.QueryString("preço")

sql=ExpSQL("update produto set nome=@nome, preço=@preço where codigo=@codigo")

conn.Execute(sql)%>