Newsgroup: it.comp.lang.visual-basic
Titolo: [OT ma non troppo]ERRORE IMPOSSIBILE SU DLL IN UNA PAGINA ASP

<td nowrap class=""UnitContentTHeader"">"
 
       If objRs.Fields(i).Type = "205" Then
        DataGrid = DataGrid & "<div title=""Non è possibile ordinare
una colonna con Records di questo tipo"">" & objRs.Fields(i).Name &
"</div>"
         Else: DataGrid = DataGrid & "<a href='" &
Request.ServerVariables("SCRIPT_NAME") & "?campo=" &
CStr(objRs.Fields(i).Name) & "&OrderBy=" & CheckSorting(StrOrderBy) &
" '>" & objRs.Fields(i).Name & " " & ImgOrder(StrOrderBy) & "</a>"
 
       End If
               DataGrid = DataGrid & "</td ></span>"
    Next
 
        DataGrid = DataGrid & "<td nowrap
class=""UnitContentTHeader"">Modifica</td ><td nowrap
class=""UnitContentTHeader"">Cancella</td >"
 
 
                If objRs.PageCount < intPage Then intPage =
objRs.PageCount
                objRs.AbsolutePage = intPage
 
 
                strRowColor = "white"
                Do While Not objRs.EOF And intRecord <= intPageSize
 
 
        DataGrid = DataGrid & "<tr bgcolor=" & strRowColor & ">"
 
        For ii = 0 To (objRs.Fields.Count - 1)
           DataGrid = DataGrid & "<td nowrap>"
           If VarType(objRs.Fields(ii)) <> "8209" Then  'controlla che
non sia un campo di tipo BLOB
             DataGrid = DataGrid & Check(objRs.Fields(ii).value)
           Else
           DataGrid = DataGrid & "<IMG SRC=""img/blob.gif""
ALT=""CAMPO BLOB ATTUALMENTE NON SUPPORTATO"">"
            '
            ' Response.ContentType = "image/BMP"
             'datagrid = datagrid &
Response.BinaryWrite(objRS(ii).GetChunk(objRS(ii).ActualSize))  &
"</td >"
    'Response.Write     ("<IMG SRC=""C:\Documents and Settings\Luigi
Corrias\Desktop\Capture_10172003_063326.BMP"">")
           End If
 
           DataGrid = DataGrid & "</td >"
        Next
 
               DataGrid = DataGrid & "<td Class=""ContentUnitLink"" 
nowrap ><IMG SRC=""img/Modifica.gif"" border=0 ALT=""Modifica questo
record""><a href=""" & Request.ServerVariables("SCRIPT_NAME") &
"?ModificaByID=" & objRs.Fields(IdentityField) & """ title=""Modifica
questo Record"" > Modifica</a></td ><td Class=""ContentUnitLink""
nowrap><IMG SRC=""img/cancella.gif"" border=0 ALT=""Cancella questo
record""><a  href=""" & Request.ServerVariables("SCRIPT_NAME") &
"?CancellaByID=" & objRs.Fields(IdentityField) & """ title=""Cancella
questo Record"" onclick=""return confirmSubmit()"" >
Cancella</a></td></tr>"
            If strRowColor = "white" Then strRowColor = "#efefef" Else
strRowColor = "white"
            intRecord = intRecord + 1
            objRs.MoveNext
        Loop
 
            DataGrid = DataGrid & "</tr></table>"
'paginazione
            DataGrid = DataGrid & "         <br><div
align=""center"">" & Paging(intPage, objRs.PageCount,
objRs.RecordCount) & "</div><br>"
'Forza la liberazione delle Risorse
If IsObject(objRs) Then
    If Not objRs Is Nothing Then
        If objRs.State = adStateOpen Then objRs.Close
        Set objRs = Nothing
    End If
End If
If IsObject(objCn) Then
    If Not objCn Is Nothing Then
        If objCn.State = adStateOpen Then objCn.Close
        Set objCn = Nothing
    End If
End If
End If
End Function
'Questa funzione si occupa di ritornare un corretto valore per il
sorting
Private Function CheckSorting(ByVal value As String) As String
 
  If value = "" Then
     CheckSorting = "ASC"
  ElseIf value = "DESC" Then
        CheckSorting = "DESC"
  ElseIf value = "ASC" Then
        CheckSorting = "ASC"
   End If
End Function
'Questa funzione privata si occupa di disporre la corretta immagine
nel link del sorting
Private Function ImgOrder(ByVal value As String) As String
        If value = "" Then
         ImgOrder = "<IMG SRC=""img/invisibile.gif"" title=""clicka su
questo link per ordinare i Records di questa colonna in senso
Discendente"" border=0 >"
        ElseIf value = "DESC" Then
         ImgOrder = "<IMG SRC=""img/down.gif"" title=""clicka su
questo link per ordinare i Records di questa colonna in senso
Discendente"" border=0 >"
        ElseIf value = "ASC" Then
         ImgOrder = "<IMG SRC=""img/up.gif"" title=""clicka su questo
link per ordinare i Records di questa colonna in senso Ascendente""
border=0 >"
        End If
End Function
Private Function MakeDouble(ByVal varValue) As Double
 
    If IsNumeric(varValue) Then
        MakeDouble = CDbl(varValue)
    Else
        MakeDouble = 0
    End If
End Function
'Questa funzione privata si occupa di formattare i campi del database
Private Function Check(ByVal varValue) As String
'formattiamo i campi NULL del database
  If IsNull(varValue) Then
       Check = "<span title=""NULL"">&nbsp;</span>"
 
  Else ' altrimenti..
 
    If Left(varValue, 4) = "http" Then 'formatta i Link
       Check = "<span Class=""ContentUnitLink""><a  href=""" &
