Hi,
It works fine in my machine. Not in this server. I think the problem is where ill highlight with black
it gives me this error page: http://dechihuahua.com/buscar.asp?searWords=visitantesCode:<!-- #INCLUDE VIRTUAL="adovbs.inc" --> <script LANGUAGE="JavaScript" RUNAT="Server"> ........... had tu cut it............. </script> <% Dim ItemsPerPage ItemsPerPage=10 Dim tmpVar,tmpVar2,connstr,strSQL Dim recCount,startItem,curItem,iCol tmpVar = Request( "match" ) GetMatchParameters( tmpVar ) tmpVar = Request( "search" ) GetSearchParameters( tmpVar ) If len( Request("start") ) > 0 Then startItem = CInt( Request("start") ) Else startItem = 0 End If GetOutputStart( startItem ) tmpVar = CStr( Request("searWords") ) SplitSearWords( tmpVar ) GetItemsPerPage( ItemsPerPage ) GetSearchFileName( Request.ServerVariables("SCRIPT_NAME") ) Set DataConn = Server.CreateObject("ADODB.Connection") Set DataRst = Server.CreateObject("ADODB.Recordset") DataRst.CursorLocation = adUseClient connstr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=HYDROGEN;"_ & " DATABASE=mydb;UID=blabla;PWD=mypass; OPTION=16387" dataconn.open connstr strSQL = ConstruSQL() If strSQL <> "" Then DataRst.Open strSQL, DataConn, 1 recCount = DataRst.RecordCount SetTotHitPageNum( recCount ) curItem = 0 If recCount > 0 Then DataRst.MoveFirst DataRst.Move startItem Do While (Not DataRst.EOF) AND curItem < ItemsPerPage iCol = 0 Do While iCol < 7 tmpVar = DataRst.fields(iCol) GetCurRecItem(tmpVar) iCol = iCol + 1 Loop curItem = curItem+1 DataRst.MoveNext Loop End If DataRst.Close Set DataRst = Nothing DataConn.Close Set DataConn = Nothing SortResult() OutPut("ASP") End If %>
Hope anybody can help


Reply With Quote

Yes it´s allways something small.

Bookmarks