Tvunget linieskift i en accessdatabase

prøv

VbCrLf

ok men jeg har lavet en opret side på nettet, hvordan skal man gøre det når man sidder og opretter nyheden direkte på nette.....?

ellers når du smider det ind så lav en

replace(request.form(\"nyhed\"),vbcrlf,\"<br>\")

på den måde så hver gang du trykker enter så skriver den <br> i databasen når du submitter

<br> i html

Hvis du har en input (textarea) så bliver return til vbCrLF. Typisk når man udskriver såkonvertere man vbCRrLF til <br>:

reqponse.write(tekststreng,vbCrLf,\"<br>\")

eller

response.write replace(rs(\"nyhed\"),vbcrlf,\"<br>\")
først nævnte er nok den du skal bruge

hmmm. Nu er jeg ikke den store haj til dette. Men hvordan skal det se ud. Skal dette her :
replace(request.form(\"nyhed\"),vbcrlf,\"<br>\")
stå i min kode, så laver den selv om til et tvunget linieskift.....?
Hvor i koden skal den stå...
Jeg undskylder at jeg ikke har helt styr på det, men jeg arbejder på det.

Jeg har liget prøvet at skrive <br> på min opret side og det virker fint. Er det i orden at gøre det på den måde eller skal man gøre som i har skrevet....?

Den laver linie skift hvis man har lavet et return men return-tasten.
Hvis du vil havde tvungen skift ved eks 100 karakter skal du havde en function som gør det. Jeg har dette kode som lavet tvungen linie skift ved 100 karakter på en linie eller ved vbCrLf. Hvis du vil havde tvungen linie skift et andet sted end 100 karakter så kan du bare rette de to steder der dtår 100 til dit ønskede antal karakter:


inputStr = \"din meget lange streng som er for lang til en linie!!\"

reDim  arr(0)
str = replace(inputStr,\"<br>\",vbCrLf)
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, 100)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, \" \", 100)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = \"\"
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, \"<br>\")

Response.Write outStr

Jeg vil ikkec have tvunget linieskift ved 100 karakter.
Men den skal bare skift linie når jeg trykker på enter tasten.

kom med din sql hvor du updater så kan jeg rette den :)

                      </b>
                      <form method=\"POST\" action=\"<%=MM_editAction%>\" name=\"form1\">
                        <table align=\"center\">
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Dato:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"Dato\" value=\"eks: 20-10-2001\" size=\"32\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Klokken:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"klokken\" value=\"eks. 16:20\" size=\"32\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\" valign=\"top\">
                              <div align=\"left\">M&aring;neder:</div>
                            </td>
                            <td valign=\"top\">
                              <select name=\"Maneder\">
                                <%
While (NOT rsPersoner.EOF)
%>
                                <option value=\"<%=(rsPersoner.Fields.Item(\"ManederID\").Value)%>\" <%if (CStr(rsPersoner.Fields.Item(\"ManederID\").Value) = CStr(rsUpdateNyheder.Fields.Item(\"ManederID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsPersoner.Fields.Item(\"Maneder\").Value)%></option>
                                <%
  rsPersoner.MoveNext()
Wend
If (rsPersoner.CursorType > 0) Then
  rsPersoner.MoveFirst
Else
  rsPersoner.Requery
End If
%>
                              </select>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">PersonID:</div>
                            </td>
                            <td>
                              <select name=\"PersonID\">
                                <%
While (NOT rsUpdatePersoner.EOF)
%>
                                <option value=\"<%=(rsUpdatePersoner.Fields.Item(\"PersonerID\").Value)%>\" <%if (CStr(rsUpdatePersoner.Fields.Item(\"PersonerID\").Value) = CStr(rsUpdateNyheder.Fields.Item(\"PersonID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsUpdatePersoner.Fields.Item(\"Personer\").Value)%></option>
                                <%
  rsUpdatePersoner.MoveNext()
Wend
If (rsUpdatePersoner.CursorType > 0) Then
  rsUpdatePersoner.MoveFirst
Else
  rsUpdatePersoner.Requery
End If
%>
                              </select>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Overskrift:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"Overskrift\" value=\"\" size=\"40\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\" valign=\"top\">
                              <div align=\"left\">Artikel:</div>
                            </td>
                            <td>
                              <textarea name=\"Brodtekst\" cols=\"50\" rows=\"8\"></textarea>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">&nbsp;</td>
                            <td>
                              <input type=\"submit\" value=\"Inds&aelig;t Nyheden\" name=\"submit\">
                              <input type=\"hidden\" name=\"MM_insert\" value=\"true\">
                              <input type=\"hidden\" name=\"NyhederID\" value=\"true\">
                            </td>
                          </tr>
                        </table>
                        <br>
                        <br>
                      </form>
                     

Her er noget af min asp kode

nejnej din SQL, den er ikke der iblandt

Her er koden til hele siden.
Håber du kan finde ud af det for der er rigtig meget. Det er lavet i dreamweaver Ultradev 4.

-----------------------------------------

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
\' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables(\"URL\")) & \"?MM_Logoutnow=1\"
If (CStr(Request(\"MM_Logoutnow\")) = \"1\") Then
  Session.Abandon
  MM_logoutRedirectPage = \"/fcwebsider/Krammeklubben/index.asp\"
  \' redirect with URL parameters (remove the \"MM_Logoutnow\" query param).
  if (MM_logoutRedirectPage = \"\") Then MM_logoutRedirectPage = CStr(Request.ServerVariables(\"URL\"))
  If (InStr(1, UC_redirectPage, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
    MM_newQS = \"?\"
    For Each Item In Request.QueryString
      If (Item <> \"MM_Logoutnow\") Then
        If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & \"&\"
        MM_newQS = MM_newQS & Item & \"=\" & Server.URLencode(Request.QueryString(Item))
      End If
    Next
    if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
  End If
  Response.Redirect(MM_logoutRedirectPage)
End If
%>
<!--#include file=\"../../../Connections/connNyheder.asp\" -->
<%
\' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=\"admin,user\"
MM_authFailedURL=\"/fcwebsider/Krammeklubben/login/fejl_login.asp\"
MM_grantAccess=false
If Session(\"MM_Username\") <> \"\" Then
  If (true Or CStr(Session(\"MM_UserAuthorization\"))=\"\") Or _
        (InStr(1,MM_authorizedUsers,Session(\"MM_UserAuthorization\"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = \"?\"
  If (InStr(1,MM_authFailedURL,\"?\") >= 1) Then MM_qsChar = \"&\"
  MM_referrer = Request.ServerVariables(\"URL\")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & \"?\" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & \"accessdenied=\" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
\' *** Edit Operations: declare variables

MM_editAction = CStr(Request(\"URL\"))
If (Request.QueryString <> \"\") Then
  MM_editAction = MM_editAction & \"?\" & Request.QueryString
End If

\' boolean to abort record edit
MM_abortEdit = false

\' query string to execute
MM_editQuery = \"\"
%>
<%
\' *** Insert Record: set variables

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  MM_editConnection = MM_connNyheder_STRING
  MM_editTable = \"Nyheder\"
  MM_editRedirectUrl = \"/fcwebsider/Krammeklubben/logenyt/takker_for_nyheden.asp\"
  MM_fieldsStr  = \"Dato|value|klokken|value|Maneder|value|PersonID|value|Overskrift|value|Brodtekst|value\"
  MM_columnsStr = \"Dato|#,none,NULL|klokken|#,none,NULL|ManederID|none,none,NULL|PersonID|none,none,NULL|Overskrift|\',none,\'\'|Brodtekst|\',none,\'\'\"

  \' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, \"|\")
  MM_columns = Split(MM_columnsStr, \"|\")
 
  \' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  \' append the query string to the redirect URL
  If (MM_editRedirectUrl <> \"\" And Request.QueryString <> \"\") Then
    If (InStr(1, MM_editRedirectUrl, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
      MM_editRedirectUrl = MM_editRedirectUrl & \"?\" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & \"&\" & Request.QueryString
    End If
  End If

End If
%>
<%
\' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  \' create the sql insert statement
  MM_tableValues = \"\"
  MM_dbValues = \"\"
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),\",\")
    Delim = MM_typeArray(0)
    If (Delim = \"none\") Then Delim = \"\"
    AltVal = MM_typeArray(1)
    If (AltVal = \"none\") Then AltVal = \"\"
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = \"none\") Then EmptyVal = \"\"
    If (FormVal = \"\") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> \"\") Then
        FormVal = AltVal
      ElseIf (Delim = \"\'\") Then  \' escape quotes
        FormVal = \"\'\" & Replace(FormVal,\"\'\",\"\'\'\") & \"\'\"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & \",\"
      MM_dbValues = MM_dbValues & \",\"
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = \"insert into \" & MM_editTable & \" (\" & MM_tableValues & \") values (\" & MM_dbValues & \")\"

  If (Not MM_abortEdit) Then
    \' execute the insert
    Set MM_editCmd = Server.CreateObject(\"ADODB.Command\")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> \"\") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set rsUpdateNyheder = Server.CreateObject(\"ADODB.Recordset\")
rsUpdateNyheder.ActiveConnection = MM_connNyheder_STRING
rsUpdateNyheder.Source = \"SELECT *  FROM Nyheder  ORDER BY NyhederID\"
rsUpdateNyheder.CursorType = 0
rsUpdateNyheder.CursorLocation = 2
rsUpdateNyheder.LockType = 3
rsUpdateNyheder.Open()
rsUpdateNyheder_numRows = 0
%>
<%
set rsUpdatePersoner = Server.CreateObject(\"ADODB.Recordset\")
rsUpdatePersoner.ActiveConnection = MM_connNyheder_STRING
rsUpdatePersoner.Source = \"SELECT * FROM Personer\"
rsUpdatePersoner.CursorType = 0
rsUpdatePersoner.CursorLocation = 2
rsUpdatePersoner.LockType = 3
rsUpdatePersoner.Open()
rsUpdatePersoner_numRows = 0
%>
<%
set rsPersoner = Server.CreateObject(\"ADODB.Recordset\")
rsPersoner.ActiveConnection = MM_connNyheder_STRING
rsPersoner.Source = \"SELECT * FROM Maneder\"
rsPersoner.CursorType = 0
rsPersoner.CursorLocation = 2
rsPersoner.LockType = 3
rsPersoner.Open()
rsPersoner_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 5
Dim Repeat1__index
Repeat1__index = 0
rsNyheder_numRows = rsNyheder_numRows + Repeat1__numRows
%>
<%
\' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

\' create the list of parameters which should not be maintained
MM_removeList = \"&index=\"
If (MM_paramName <> \"\") Then MM_removeList = MM_removeList & \"&\" & MM_paramName & \"=\"
MM_keepURL=\"\":MM_keepForm=\"\":MM_keepBoth=\"\":MM_keepNone=\"\"

\' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = \"&\" & Item & \"=\"
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

\' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = \"&\" & Item & \"=\"
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

\' create the Form + URL string and remove the intial \'&\' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> \"\") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> \"\")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> \"\") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

\' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> \"\") Then
    MM_joinChar = \"&\"
  Else
    MM_joinChar = \"\"
  End If
End Function
%>
<html>
<head>
<title>forside</title>
<meta name=\"keywords\" content=\"Tips, Odds, 13 rigtige, fodbold, 13, tipper, cetrebet, bet24, loge\">
<meta name=\"description\" content=\"Dette er en side der handler om seks gutter som har lavet en odds klub, hvor formålet er at få skrabet en masse penge sammen til en fodboldtur til Engfland. Alt det som vindes, går direkte til klubkassen. \">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"/fcwebsider/Krammeklubben/style_sheet/kram.css\" type=\"text/css\">
<script language=\"JavaScript\" src=\"/fcwebsider/Krammeklubben/Templates/javascript/krammer.js\"></script>
<script Language=\"JavaScript\">
<!--
function displayDate() {
    var this_month = new Array(12);
    this_month[0]  = \"Januar\";
    this_month[1]  = \"Februar\";
    this_month[2]  = \"Marts\";
    this_month[3]  = \"April\";
    this_month[4]  = \"Maj\";
    this_month[5]  = \"Juni\";
    this_month[6]  = \"July\";
    this_month[7]  = \"August\";
    this_month[8]  = \"September\";
    this_month[9]  = \"Oktober\";
    this_month[10] = \"November\";
    this_month[11] = \"December\";
  var today = new Date();
  var day  = today.getDate();
  var month = today.getMonth();
  var year  = today.getYear();
  if (year < 1000) {
    year += 1900;
  }
  return(day+\" \"+this_month[month]+\" \"+year);
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>
<script language=\"JavaScript\">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName==\"Netscape\")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor=\"#666666\" text=\"#000000\" >
<div align=\"center\">
  <table width=\"760\" border=\"0\" bgcolor=\"#666666\" name=\"tabel1\" bordercolor=\"#000000\">
    <tr>
      <td valign=\"top\" bordercolor=\"#666666\">
        <table width=\"759\" border=\"0\" bgcolor=\"#666666\" cellpadding=\"0\" cellspacing=\"0\" height=\"52\">
          <tr>
            <td bgcolor=\"#666666\">
              <div align=\"center\"><img src=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/krammeraterne.gif\" width=\"759\" height=\"52\">
              </div>
            </td>
          </tr>
          <tr>
            <td bgcolor=\"#666666\" valign=\"top\">
              <table width=\"759\" border=\"1\" height=\"12\" cellpadding=\"0\" cellspacing=\"0\" bgcolor=\"#FFFFFF\" bordercolor=\"#000000\" class=\"menulinje\">
                <tr>
                  <td height=\"12\" valign=\"top\"> <font color=\"#666666\" class=\"menulinje\"><a href=\"/fcwebsider/Krammeklubben/index.asp\"><img src=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/2pile.gif\" width=\"11\" height=\"10\" border=\"0\">
                    <img src=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/2pile.gif\" width=\"11\" height=\"10\" border=\"0\">
                    Forside</a> </font> </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <table width=\"759\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
          <tr>
            <td width=\"100\" valign=\"top\" bgcolor=\"#999999\" align=\"left\">
              <table width=\"100\" border=\"0\" name=\"table\" bgcolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td class=\"venstremenuoverskrift\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag.gif\" onMouseOver=\"MM_displayStatusMsg(\'L&aelig;s de sidste nyheder fra odds klubben\');return document.MM_returnValue\">
                    &nbsp;&nbsp;Dong Nyt</td>
                </tr>
                <tr>
                  <td height=\"12\" class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/logenyt/nyheder.asp\" class=\"venstremenupunkter\">Nyheder</a></td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" class=\"leftmenu\" cellpadding=\"0\" cellspacing=\"0\" >
                <tr>
                  <td class=\"venstremenuoverskrift\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag.gif\">&nbsp;&nbsp;Indtjening
                    kr.</td>
                </tr>
                <tr>
                  <td height=\"12\" class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/alle.asp\" class=\"venstremenupunkter\">Alle
                    </a></td>
                </tr>
                <tr>
                  <td height=\"12\" class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/allan.asp\" class=\"venstremenupunkter\">Allan</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\" height=\"15\" ><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/anders.asp\" class=\"venstremenupunkter\">Anders</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/bonde.asp\" class=\"venstremenupunkter\">Bonde</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/kim.asp\" class=\"venstremenupunkter\">Kim</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/tommu.asp\">Tommy</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/indtjening_kr/oster.asp\" class=\"venstremenupunkter\">&Oslash;ster</a></td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td class=\"venstremenuoverskrift\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag.gif\">&nbsp;&nbsp;Spilleplan</td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/spilleplan/uge_20-28.htm\">Uge
                    20 - 28</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/spilleplan/uge_7-19.htm\" class=\"venstremenupunkter\">Uge
                    7 - 19</a></td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"mailto:tommy@fcweb.dk\">Prisgaranti</a></td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td class=\"venstremenuoverskrift\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag.gif\">&nbsp;&nbsp;Dong
                    debat </td>
                </tr>
                <tr>
                  <td class=\"venstremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/debatforum/debat.htm?action=2&boardid=1765164429&domainid=0&sessionlanguage=DK%22%3EDebarfoerum\" onClick=\"MM_openBrWindow(\'http://pub73.ezboard.com/bdongkrammeraterne\',\'Debatforum\',\'toolbar=yes,scrollbars=yes,width=650,height=600\')\">Debatforum</a></td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td class=\"venstremenuoverskrift\" height=\"33\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag_stor.gif\">&nbsp;&nbsp;Sports
                    &amp; &nbsp;&nbsp;Bookmakers</td>
                </tr>
                <tr>
                  <td><a href=\"http://www.onside.dk\" target=\"_new\" class=\"venstremenupunkter\">Onside</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.bold.dk\" target=\"_new\" class=\"venstremenupunkter\">Bold</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.sportal.dk\" target=\"_new\" class=\"venstremenupunkter\">Sportal</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.livescore.com\" target=\"_new\" class=\"venstremenupunkter\">Livescore</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.tipstjeneste.dk\" target=\"_new\" class=\"venstremenupunkter\">Tipstjenesten</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.centrebet.dk\" target=\"_new\" class=\"venstremenupunkter\">Centrebet</a></td>
                </tr>
                <tr>
                  <td><a href=\"http://www.bet24.com\" target=\"_new\" class=\"venstremenupunkter\">Bet
                    24</a></td>
                </tr>
              </table>
              <br>
            <td valign=\"top\" class=\"menulinje\" bgcolor=\"#FFFFFF\" width=\"559\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/tommy1.jpg\" align=\"center\">
              <!-- #BeginEditable \"tekst\" -->
              <table width=\"100%\" border=\"0\" align=\"center\" name=\"brodtekst\" height=\"0\">
                <tr>
                  <td height=\"15\" valign=\"top\">
                    <div align=\"center\"> <b>Inds&aelig;t nyheder<br>
                      </b>
                      <form method=\"POST\" action=\"<%=MM_editAction%>\" name=\"form1\">
                        <table align=\"center\">
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Dato:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"Dato\" value=\"eks: 20-10-2001\" size=\"32\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Klokken:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"klokken\" value=\"eks. 16:20\" size=\"32\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\" valign=\"top\">
                              <div align=\"left\">M&aring;neder:</div>
                            </td>
                            <td valign=\"top\">
                              <select name=\"Maneder\">
                                <%
While (NOT rsPersoner.EOF)
%>
                                <option value=\"<%=(rsPersoner.Fields.Item(\"ManederID\").Value)%>\" <%if (CStr(rsPersoner.Fields.Item(\"ManederID\").Value) = CStr(rsUpdateNyheder.Fields.Item(\"ManederID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsPersoner.Fields.Item(\"Maneder\").Value)%></option>
                                <%
  rsPersoner.MoveNext()
Wend
If (rsPersoner.CursorType > 0) Then
  rsPersoner.MoveFirst
Else
  rsPersoner.Requery
End If
%>
                              </select>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">PersonID:</div>
                            </td>
                            <td>
                              <select name=\"PersonID\">
                                <%
While (NOT rsUpdatePersoner.EOF)
%>
                                <option value=\"<%=(rsUpdatePersoner.Fields.Item(\"PersonerID\").Value)%>\" <%if (CStr(rsUpdatePersoner.Fields.Item(\"PersonerID\").Value) = CStr(rsUpdateNyheder.Fields.Item(\"PersonID\").Value)) then Response.Write(\"SELECTED\") : Response.Write(\"\")%>><%=(rsUpdatePersoner.Fields.Item(\"Personer\").Value)%></option>
                                <%
  rsUpdatePersoner.MoveNext()
Wend
If (rsUpdatePersoner.CursorType > 0) Then
  rsUpdatePersoner.MoveFirst
Else
  rsUpdatePersoner.Requery
End If
%>
                              </select>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">
                              <div align=\"left\">Overskrift:</div>
                            </td>
                            <td>
                              <input type=\"text\" name=\"Overskrift\" value=\"\" size=\"40\">
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\" valign=\"top\">
                              <div align=\"left\">Artikel:</div>
                            </td>
                            <td>
                              <textarea name=\"Brodtekst\" cols=\"50\" rows=\"8\"></textarea>
                            </td>
                          </tr>
                          <tr valign=\"baseline\">
                            <td nowrap align=\"right\">&nbsp;</td>
                            <td>
                              <input type=\"submit\" value=\"Inds&aelig;t Nyheden\" name=\"submit\">
                              <input type=\"hidden\" name=\"MM_insert\" value=\"true\">
                              <input type=\"hidden\" name=\"NyhederID\" value=\"true\">
                            </td>
                          </tr>
                        </table>
                        <br>
                        <br>
                      </form>
                      <p><br>
                        <A HREF=\"<%=MM_Logout%>\" class=\"link\">Klik
                        her for at logge ud tak</A><br>
                      </p>
                      <p>&nbsp; </p>
                      <p>&nbsp;</p>
                      <p>&nbsp;</p>
                      <b> </b><br>
                      <br>
                    </div>
                    <p>&nbsp;</p>
                    <p>&nbsp;</p>
                  </td>
                </tr>
              </table>
              <!-- #EndEditable -->
              <p>&nbsp;</p>
            </td>
            <td width=\"0\" bgcolor=\"#999999\" bordercolor=\"#999999\"> <br>
            </td>
            <td width=\"100\" valign=\"top\" bgcolor=\"#999999\" align=\"right\">
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" class=\"hojremenu\" bordercolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td bgcolor=\"#CCCCCC\" background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag.gif\">
                    <div class=\"hojremenuoverskrift\">Dong</div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/loge/allan.asp\" class=\"hojremenupunkter\">Allan<br>
                      DongMinister </a></div>
                  </td>
                </tr>
                <tr>
                  <td height=\"1\" class=\"hojremenupunkter\">
                    <hr size=\"1\">
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/loge/anders.asp\" class=\"hojremenupunkter\">Anders<br>
                      UdenrigsMinister </a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <hr size=\"1\">
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/loge/bonde.asp\" class=\"hojremenupunkter\">Bonde<br>
                      KulturMinister</a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <hr size=\"1\">
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/loge/kim.asp\" class=\"hojremenupunkter\">Kim
                      \'Quinn\'<br>
                      F&oslash;devareMinister</a> </div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <hr size=\"1\">
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\"><a href=\"/fcwebsider/Krammeklubben/loge/tommu.asp\" class=\"hojremenupunkter\">Tommy<br>
                    Forsknings &amp; IT<br>
                    Minister</a> </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <hr size=\"1\">
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/loge/oster.asp\" class=\"hojremenupunkter\">&Oslash;ster<br>
                      &Oslash;konomiMinister</a></div>
                  </td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" bgcolor=\"#333333\" class=\"hojremenu\" bordercolor=\"#333333\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td background=\"/fcwebsider/Krammeklubben/gfx/baggrundsbilleder/menubag_stor.gif\">
                    <div class=\"hojremenuoverskrift\">Paragraphs <br>
                      &amp; Rules</div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/paragraphs_rules/navn.htm\" class=\"hojremenupunkter\">Navn</a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/paragraphs_rules/formaal.htm\" class=\"hojremenupunkter\">Form&aring;l</a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/paragraphs_rules/love.htm\" class=\"hojremenupunkter\">Love</a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/paragraphs_rules/boder.htm\" class=\"hojremenupunkter\">B&oslash;der</a></div>
                  </td>
                </tr>
                <tr>
                  <td class=\"hojremenupunkter\">
                    <div align=\"center\"><a href=\"/fcwebsider/Krammeklubben/paragraphs_rules/medlemmer.htm\" class=\"hojremenupunkter\">Medlemmer</a></div>
                  </td>
                </tr>
              </table>
              <br>
              <table width=\"100\" border=\"0\" height=\"100\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td><object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=\"100\" height=\"100\">
                      <param name=movie value=\"/fcwebsider/Krammeklubben/flash/flashfilm/1x2.swf\">
                      <param name=quality value=high>
                      <embed src=\"/fcwebsider/Krammeklubben/flash/flashfilm/1x2.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"100\" height=\"100\">
                      </embed>
                    </object><br>
                    <br>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <table width=\"759\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
          <tr>
            <td bgcolor=\"#000066\" valign=\"bottom\" height=\"10\">
              <div align=\"right\" class=\"date\">
                <script language=\"JavaScript\" class=\"date\">
    <!--
    document.write (displayDate());
    //-->
    </script>
                &nbsp;</div>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>
</body>
</html>
<%
rsUpdateNyheder.Close()
%>
<%
rsUpdatePersoner.Close()
%>
<%
rsPersoner.Close()
%>

kom lige med Connections/connNyheder.asp

:) det er den jeg skal bruge

<%
\' FileName=\"Connection_ado_conn_string.htm\"
\' Type=\"ADO\"
\' HTTP=\"true\"
\' Catalog=\"\"
\' Schema=\"\"
MM_connNyheder_STRING = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= d:\\www\\enavn\\fcweb.dk\\fcdb\\nyheder.mdb\"
%>

Hvorfor denne side

hvor steneren, skal lige i banken, så fikser jeg det :)

ok