Hej!

Har kundkort som jag har (hämtat från db)
Har nu skapat funktion där vi kan lägga in reklamationer för att ha koll på reklamationspris och antal direkt ifrån ordern som lades.
Problem här är att jag EJ får fram kundnr från ordernr (fråga EJ varför)
Hur kan jag plocka med detta till nytt fönster?

Upplägg är

kund.asp

all info finns om kund; kundnr, namn, etc.
Här listas även de senaste ordrarna från vårt system (hämtas från orderTabell)

Har ny skapat ny sida (popup med javascript) där all info om orderNr kommer (men ej kundnr då detta ej finns på ordernivå)

Hur kan jag få med mig kundnr från kund.asp till kredit.asp??

Kredit.asp
<code>

<%
Set RS=Conn.Execute("SELECT * FROM FaktHstK WHERE Ordernr=" & Request.QueryString("Ordernr"))
%>

massa lull lull...............
<%
If RS.EOF then
Response.Write("<b>Finns inget Ordernr som matchar (är den fakturerad ännu?? - prova igen</b>")
Else Do until RS.EOF
%>

<% Dim farg
If farg = "#eeeeee" Then farg = "" Else farg = "#eeeeee" End If %>
<form name="form1" method="post" action="kreditering_sql.asp">
<tr bgcolor="<% = (farg) %>" class="BrodText">
<td class="linjeUnderTabell"><input name="OrderNr" type="text" id="OrderNr" value="<%=RS("Ordernr")%>" size="6" maxlength="6"></td>
<td class="linjeUnderTabell"><input name="KundNr" type="text" id="Kundnr" value="" size="5" maxlength="5"></td>
<td class="linjeUnderTabell"><input name="ArtikelNr" type="text" id="ArtikelNr" value="<%=RS("ArtikelNr")%>" size="6" maxlength="6"></td>
<td class="linjeUnderTabell"><input name="Benämning" type="text" id="Benämning" value="<%=RS("Benämning")%>" size="50" maxlength="200"></td>
<td class="linjeUnderTabell"><input name="Levererat" type="text" id="Levererat" value="<%=RS("Levererat")%>" size="5" maxlength="5"></td>
<td class="linjeUnderTabell"><input name="Apris" type="text" id="Apris" value="<%=FormatCurrency(RS("Apris"))%>" size="5" maxlength="5"></td>
<td class="linjeUnderTabell"><input name="Levdatum" type="text" id="Levdatum" value="<%=RS("Levdatum")%>" size="10" maxlength="12">
<input type="submit" name="Submit" value="Skicka Rad"></td>
</tr>
</form>
<%
RS.Movenext
Loop
End If

%>
</table>
<%
RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing
%>
</code>

kreditering_sql.asp

<code>

strSQL = "SELECT * FROM Kreditering"
RS.open strSQL, Conn, 0, 3
RS.AddNew
RS("KundNr") = Request.Form("KundNr")
RS("OrderNr") = Request.Form("OrderNr")
RS("ArtikelNr") = Request.Form("ArtikelNr")
RS("Benämning") = Request.Form("Benämning")
RS("Antal") = Request.Form("Levererat")
RS("Apris") = Request.Form("Apris")
RS("Belopp") = Request.Form("Levererat") * Request.Form("Apris")
RS("Reklamationstyp") = Request.Form("Reklamationstyp")
RS("SkapadAv") = Request.ServerVariables ("LOGON_USER")
RS.Update
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
''''''''''''''' Här kan det ställa till med kaka???? - hur avsluta den? ligger den öppen hela tiden med fönster öppet?? och sen?

Response.Redirect "kreditering.asp?Ordernr=" & Request.Form("Ordernr")
%>
</code>