% 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 submitlink ",Mycon ,3, 2 rst.addnew rst("Name") = request("name") rst("EmailId") = request("emailId") rst("Link_Title") = request("linktitle") rst("Link_Url") = request("linkUrl") rst("Link_Description") = request("linkDescription") rst("Reci_Link") = request("recilink") rst("Cetagory") = request("cetagory") dim catagory catagory = request("cetagory") select case trim(catagory) case "Information Technology" catagory1 = "selected" case "Website Designing" catagory2 = "selected" case "Graphics and Multimedia" catagory3 = "selected" case "SEO Expert" catagory4 = "selected" case "Computer Hardwares" catagory5 = "selected" end select 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
|
|
|||
|
||||||||