error page

Discussion in 'ASP General' started by amatuer, Jul 20, 2006.

  1. amatuer

    amatuer Guest

    hi i have a link from page1 to page2. this link uses a querystring to
    transfer data. usually i have no problems using querystring t transfer
    data. bt for the first time page2 does not display.an eror page
    displays. i had a look at the properties of the error page to see if
    the url is correct and i noticed somthng iv never seen before.this is
    it:
    res://C:\WINDOWS\System32\shdoclc.dll/http_500.htm#http://gisserver/verslag/Trans_Edit3.asp?klient=54&adviseur=4&ActId=141&TId=264

    Anyone have any suggestions.
    Thanx
     
    amatuer, Jul 20, 2006
    #1
    1. Advertising

  2. amatuer

    Rob Meade Guest

    "amatuer" wrote ...

    > Anyone have any suggestions.


    Thats an internal server error (500) - post up the code for the
    Trans_edit3.asp

    Regards

    Rob
     
    Rob Meade, Jul 20, 2006
    #2
    1. Advertising

  3. amatuer

    amatuer Guest

    <% if session("ID") < 1 then
    response.redirect ("login.asp?key=1")
    end if

    sql="SELECT V_Transaksie.Datum, V_Transaksie.Dag, V_Transaksie.Maand,
    V_Transaksie.Jaar, V_Aktiwiteit.Lidnr, V_Persdetail.Voorletters,
    V_Persdetail.Van, V_Transaksie.Item, V_Transaksie.Ure,
    V_Transaksie.Aantal, V_Transaksie.Prys, V_Transaksie.Verhaalbaar,
    V_LU_Aktiwiteit.Aktiwiteitsverslag, V_Aktiwiteit.ID FROM V_Transaksie
    INNER JOIN V_Aktiwiteit ON V_Transaksie.Aktiwiteit_ID = V_Aktiwiteit.ID
    INNER JOIN V_Persdetail ON V_Transaksie.PersId = V_Persdetail.ID INNER
    JOIN V_LU_Aktiwiteit ON V_Aktiwiteit.Aktiwiteit = V_LU_Aktiwiteit.ID
    Where V_Transaksie.Id =" & request.form("TId")
    set rstMain = CreateObject("ADODB.Recordset")

    if request.querystring("klient") > 2000000 then
    sqlC="SELECT * From V_LU_Aktiwiteit Where Number1=" &
    request.querystring("klient")
    else
    sqlC="SELECT * From Vers_KlanteInfo Where KlantNr=" &
    request.querystring("klient")
    end if
    set rstMainC = CreateObject("ADODB.Recordset")


    While not rstMain.eof
    tel=tel+1
    rstMain.movenext
    Wend
    %>

    <html>
    <script for= "Jaar" language="VBScript" event="onChange">
    MaandWaarde = myForm.Maand.value
    for i = 0 to myForm.Dag.options.length
    myForm.Dag.options.remove(0)
    next
    select case Maandwaarde
    case 1 Dae2 = 31
    case 2 Dae2 = 28
    case 3 Dae2 = 31
    case 4 Dae2 = 30
    case 5 Dae2 = 31
    case 6 Dae2 = 30
    case 7 Dae2 = 31
    case 8 Dae2 = 31
    case 9 Dae2 = 30
    case 10 Dae2 = 31
    case 11 Dae2 = 30
    case 12 Dae2 = 31
    end select
    if Dae2 = 28 then
    Skrikjaar = myForm.Jaar.value / 4
    if instr(Skrikjaar, ".") then
    Dae2 = 28
    else
    Dae2 = 29
    end if
    end if

    for i = 1 to Dae2
    set lys = document.createElement("Option")
    lys.text = i
    lys.value = i
    myForm.Dag.options.add lys
    next
    </script>
    <script for= "Maand" language="VBScript" event="onChange">
    MaandWaarde = myForm.Maand.value
    for i = 0 to myForm.Dag.options.length
    myForm.Dag.options.remove(0)
    next
    select case Maandwaarde
    case 1 Dae2 = 31
    case 2 Dae2 = 28
    case 3 Dae2 = 31
    case 4 Dae2 = 30
    case 5 Dae2 = 31
    case 6 Dae2 = 30
    case 7 Dae2 = 31
    case 8 Dae2 = 31
    case 9 Dae2 = 30
    case 10 Dae2 = 31
    case 11 Dae2 = 30
    case 12 Dae2 = 31
    end select
    if Dae2 = 28 then
    Skrikjaar = myForm.Jaar.value / 4
    if instr(Skrikjaar, ".") then
    Dae2 = 28
    else
    Dae2 = 29
    end if
    end if

    for i = 1 to Dae2
    set lys = document.createElement("Option")
    lys.text = i
    lys.value = i
    myForm.Dag.options.add lys
    next
    </script>
    <script for= "Amnt" language="VBScript" event="onChange">

    Trans_Add3.total.value = formatnumber(Trans_Add3.Amnt.value *
    Trans_Add3.Price.value,2)

    </script>
    <script for= "Price" language="VBScript" event="onChange">
    Trans_Add3.total.value = formatnumber(Trans_Add3.Amnt.value *
    Trans_Add3.Price.value,2)

    </script>
    <head>
    <title></title>
    </head>
    <body text="#004A31" style="font-family: Tahoma;">
    <div align="center"><table width="100%" align="center">
    <form action="Trans_Edit4.asp?klient=<%= request.querystring("klient")
    %>&adviseur=<%= session("Pers_ID") %>&ActId=<%=
    request.querystring("ActId") %>&SelItem=<%= request.form("SelItem") %>"
    method="post" name="Trans_Add3">
    <tr>
    <td align="center"><img src="Senwes_02.jpg" width="512" height="128"
    border="0" alt=""></td>
    </tr>
    <tr>
    <td align="CENTER"><font size="+2"><b>Add Transaction</b></font></td>
    </tr>
    </table></div>
    <div align="center">
    <font size="+1"><b>Add Details</b></font><br></div>
    <br>
    <table width="50%" border="1" align="center">
    <tr>
    <td width="30%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Date</b></font></td>
    <td><font size="-1"><b>Year&nbsp;</b></font><select name="Jaar"
    id="Jaar">
    <option value="<%= rstMain("Jaar")%>" selected><%=
    rstMain("Jaar")%></option>
    <% for y = 1 to 46 %>
    <option value="<%= (rstMain("Jaar")) - y %>"><%= (rstMain("Jaar")) - y
    %></option>
    <% next %>
    </select>&nbsp;
    <font size="-1"><b>Month&nbsp;</b></font><select name="Maand"
    id="Maand" onChange="doList()">
    <% for m = 1 to 12 %>
    <option value="<%= m %>"<% If (rstMain("Maand")) = m then %>
    selected<% End If %>><%= m %></option>
    <% next %>
    </select>&nbsp;
    <font size="-1"><b>Day&nbsp;</b></font><select name="Dag" id="Dag">
    <% Maandwaarde = (rstMain("Maand"))
    select case Maandwaarde
    case 1 Dae2 = 31
    case 2 Dae2 = 28
    case 3 Dae2 = 31
    case 4 Dae2 = 30
    case 5 Dae2 = 31
    case 6 Dae2 = 30
    case 7 Dae2 = 31
    case 8 Dae2 = 31
    case 9 Dae2 = 30
    case 10 Dae2 = 31
    case 11 Dae2 = 30
    case 12 Dae2 = 31
    end select
    for i = 1 to Dae2 %>
    <option value="<%= i %>"<% If (rstMain("Dag")) = i then %> selected<%
    End If %>><%= i %></option>
    <% next %>
    </select>
    </td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Activity</b></font></td>
    <td><font face="Tahoma" size="-1" style="color: Black;"><%=
    rstMain("Aktiwiteitsverslag") %></font></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Item</b></font></td>
    <td><font face="Tahoma" size="-1" style="color: Black;"><%=
    rstMain("Item") %></font></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Amount</b></font></td>
    <td><input type="text" name="Amnt" value="<%= rstMain("Aantal")
    %>"></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Price</b></font></td>
    <td><font face="Tahoma" size="+0" style="color: Black;">R </font><% If
    trim(rstMain("Prys")) = "Free" Then %><input type="text" name="Price"
    value="Free" readonly>&nbsp;&nbsp;&nbsp;<font face="Tahoma" size="+0"
    style="color: Black;">Total</font>&nbsp;<font face="Tahoma" size="+0"
    style="color: Black;">R</font><input type="text" name="total"
    value="Free" readonly><% Else %>
    <% If isnull(trim(rstMain("Prys"))) then %>
    <input type="text" name="Price" value="0">
    <% Else %>
    <input type="text" name="Price" value="<%=
    formatnumber(trim(rstMain("Prys")),2) %>">&nbsp;&nbsp;&nbsp;<font
    face="Tahoma" size="+0" style="color: Black;">Total</font>&nbsp;<font
    face="Tahoma" size="+0" style="color: Black;">R</font><input
    type="text" name="total" value="<%=
    formatnumber(trim(rstMain("Prys")),2) %>" readonly><% End If %><% End
    If %></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Hours</b></font></td>
    <td><input type="text" name="Hrs"></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Invoicable</b></font></td>
    <td><% If trim(rstMain("Prys")) = "Free" Then %><font face="Tahoma"
    size="+0" style="color: Black;">No</font><% Else %><input
    type="checkbox" name="Inv" id="Inv" value="Invoicable" checked><% End
    If %></td>
    </tr>
    <tr>
    <td width="25%" bgcolor="Green"><font face="Tahoma" size="-1"
    color="white"><b>Remarks</b></font></td>
    <td><textarea cols="55" rows="3" name="remarks"></textarea></td>
    </tr>
    </table>
    <br>
    <table width="30%" align="center">
    <tr align="center"><td><input type="submit" value="Submit"
    style="BACKGROUND-COLOR: #CD3200; BORDER-BOTTOM: green ridge;
    BORDER-LEFT: green ridge; BORDER-RIGHT: green ridge; BORDER-TOP: green
    ridge; COLOR: white; FONT-FAMILY: Tahoma; FONT-SIZE: x-small;
    FONT-WEIGHT: bold; HEIGHT: 28px; WIDTH: 190px; margin-bottom:
    2px;"></td></tr></table></form>

    </body>
    </html>


    Rob Meade wrote:
    > "amatuer" wrote ...
    >
    > > Anyone have any suggestions.

    >
    > Thats an internal server error (500) - post up the code for the
    > Trans_edit3.asp
    >
    > Regards
    >
    > Rob
     
    amatuer, Jul 20, 2006
    #3
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Samy
    Replies:
    0
    Views:
    551
  2. Eric
    Replies:
    0
    Views:
    588
  3. Bishop
    Replies:
    1
    Views:
    832
    Bishop
    Feb 24, 2007
  4. jobs
    Replies:
    1
    Views:
    304
    Brian Williams
    Nov 14, 2007
  5. Sujan
    Replies:
    1
    Views:
    163
Loading...

Share This Page