Se Puede Hacer En Asp??????

[angel_dope]

Muy wenas a tod@s una vez más. A ver, tengo el siguiente problema: quiero acceder desde una .asp a unas consultas de access pero esas consultas utilizan unas funciones que están en un módulo, y al acceder a la consulta desde la asp, me devuelve un error diciendo algo asi como que la función no está definida en la consulta.Se puede acceder a la consulta dsd la pagina y q encuentre la funcion? Y si no se puede, se puede implementar la función en la propia asp?Y en este último caso, alguien me puede ayudar?Xq es una peazo de función y yo no tengo ni idea de Visual Basic.
Os pongo la función por si alguien quiere exarle un vistazo y me puede dar alguna ayudita.

Código PHP:

  Function BarrarptEmpresasIRecibidoTrueEvolucion() '(c1 As String, Optional c2 As String, Optional c3 As String, Optional c4 As String, Optional c5 As String, Optional c6 As String)
On Error GoTo etq
Dim ts As Recordset
Dim rs As Recordset
Dim sql As String
 
Dim Ola1, Ola2, Ola3, Ola4, Ola5, Ola6 As String
Dim Año1  As Integer
Dim Año2  As Integer
Dim Año3  As Integer
Dim Año4 As Integer
Dim Año5 As Integer
Dim Año6 As Integer
Dim resp
Dim pos
Dim I As Byte
 
Dim vObj As Form
Set vObj = Forms!frmEmpIRecibidoEvolucion
 
'limpio
CurrentDb.Execute "Delete * from tmpEmpRecibidasEvolucion"
 
Dim qdf As QueryDef
Set rs = CurrentDb.OpenRecordset("select * from tmpEmpRecibidasEvolucion", dbOpenDynaset)
 
'parametros de entrada ----------------------------------------------
'Ola/Año 1
resp = vObj.txt1s
'resp = c1
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola1 = Mid(resp, 1, pos - 1)
        Año1 = Mid(resp, pos + 1, Len(resp))
        'i = 1
    End If
End If
 
'Ola/Año 2
resp = vObj.txt2s
'resp = c2
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola2 = Mid(resp, 1, pos - 1)
        Año2 = Mid(resp, pos + 1, Len(resp))
        'i = 2
    End If
End If
 
'Ola/Año 3
resp = vObj.txt3s
'resp = c3
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola3 = Mid(resp, 1, pos - 1)
        Año3 = Mid(resp, pos + 1, Len(resp))
        'i = 3
    End If
End If
 
'Ola/Año 4
resp = vObj.txt4s
'resp = c4
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola4 = Mid(resp, 1, pos - 1)
        Año4 = Mid(resp, pos + 1, Len(resp))
        'i = 4
    End If
End If
 
'Ola/Año 5
resp = vObj.txt5s
'resp = c5
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola5 = Mid(resp, 1, pos - 1)
        Año5 = Mid(resp, pos + 1, Len(resp))
        'I = 3
    End If
End If
 
'Ola/Año 6
resp = vObj.txt6s
'resp = c6
If Not IsNull(resp) Then
    pos = InStr(1, resp, "/")
    If pos = 0 Then
        MsgBox ("Formato incorrecto." & vbCrLf & vbCrLf & _
                   "(formato ola/año)" & vbCrLf & _
                   "pej. 2/2000 -> segunda ola del año 2000"), vbExclamation
        Exit Function
    Else
        Ola6 = Mid(resp, 1, pos - 1)
        Año6 = Mid(resp, pos + 1, Len(resp))
        'i = 4
    End If
End If
 
 
'-----------------------------------------------------
Set qdf = CurrentDb.QueryDefs("consEmpRecibidasEvolucion1")       'abro query.
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 1")
vObj.txt1s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola1
qdf.Parameters("Introduzca Año de la Ola") = Año1
Set ts = qdf.OpenRecordset
While Not ts.EOF
    rs.AddNew
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas1") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo1") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono1") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
 
