MAKGIO

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> MAKGIO

Δίκτυο Συνεργατών

<% Dim cnn '/ADODB.Connection Dim rsGP '/ADODB.Recordset Dim strsql 'SQL String Dim iDisplay 'Dim iDisplay_limit Dim nomosID 'Paging Declarations Dim iPageCurrent 'The page we want to show Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim I iPageSize = 12 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If Set cnn = server.createobject("ADODB.Connection") cnn.ConnectionTimeout = 900 cnn.Open constr cnn.CursorLocation = 3 Set rsGP = server.createobject("ADODB.Recordset") nomosID = request.QueryString("area") 'response.write "NOMOS ID = " & nomosID strsql="SELECT * FROM customers where nomos_id = " & nomosID & ";" 'response.write strsql 'response.End rsGP.Open strsql, cnn rsGP.PageSize = iPageSize iPageCount = rsGP.PageCount 'iDisplay_limit = rsGP.RecordCount count = 0 rsGP.AbsolutePage = iPageCurrent iRecordsShown = 0 'do while not rsGP.EOF Do While iRecordsShown < iPageSize And Not rsGP.EOF select case count case 0 Response.write "" count=count+1 case 1 Response.write "" count=count+1 case 2 Response.write "" count=count+1 case 3 Response.write "" count=0 end select iRecordsShown = iRecordsShown + 1 rsGP.MoveNext loop if iPageCount > 1 then for I = 1 to iPageCount if I = 1 then Response.Write "" end if set rsGP.ActiveConnection = Nothing '/clean-up cnn.close set cnn = nothing Set rsGP = Nothing %>

" & rsGP.Fields("title") & "

" & rsGP.Fields("owner") & "
" & rsGP.Fields("address") & " " & rsGP.Fields("city") & " " & rsGP.Fields("postalcode") & "
Tel: " & rsGP.Fields("tel") & "

" & rsGP.Fields("title") & "

" & rsGP.Fields("owner") & "
" & rsGP.Fields("address") & " " & rsGP.Fields("city") & " " & rsGP.Fields("postalcode") & "
Tel: " & rsGP.Fields("tel") & "

" & rsGP.Fields("title") & "

" & rsGP.Fields("owner") & "
" & rsGP.Fields("address") & " " & rsGP.Fields("city") & " " & rsGP.Fields("postalcode") & "
Tel: " & rsGP.Fields("tel") & "

" & rsGP.Fields("title") & "

" & rsGP.Fields("owner") & "
" & rsGP.Fields("address") & " " & rsGP.Fields("city") & " " & rsGP.Fields("postalcode") & "
Tel: " & rsGP.Fields("tel") & "

" Response.Write "[" end if if not(I = iPageCount) then if I = iPageCurrent then Response.Write "Σελίδα " & I & " | " else %> Σελίδα <%=I%> | <% end if else if I = iPageCurrent then Response.Write "Page" & I else %> Σελίδα <%=I%> <% end if end if next Response.Write "]

Επιστροφή