Så nu skulle jeg have fundet ud af det.
Men hvordan får jeg den til kun at vise teksten da den er længre end man kan se i felterne.
Min kode endte med at se sådan ud:
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>
<script runat="server">
Dim strConn As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objRs As OleDbDataReader
Sub Page_Load()
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("test.MDB") & ";"
objConn = New OleDbConnection(strConn)
End Sub
Sub BtnHent_Click(sender As Object, e As EventArgs)
Dim strSQL as string
strSQL = "Select * from DB where KundeID='" & TxtKunde.text & "' and OrdreNr='" & txtOrdreNr.text & "'"
ObjConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=test.mdb")
ObjComm = New OleDbCommand(strSQL, objConn)
ObjConn.Open()
ObjRs = objComm.ExecuteReader()
While ObjRs.Read()
' INFO
TxtKunde.text = objrs("kunde")
TxtNavn.text = Objrs ("Navn")
TxtOrdreNr.text = Objrs ("OrdreNr")
TxtLevUge.text = Objrs ("LevUge")
TxtVaretype.text = Objrs ("Varetype")
TxtProduktlinie.text = Objrs ("Produktlinie")
TxtMateriale.text = Objrs ("Materiale")
' DropFarve
' SYNING
TxtTraadtykkelse.text = objrs("Traadtykkelse")
TxtSombredde.text = objrs("Sombredde")
TxtOmbuk.text = objrs("ombuk")
TxtAntalSyninger.text = objrs("syninger_antal")
TxtStinglaengde.text = objrs("Stinglaengde")
End While
ObjRs.Close()
objConn.Close()
End Sub
Sub BtnNy_Click(sender As Object, e As EventArgs)
TxtKunde.text = ""
TxtOrdrenr.text = ""
End Sub
</script>
<html>
<head>
<title></title>
<link href="standard.css" type="text/css" rel="stylesheet" />
</head>
<body id="Produktion">
<form runat="server">
<script language="javascript">
function PrintThisPage()
{
var sOption="toolbar=yes,location=yes,directories=yes,menubar=yes,";
// sOption+="scrollbars=yes,width=1000,height=800,left=100,top=25";
var sWinHTML = document.getElementById('produktion').innerHTML;
var winprint=window.open("",null,"width=1000,status=yes,toolbar=no,menubar=no,location=no,scrollbars=yes,left=0,top=0");
winprint.document.open();
winprint.document.write('<html>');
//skriv printer link
winprint.document.write('<div id="Div1" ><a href=# onclick=window.print()>Udskriv side</a></div>');
winprint.document.write(sWinHTML);
winprint.document.write('</body></html>');
winprint.document.close();
winprint.focus();
}
</script>
<div id="PrintDiv"><a href="java script:PrintThisPage();" >Printer Venlig Version</a></div>
<br />
<table width="600" border="1" cellpadding="0" cellspacing="0" class="Text" id="Info">
<tbody>
<TR>
<TD>Kunde ID</TD>
<TD><asp:TextBox id="TxtKunde" runat="server"></asp:TextBox></TD>
<TD>Ordrenumber</TD>
<TD><asp:TextBox id="TxtOrdrenr" runat="server"></asp:TextBox>
<asp:Button id="BtnHent" onclick="BtnHent_Click" runat="server" CssClass="Text" Text="Hent"></asp:Button></TD>
</TR>
</tbody>
</table>
<br />
<table class="Text" id="Info" cellspacing="0" cellpadding="0" width="600" border="1">
<tbody>
<tr bgcolor="#cccccc">
<td width="160"> Info </td>
<td width="155"> </td>
<td width="90"> <p>Udført af</p>
</td>
<td width="185"> </td>
</tr>
<TR>
<TD>Kunde ID</TD>
<TD><asp:TextBox id="TxtKundeResultat" runat="server"></asp:TextBox></TD>
<TD>Varetype</TD>
<TD><asp:TextBox id="TxtVaretype" runat="server"></asp:TextBox></TD>
</TR>
<TR>
<TD>Navn</TD>
<TD><asp:TextBox id="TxtNavn" runat="server"></asp:TextBox></TD>
<TD>Produktlinie</TD>
<TD><asp:TextBox id="TxtProduktlinie" runat="server"></asp:TextBox></TD>
</TR>
<TR>
<TD>Ordrenumber</TD>
<TD><asp:TextBox id="TxtOrdrenrS" runat="server"></asp:TextBox></TD>
<TD>Materiale</TD>
<TD><asp:TextBox id="TxtMateriale" runat="server"></asp:TextBox></TD>
</TR>
<TR>
<TD>Leveringsuge</TD>
<TD><asp:TextBox id="TxtLevUge" runat="server"></asp:TextBox></TD>
<TD>Farve</TD>
<TD><asp:DropDownList id="DropFarve" runat="server" AutoPostBack="True">
<asp:ListItem Value="0" Selected="true">Vælg</asp:ListItem>
<asp:ListItem Value="1">Sort</asp:ListItem>
<asp:ListItem Value="2">hvid</asp:ListItem>
<asp:ListItem Value="3">rød</asp:ListItem>
<asp:ListItem Value="4">gul</asp:ListItem>
<asp:ListItem Value="5">blå</asp:ListItem>
</asp:DropDownList> </TD>
</TR>
</tbody>
</table>
<br />
<table class="Text" id="Syning" cellspacing="0" cellpadding="0" width="600" border="1">
<tr bgcolor="#cccccc">
<td>
Syning</td>
<td> </td>
<td>Udført af </td>
<td> </td>
</tr>
<tr>
<td>
Trådtykkelse</td>
<TD><asp:TextBox id="TxtTraadtykkelse" runat="server"></asp:TextBox></TD>
<td>
Antal syninger </td>
<TD><asp:TextBox ID="TxtAntalSyninger" runat="server"></asp:TextBox></TD>
</tr>
<tr>
<td>
Sømbredde</td>
<TD><asp:TextBox id="TxtSombredde" runat="server"></asp:TextBox></TD>
<td>
Stinglængde</td>
<TD><asp:TextBox id="TxtStinglaengde" runat="server"></asp:TextBox></TD>
</tr>
<tr>
<td>
Ombuk længde </td>
<TD><asp:TextBox id="TxtOmbuk" runat="server"></asp:TextBox></TD>
<td>
Stingtype</td>
<TD><asp:TextBox id="TxtStingtype" runat="server"></asp:TextBox></TD>
</tr>
</table>
<br />
<table class="Text" cellspacing="0" cellpadding="0" width="600" border="1">
<tbody>
<tr bgcolor="#cccccc">
<td> Forsendelse</td>
<td> </td>
<td> Udført af</td>
<td> </td>
</tr>
<tr>
<td> Poser</td>
<td><asp:TextBox id="TxtPoserResultat" runat="server" TextMode="SingleLine"></asp:TextBox>
</td>
<td> Sendt dato: </td>
<td> </td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