Wend
 
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 2")
vObj.txt2s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola2
qdf.Parameters("Introduzca Año de la Ola") = Año2
Set ts = qdf.OpenRecordset
If Not rs.EOF Then rs.MoveFirst
While Not ts.EOF
    If IsNull(ts.Fields("tmpNpanelista")) Then 'existe?
        rs.AddNew
        Else
        rs.FindFirst "npanelista='" & ts.Fields("npanelista") & "'"
        rs.Edit
    End If
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas2") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo2") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono2") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
Wend
 
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 3")
vObj.txt3s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola3
qdf.Parameters("Introduzca Año de la Ola") = Año3
Set ts = qdf.OpenRecordset
If Not rs.EOF Then rs.MoveFirst
While Not ts.EOF
    If IsNull(ts.Fields("tmpNpanelista")) Then
        rs.AddNew
        Else
        rs.FindFirst "npanelista='" & ts.Fields("npanelista") & "'"
        rs.Edit
    End If
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas3") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo3") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono3") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
Wend
 
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 4")
vObj.txt4s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola4
qdf.Parameters("Introduzca Año de la Ola") = Año4
Set ts = qdf.OpenRecordset
If Not rs.EOF Then rs.MoveFirst
While Not ts.EOF
    If IsNull(ts.Fields("tmpNpanelista")) Then
        rs.AddNew
        Else
        rs.FindFirst "npanelista='" & ts.Fields("npanelista") & "'"
        rs.Edit
    End If
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas4") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo4") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono4") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
Wend
 
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 5")
vObj.txt5s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola5
qdf.Parameters("Introduzca Año de la Ola") = Año5
Set ts = qdf.OpenRecordset
If Not rs.EOF Then rs.MoveFirst
While Not ts.EOF
    If IsNull(ts.Fields("tmpNpanelista")) Then
        rs.AddNew
        Else
        rs.FindFirst "npanelista='" & ts.Fields("npanelista") & "'"
        rs.Edit
    End If
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas5") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo5") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono5") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
Wend
 
resp = SysCmd(acSysCmdSetStatus, "Ola/Año 6")
vObj.txt6s.BackColor = 10079487
qdf.Parameters("Introduzca Nº de Ola") = Ola6
qdf.Parameters("Introduzca Año de la Ola") = Año6
Set ts = qdf.OpenRecordset
If Not rs.EOF Then rs.MoveFirst
While Not ts.EOF
    If IsNull(ts.Fields("tmpNpanelista")) Then
        rs.AddNew
        Else
        rs.FindFirst "npanelista='" & ts.Fields("npanelista") & "'"
        rs.Edit
    End If
    rs.Fields("npanelista") = ts.Fields("npanelista")
    rs.Fields("FaxConLlamadas6") = ts.Fields("FaxConLlamadas")
    rs.Fields("FaxEspontaneo6") = ts.Fields("FaxEspontaneo")
    rs.Fields("Telefono6") = ts.Fields("Telefono")
    rs.Update
ts.MoveNext
Wend
 
'-----------------------------------------------------------
resp = SysCmd(acSysCmdSetStatus, "Calcula Peso...")
If Not rs.EOF Then rs.MoveFirst
Set ts = CurrentDb.OpenRecordset("consEmpRecibidasEvolucion2")       'abro query.
While Not ts.EOF
 
    rs.Edit
    If IsNull(ts.Fields("cluster")) Then
        rs.Fields("cluster") = ""
        Else
        rs.Fields("cluster") = ts.Fields("cluster")
    End If
    rs.Fields("empresa") = ts.Fields("empresa")
    'If IsNull(ts.Fields("peso")) Or ts.Fields("peso") = "" Then
    '    rs.Fields("peso") = 0
    '    Else
    '    rs.Fields("peso") = ts.Fields("peso")
    'End If
     rs.Fields("peso") = CalculaValor(ts.Fields("NPANELISTA"), ts.Fields("CLUSTER"))
    rs.Update
ts.MoveNext
rs.MoveNext
Wend
 
 
resp = SysCmd(acSysCmdClearStatus)
'-----------------------------------------------------------
DesdeForm = "BarrarptEmpresasIRecibidoTrueEvolucion"
DesdeN = Ola1 & "/" & Año1 & "*" & Ola2 & "/" & Año2 & "*" & Ola3 & "/" & Año3 & "*" & Ola4 & "/" & Año4 & "*" & Ola5 & "/" & Año5 & "*" & Ola6 & "/" & Año6
DoCmd.OpenReport "EmpresasIRecibidoTrueEvolucion", acViewPreview
 
Forms!frmEmpIRecibidoEvolucion.SetFocus
DoCmd.Close
End Function 
   

Venga, un saludito a todos, y gracias por adelantado, espero que alguien me pueda ayudar, por que es muy urgente. Ciao