ROR Sitemap for http://mysite.com/
mysite.com/
-
ROR Sitemap for http://mysite.com/
mysite.com/
sitemap
SiteMap
-
http://www.mysite.com/ror_remembers1.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers2.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers3.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers4.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers5.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers6.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers7.asp
week
1
sitemap
-
http://www.mysite.com/ror_remembers8.asp
week
1
sitemap
http://www.mysite.com/ror_remembers9.asp
week
1
sitemap
-
http://www.mysite.com/ror_skills1.asp
week
1
sitemap
-
http://www.mysite.com/ror_skills2.asp
week
1
sitemap
-
http://www.mysite.com/ror_skills3.asp
week
1
sitemap
the following is one of the dynamic asp pages
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim MM_conn_STRING
MM_conn_STRING = "dsn=mysitedbsource;uid=dingdong;password=woooooooooo"
%>
<%
Dim rspics
Dim rspics_cmd
Dim rspics_numRows
' Query the database and get all the records from the Images table
Set rspics_cmd = Server.CreateObject ("ADODB.Command")
rspics_cmd.ActiveConnection = MM_conn_STRING
rspics_cmd.CommandText = "SELECT id_usr, firstname_usr, lastname_usr FROM topofmountain.reg_user WHERE _rowid >=1 and _rowid <=100 and id_usr <> 90"
rspics_cmd.Prepared = true
Set rspics = rspics_cmd.Execute
' Send the headers
Response.ContentType = "text/xml"
Response.AddHeader "Pragma", "public"
Response.AddHeader "Cache-control", "private"
Response.AddHeader "Expires", "-1"
%>
<% While (NOT rspics.EOF) %>
-
http://www.mysite.com/woppee.asp?po=<%=(rspics.Fields.Item("id_usr").Value)%>&name=<%=(rspics.Fields.Item("firstname_usr").Value)&"_"&(rspics.Fields.Item("lastname_usr").Value)%>
week
1
sitemap
<%
rspics.MoveNext()
Wend
%>
<%
rspics.Close()
Set rspics = Nothing
%>
|