<% 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 Спортивные педали момо (Momo) <%response.write rs.fields("modelname")%> тюнинг и стайлинг авто от момо, спортивные рули, карбон, замша, кожа, дерево, MOMO
Спортивные рули 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
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 "" %>




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