varValue & """ title=""Link"">" & varValue & "</a></span>"
    End If
    'formatta le immagini
    If Right(varValue, 4) = ".gif" Or Right(varValue, 4) = ".bmp" Or
Right(varValue, 4) = ".jpg" Or Right(varValue, 4) = ".png" Or
Right(varValue, 4) = ".jpeg" Then
       Check = "<IMG SRC=""" & varValue & """ ALT=""Immagine tratta
dal Database"">"
    End If
 
    If Left(varValue, 4) <> "http" Then ' formatta i campi normali
 
       If Len(varValue) >= 40 Then
          Check = Left(varValue, 40) & ("<span
title=""continua"">...</span")
       Else
          Check = varValue
       End If
 
    End If
  End If
End Function
'paginazione
Private Function Paging(ByVal intPage As Double, ByVal intPageCount As
Double, ByVal intRecordCount As Double) As String
 
Dim strQueryString As String
Dim strScript      As String
Dim intStart       As Double
Dim intEnd         As Double
Dim strRet         As String
Dim i              As Double
Paging = "<span class=""paging"">"
    If intPage > intPageCount Then
        intPage = intPageCount
    ElseIf intPage < 1 Then
        intPage = 1
    End If
 
    If intRecordCount = 0 Then
        Paging = Paging & "Nessun Record trovato"
    ElseIf intPageCount = 1 Then
        Paging = Paging & "Fine dei Records"
    Else
        For i = 1 To Request.QueryString.Count
            If LCase(Request.QueryString.Key(i)) <> "page" Then
                strQueryString = strQueryString & "&"
                strQueryString = strQueryString &
Server.URLEncode(Request.QueryString.Key(i)) & "="
                strQueryString = strQueryString &
Server.URLEncode(Request.QueryString.Item(i))
            End If
        Next
        For i = 1 To Request.Form.Count
            If LCase(Request.Form.Key(i)) <> "page" Then
                strQueryString = strQueryString & "&"
                strQueryString = strQueryString &
Server.URLEncode(Request.Form.Key(i)) & "="
                strQueryString = strQueryString &
Server.URLEncode(Request.Form.Item(i))
            End If
        Next
        If Len(strQueryString) <> 0 Then
            strQueryString = "?" & Mid(strQueryString, 2) & "&"
        Else
            strQueryString = "?"
        End If
        strScript = Request.ServerVariables("SCRIPT_NAME") &
strQueryString
 
        If intPage <= 10 Then
            intStart = 1
        Else
            If (intPage Mod 10) = 0 Then
                intStart = intPage - 9
            Else
                intStart = intPage - (intPage Mod 10) + 1
            End If
        End If
        intEnd = intStart + 9
        If intEnd > intPageCount Then intEnd = intPageCount
 
        Paging = Paging & "Pagina " & intPage & " di " & intPageCount
& "&nbsp;&nbsp;&nbsp; "
 
        If intPage <> 1 Then
            Paging = Paging & "<a href=""" & strScript &
"page=1"">First </><a href=""" & strScript
            Paging = Paging & "page=" & intPage - 1
            Paging = Paging & """> &lt;&lt;Prev</a>"
        End If
 
        For i = intStart To intEnd
            If i = intPage Then
                Paging = Paging & " <b> " & i & " </b> "
            Else
                Paging = Paging & " <a href=""" & strScript
                Paging = Paging & "page=" & i
                Paging = Paging & """>" & i & "</a> "
                If i <> intEnd Then strRet = strRet & " "
            End If
        Next
 
        If intPage <> intPageCount Then
            Paging = Paging & " <a href=""" & strScript
            Paging = Paging & "page=" & intPage + 1
            Paging = Paging & """> Next&gt;&gt;</a><a href=""" &
strScript
            Paging = Paging & "page=" & intRecordCount
            Paging = Paging & """> " & " Last</a> "
        End If
    End If
 
Paging = Paging & "</span>"
 
End Function

 COSA CAZZO NON FUNZIONA?
Visto che l'errore è chiarissimo, la domanda (senza postare 17Kb di codice)
è:
Quale cazzo è e cosa cazzo dice la riga 76?

 Quale cazzo č e cosa cazzo dice la riga 76?
dai Lupo puoi contarle anche tu no!
ciao Ilario
buona serata

 dai Lupo puoi contarle anche tu no!
No! (spero si capisca cosa intendo)

 ha scritto nel messaggio
news:bmrqu0$qeed8$1...@ID-174464.news.uni-berlin.de...

dai, non fare il maleducato. Fai copia & incolla dentro notepad, poi fai
ctrl+g e scrivi 76, dai un'occhiata alla linea, correggi l'errore e poi lo
reinvii a Luigi. Davvero non lo faresti?!!?!?
Ma perchč, scusa?!?!?!?!
:-ppPPpp
ovviamente sto scherzando......
good coding!!!
-- 
Damiani Liborio Igor
http://www.igordamiani.it
Nella finestra Debug di VB:
Nome="igor":? Nome & Chr$(64) & Nome & "damiani" & Chr$(46) & "it"
Che tu sia maledetto, SWEN...

 Ma perchč, scusa?!?!?!?!
Perchč non so contare. :-P

Ho risolto da solo grazie..
Non mi dava l'errore nella linea della dll ma bensi nella linea della pagina asp..
Quindi il messaggio di errore non mi diceva nulla...
Ho risolto registrando il componente con il MTS e non con regserver

 Ho risolto registrando il componente con il MTS e non con regserver
Forse il componente citato/riferito dalla line 76 della pagina ASP?...