% set Mycon=Server.CreateObject("adodb.connection") Mycon.Open "Provider=microsoft.jet.oledb.4.0;Data Source=" & server.mappath("Database/userlogin.mdb") & ";Persist Security Info=False" set rst=server.createobject("adodb.recordset") if request("Submit")= "Submit" then rst.open "select * from contactus", Mycon,3,2 rst.addnew rst("ContactName")= request("contactname") rst("CompanyName")= request("companyname") rst("WebUrl")= request("weburl") rst("Email")= request("email") rst("Comments")= request("comments") rst("DesiredServices")= request("desiredServices") dim desired desired= request("desiredServices") select case trim(desired) case "Basic Website Desgining" desired1 = "selected" case "Dynamic Website Desgining" desired2 = "selected" case "Flash Website Designing" desired3 = "selected" case "Web Promotion" desired4 = "selected" case "Web Hosting" desired5 = "selected" case "Software Development" desired6 = "selected" case "Logo Designing" desired7 = "selected" case "3D Animation" desired8 = "selected" case "Any Other" desired9 = "selected" end select if request("desiredServices")="Any Other" then rst("Specify")= request("specify") end if rst.update end if %>
SiteDesigning India | Website Designing India | Web Development India | Web Designing Company India | Graphic Designing India | Software Development India | Logo Designing India | Internet Solutions India | Web Hosting India | Web Promotion India |
|||||||
![]() |
||||||||
|
|
||||||||
|
|
|
||||||||||||||||||||||||||||||||||||
|
©
2004, SiteDesigning.com All Rights Reserved
|
|
|||
|
||||||||