• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.

Vbscript ilgili yardım acil

Konuyu Okuyan Kişiler (0)

ONURBEY28

webmaster.tc
Katılım
11 Ocak 2013
Mesajlar
1
Beğeniler
0
#1
Merhabalar arkadaşlar
Ekte Gönderdiğim Resimlerde görüldüğü üzere 1. Ve 2. Resimdeki konu başlıklarına eklenen metinleri
3. resimde son eklenenler bölümünde görmek istiyoruz.






sitedeki kod
Kod:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/artideger.asp" -->
<%
Dim Slider
Dim Slider_cmd
Dim Slider_numRows

Set Slider_cmd = Server.CreateObject ("ADODB.Command")
Slider_cmd.ActiveConnection = MM_artideger_STRING
Slider_cmd.CommandText = "SELECT * FROM Vergi ORDER BY Kimlik DESC"
Slider_cmd.Prepared = true

Set Slider = Slider_cmd.Execute
Slider_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Slider_numRows = Slider_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<html>
<head>
<title>Artı Deger</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<link href="Css/mainframe.css" rel="stylesheet" type="text/css">

</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">



<table border="0" width="569" class="img2">
	<tr>
		<td align="center" class="img2" width="561">
		<img border="0" src="IMG/Artilogo_1.jpg"></td>
	</tr>
</table>
<table border="0" width="574" class="img2" style="page-break-after: left; page-break-before: left; border-width: 0; border-collapse:collapse" height="170">
	<tr>
		<td align="center"> 
		<table border="0" width="572" class="img3">
	<tr>
		<td bgcolor="#6DA6E2" align="center" class="Tabloyazilar" height="15">
		<p align="left"><b>
		  Son Eklenenler</font></font></b></td>
	</tr>
	<tr>
		<td align="center" class="img2" width="564">
		<p align="left">
		<marquee onMouseOver="this.stop()" onMouseOut="this.start()" width="554" height="165" direction="up" scrollamount="1" scrolldelay="40">
	    <p><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.addenetim.com','pop_up', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=1000,height=700'); return false;"style="text-decoration: none"><font color=#000000></a><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.addenetim.com','pop_up', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=1000,height=700'); return false;"style="text-decoration: none"> </a><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.addenetim.com','pop_up', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=1000,height=1000'); return false;"style="text-decoration: none">     </a>
            
          <%
While ((Repeat1__numRows <> 0) AND (NOT Slider.EOF))
%>
          <p><A HREF="Vergigoster.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "Kimlik=" & Slider.Fields.Item("Kimlik").Value %>"><%=(Slider.Fields.Item("Sbaslik").Value)%></A>
         
            <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Slider.MoveNext()
Wend
%>

</marquee></td>
	</tr>
</table>
		</td>
	</tr>

	<tr>
		<td align="center">
<table>
	<tr>
		<td><font color="#FFFFFF" style="font-size: 1pt"></font></td>
	</tr>
</table>
		</td>
	</tr>
</table>



<table border="0" width="549" class="img2" style="border-width: 0; border-collapse:collapse">
	<tr>
		<td align="center">
<table border="0" width="575" class="img2" style="page-break-after: left; page-break-before: left; border-width: 0; border-collapse:collapse" height="170">
	<tr>
		<td align="center"> 
		<table border="0" width="572" class="img4">
	<tr>
		<td bgcolor="#6DA6E2" align="center" class="Tabloyazilar" height="15">
		<p align="left"><b>
		  Web Sayfalarımız</b></td>
	</tr>
	<tr>
		<td align="center" class="img2" width="564">
		<p align="left">
		<marquee onMouseOver="this.stop()" onMouseOut="this.start()" width="484" height="165" direction="up" scrollamount="1" scrolldelay="40">
<p><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.jhiturkey.com','pop_up'); return false;"style="text-decoration: none" target=_parent>http://www.addenetim.com</a><br />
<p><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.addenetim.com','pop_up'); return false;"style="text-decoration: none">http://www.eristi.com</a><br />
<p><a href="pop_up" onClick="window.name='artideger'; window.open('http://www.vergidanismani.com','pop_up'); return false;"style="text-decoration: none">http://www.vergidanismani.com</a><br />
</marquee></td>
	</tr>
</table>
		</td>
	</tr>

	<tr>
		<td align="center"> 
</td>
	</tr>
</table>



		</td>
	</tr>
	</table>



</body>
</html>
<%
Slider.Close()
Set Slider = Nothing
%>
 

XFQ

webmaster.tc
Katılım
1 Eyl 2012
Mesajlar
217
Beğeniler
0
#2
sql sorgunun başına örnek

select top 10 * from icerikler

şeklinde gönderirseniz ilk 10 kaydı alır

select top 10 * from icerikler order by id desc

şeklinde gönderirseniz son 10 kaydı gösterir.

Umarım yardımcı olabilmişimdir.