<% theID=request.querystring("id") if theID="" then response.redirect("index___.asp") sql="select * from main 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 для тюнинга момо насадки на глушители <%response.write rs.fields("modelname")%> тюнинг и стайлинг авто от момо, спортивные рули, карбон, замша, кожа, дерево, MOMO
Спортивные рули MOMO Ручки КПП MOMO насадки на глушители Momo Ручники MOMO Педали MOMO


')> насадки на глушители <%=rs.fields(" src=pict_ped/<%=rs.fields("model")%>.jpg border=0 align="center">

Насадки на глушители момо <%response.write rs.fields("modelname")%>

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

<% If rs.fields("foto1")<>"A" Then %>
')> <%=rs.fields(" src=pict_ped/<%=rs.fields("foto1")%>.jpg border=0>
<%response.write rs.fields("name1")%>

<% END IF%> <% If rs.fields("foto2")<>"A" Then %>
')> <%=rs.fields(" src=pict_ped/<%=rs.fields("foto2")%>.jpg border=0>
<%response.write rs.fields("name2")%>

<% END IF%> <% If rs.fields("foto3")<>"A" Then %>
')> <%=rs.fields(" src=pict_ped/<%=rs.fields("foto3")%>.jpg border=0>
<%response.write rs.fields("name3")%>

<% END IF%> <% If rs.fields("foto4")<>"A" Then %>
')> <%=rs.fields(" src=pict_ped/<%=rs.fields("foto4")%>.jpg border=0>
<%response.write rs.fields("name4")%>

<% END IF%>

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

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