<% theID=request.querystring("id") if theID="" then response.redirect("index___.asp") sql="select * from kpp where id=" & theID set DB=Server.CreateObject("ADODB.Connection") db.Open "WHEELS_DB" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,DB,3,1 %> MOMOTuning.RU Ручка КПП коробки передач для тюнинга и стайлинга момо (momo-italy)  <%response.write rs.fields("model1")%> тюнинг и стайлинг авто от момо, спортивные рули, карбон, замша, кожа, дерево, MOMO
Спортивные рули MOMO Ручки КПП MOMO насадки на глушители Momo Ручники MOMO Педали MOMO

momo


')> <%=rs.fields(" src=pict_k/<%=rs.fields("file1")%>.jpg border=0>
 


Ручка кпп момо <%response.write rs.fields("model1")%>

<%response.write rs.fields("About")%>

 

Новости МОМО
Где купить МОМО
Где купить оптом МОМО
Спортивные рули МОМО
Ручки КПП МОМО
Насадки на глушители МОМО
Ручники МОМО
Спортивные педали МОМО
Диски МОМО
Распродажа МОМО
Распродажа дисков 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 "" %>




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

<% rs.close set rs = nothing db.close set db = nothing %>