WordPress.org

Ready to get started?Download WordPress

Forums

WordPress asp issue (1 post)

  1. kondapalli88
    Member
    Posted 1 year ago #

    Hi., I have used one asp page in my wordpress pages.
    I created one new page and i inserted one asp page by using

    <iframe id="I1" name="I1" src="http://www.example.org/Directory/results.asp" frameborder="0" scrolling="no" width="900" height="20000"></iframe>

    But the problem is the functionality what we have used in results.asp page is not working on wordpress page.
    The functionality is anchor click,if we click on specific topic it will go to that point in the page.

    code we used in asp page

    <body>
    <%
    Const adCmdTable = 2
    Dim accessdb
    Dim strconn
    accessdb=server.mappath("Members.mdb")
    strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
    strconn=strconn & accessDB & ";"
    'strconn=strconn & "USER ID=;PASSWORD=;"

    Dim strSQL0
    strSQL0 = "Select * FROM Members Order By Category, CompanyName"
    Dim objRS0
    Set objRS0 = Server.CreateObject("ADODB.Recordset")
    objRS0.Open strSQL0, strconn
    DIM CatCount
    CatCount=0
    Response.Write "<p class='style2'>| "
    Do While Not objRS0.EOF
    IF objRS0("Category") <> LastCategory THEN
    CatCount=CatCount + 1
    Response.Write "" & objRS0("Category") & " | "
    LastCategory = objRS0("Category")
    END IF
    objRS0.MoveNext
    Loop
    Response.Write "</p>"
    objRS0.Close
    Set objRS0 = Nothing
    %>
    <table style="width: 100%" cellpadding="12" cellspacing="0" class="style3">
    <tr>
    <%
    n12=2
    Dim strSQL
    Dim nParams
    nParams = 0
    strSQL = "Select * FROM Members Order By Category, CompanyName"
    Dim objRS
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open strSQL, strconn
    DIM RecordCount
    Do While Not objRS.EOF
    IF objRS("Category") <> LastCategory THEN
    IF n12=2 THEN
    Response.Write "</td></tr><tr><td valign='top' style='width: 50%'> 
    "
    ELSE
    Response.Write "<td valign='top' style='width: 50%'> 
    "
    END IF
    Response.Write "<p class='style2'>" & objRS("Category") & "</p></td><td></td>"
    n12=2
    LastCategory = objRS("Category")
    END IF
    IF n12=2 THEN
    Response.Write "</tr><tr>"
    n12=0
    END IF
    Response.Write "<td valign='top' style='width: 50%'><p class='style1'>"
    IF objRS("LogoUpload") <> "" THEN
    Response.Write " " & "<img src='http://www.ddifo.org/mdlogos/" & objRS("LogoUpload") & "' style='float: right' border='none' />"
    END IF
    Response.Write "<b>" & objRS("CompanyName") & "</b>
    "
    Response.Write objRS("ContactFirstName") & " " & objRS("ContactLastName") & "
    "
    Response.Write objRS("Address") & "
    "
    Response.Write objRS("City") & ", " & objRS("State") & " " & objRS("Zip") & "
    "
    Response.Write objRS("Phone") & "
    "
    Response.Write "" & objRS("EmailAddress") & "
    "
    Response.Write "" & objRS("WebAddress") & "

    </p></td>"
    n12=n12+1
    objRS.MoveNext
    Loop
    IF n12=2 THEN
    Response.Write "</tr><tr>"
    n12=0
    END IF
    objRS.Close
    Set objRS = Nothing
    %>
    </table>
    </body>

Topic Closed

This topic has been closed to new replies.

About this Topic

Tags