Спортивные рули MOMO Ручки КПП MOMO насадки на глушители Momo Ручники MOMO Педали MOMO

momo



 

MOMO Новости:

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=momoforum" strSQL = "SELECT tid, title, start_date FROM momo_topics WHERE forum_id=4 order by tid desc limit 10" set objRS = Conn.Execute (strSQL) Dim Months(12) Months(1) = "Января" Months(2) = "Февраля" Months(3) = "Марта" Months(4) = "Апреля" Months(5) = "Мая" Months(6) = "Июня" Months(7) = "Июля" Months(8) = "Августа" Months(9) = "Сентября" Months(10) = "Октября" Months(11) = "Ноября" Months(12) = "Декабря" Do While Not objRS.EOF ' -- output the contents Dim datetochange Response.Write "" Dim VBDate VBDate = DateAdd("s", objRS.Fields("start_date") , "1.1.1970") Dim myDate myDate=FormatDateTime(VBDate, VBShortDate) Response.Write "" Response.Write "" Response.write "" ' -- move to the next record objRS.MoveNext Loop objRS.close set objRS=nothing Conn.Close set Conn = Nothing %>
" & Day(myDate)&" "&Months(Month(myDate))&" "& Year(myDate) & "" & objRS.Fields("title") & "
 

Новости МОМО
Где купить МОМО
Где купить оптом МОМО
Спортивные рули МОМО
Ручки КПП МОМО
Насадки на глушители МОМО
Ручники МОМО
Спортивные педали МОМО
Диски МОМО
Распродажа МОМО
Распродажа дисков ATP
Forum.MOMOTUNING.ru
Каталог переходников
<% Response.Buffer = True %> <% Dim PollID PollID = "18"'Request.QueryString("PollID") If Len(PollID) <> 0 Then ' Check to see if a PollID was given ' Lookup poll id in database Set objConn = CreateObject("ADODB.Connection") Dim objConn dim rspoll dim optionid dim total dim rspolloptions dim result objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("db\polls.mdb")) ' Load the poll that matches PollID Set rsPoll = objConn.Execute("SELECT * FROM Polls WHERE PollID=" & PollID) If rsPoll.EOF Then Response.write "

No Such Poll

" Else ' Poll exists If Request.Cookies("devdomainpoll")(PollID) = "voted" Then ' Has Voted OptionID = false ' Don't display the vote links Else OptionID = Request.QueryString("OptionID") If Len(OptionID) > 0 Then ' User is trying to vote ' Update the count for the PollOption objConn.Execute "UPDATE PollOptions SET OptionSelectedCount = " & _ "OptionSelectedCount + 1 WHERE PollOptionID=" & OptionID ' Set a cookie to stop the user from voting again Response.Cookies("devdomainpoll")(PollID) = "voted" Response.Cookies("devdomainpoll").Expires = Now() + 365 OptionID = false ' Don't display the vote links Else OptionID = true End If End If Response.write "" Response.write rsPoll("PollQuestion") Response.write "" %>




Яндекс цитирования