problem med insert to

prøv at udskrive din sql streng i stedet for at execute den...

lige før linjen conn.execute(sql) skal du skrive:

response.write(sql)
response.end

så kan du se, om din sql streng ser ud som du forventer - eller om der evt. mangler nogle form data.

der mangler ik nogen, den siger bare Insert into nyheder (Navn, Emne, besked, E-mail, ip, dato) values('','','','','','') men jeg var hos en ven igår og han sagde noget med at de stod som tal altså felterne i asp koden var sat til tal men det er de slet ik i db'en

Som jeg lige husker så undgå - i navne på kolonne i databaser, her tænkter jeg på E-mail, prøv at sæætte [] omkring:

Sql = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip, dato) values('"

det evt. fordi du skal bruge ## omkring dato i stedet for ''

Kimiwan>> Jeps det har du ret i hvis dato kolonnen er defineret som Dato/klokkeslet i database .

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e07'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/eye-server/opretnyhed.asp, linje 48
siger den da jeg satte [] uden om E-mail

så er det nu, du skal skrive ## omkring datoen ;o)

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03ea'

Der er en syntaksfejl

/eye-server/opretnyhed.asp, linje 46

Sql = Sql & Request.form(#Dato#) & "')"
-------------------------^

da jeg satte ## foran men hvís ik er rigtigt ved jeg ik hvor den er og ja den er sat til dato/klokkeslæt

sådan her:

Sql = Sql & Request.form("ip") & "',#"
Sql = Sql & Request.form("Dato") & "#)"

ok

den siger stadig den første fejl :(

i SQL-sætninger data skal der ' ' omkring hvis kolonnen er defineter som tekst og ingen hvis den er defineret som tal og ## hvis det er dato:

eks: INSERT INTO tabel (talfelt, tekstfelt, datofelt) VALUES (10, 'TI', #20-04-2002#)

har du [] omkring e-mail ?

zyxep: kan du ikke udskrive slq strengen, så vi kan se, hvad du har???

ja 2 sec

Insert into nyheder (Navn, Emne, besked, E-mail, ip, dato) values('','','','','',',) men jeg fik at vide af en af mine venner at han sagde at de stod som tal de der request.form

Du skal som sagt havde [] omkrng e-mail det er første fejl så fik du en anden fejl som var type fejl :)

Insert into nyheder (Navn, Emne, besked, [E-mail], ip, dato) values

er det dér, hvad du får, når du submitter formen???

Ungå mellemrum,+,- i tabel og kolonne navne det SQL fortolkeren kan ikke finde ud af det hvis du ikke har [] omkring kolonne navne.

jeg kan ik submitte formen

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i strengen i forespørgselsudtrykket "',)".

/eye-server/opretnyhed.asp, linje 48
siger den når jeg sætter [] foran E-mail

du skal skrive det som du først skrev det omkring [e-mail]

Sql = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip, dato) values('"

nu ser min kode sådan her ud:
<%
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

Sql = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip, dato) values('"
Sql = Sql & Request.form("Navn") & "','"
Sql = Sql & Request.form("Emne") & "','"
Sql = Sql & Request.form("besked") & "','"
Sql = Sql & Request.form("E-mail") & "','"
Sql = Sql & Request.form("ip") & "','"
' Add more SQLs here
Sql = Sql & Request.form("Dato") & ",)"

conn.Execute(Sql)
'sender os tilbage til start siden
response.redirect("index.asp")
conn.Close

%>

og får fejlen:
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i strengen i forespørgselsudtrykket "',)".

/eye-server/opretnyhed.asp, linje 48

'80040e14' betyder normalt stave fejl i kolonne navn eller tabel navn.

du skal også havde # omkring dato'en:

Sql = Sql & Request.form("ip") & "',#"
' Add more SQLs here
Sql = Sql & Request.form("Dato") & "#)"

det er der ik
har selv skrevet det i db'en og har taget copy fra db til asp koden så det er fandme rigtigt

Så skal dato se sådan ud

Sql = Sql & Request.form("ip") & "','"
' Add more SQLs here
Sql = Sql & Request.form("Dato") & "')"

ip står ik som dato det er kun Dato ip er sat til notat

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i datoen i forespørgselsudtrykket "##".

/eye-server/opretnyhed.asp, linje 48
får jeg når min kode ser så ledes ud:
<%
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

Sql = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip, dato) values('"
Sql = Sql & Request.form("Navn") & "','"
Sql = Sql & Request.form("Emne") & "','"
Sql = Sql & Request.form("besked") & "','"
Sql = Sql & Request.form("E-mail") & "','"
Sql = Sql & Request.form("ip") & "',#"
' Add more SQLs here
Sql = Sql & Request.form("Dato") & "#)"

conn.Execute(Sql)
'sender os tilbage til start siden
response.redirect("index.asp")
conn.Close

%>

Du er nødt til at tjekke for om datoen virkelig er en dato - ellers vil du få en fejl (hvis du enten prøver at indsætte ingenting (##) eller en ikke-eksisterende dato (#35-05-2002#)

Det her skulle gerne virke:

prefixSQL = "Insert into nyheder (Navn, Emne, besked, E-mail, ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else

SQL = prefixSQL & suffixSQL

ha.. og så glemte jeg det alligevel.. korrekte version følger :o)

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else

SQL = prefixSQL & suffixSQL

så for du ikke den rigtige værdi til dato ud fra Request.Form("Dato")

Har du et felt som man indtaster dato i?

skal jeg sætte den ind i stedet for de andre ?

ja

sådan her:
<%
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else

SQL = prefixSQL & suffixSQL
'sender os tilbage til start siden
response.redirect("index.asp")
conn.Close

%>

den her fejl får jeg:
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03ea'

Der er en syntaksfejl

/eye-server/opretnyhed.asp, linje 40

suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

du er kommet til at slette din conn.execute(sql)

suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") & "'"

bah

der er magler en " i denne, indsat her:
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") & "'"

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03f6'

'End' var ventet

/eye-server/opretnyhed.asp, linje 97

den er blevet til linje 69 i stedet fordi jeg havde en response.wrirte nede i bunden men da jeg fjernede den sagde den linje 69

sådan her:
<%
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else
  'sender os tilbage til start siden
  response.redirect("index.asp")
end if
SQL = prefixSQL & suffixSQL
conn.execute(strSQL)
conn.Close

%>

ok prøver

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03ea'

Der er en syntaksfejl

/eye-server/opretnyhed.asp, linje 40

suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") &'"
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

når ja sammefejl :(
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") & "'"

og conn.execute(strSQL)

Rettes til:

conn.execute(SQL)

Response-objekt fejl 'ASP 0156 : 80004005'

Headerfejl

/eye-server/opretnyhed.asp, linje 47

HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.

kender den det er bare response.buffer = true i toppen men så køre den til index.asp det skal den jo ik det skal den først når man har trykket på ok knappen når man har udfyldt formen

det må du forklare... Når man har trykke på ok knappen??

Den side som gemmer data indeholder den en FORM ?

altså
jeg har en form hvor man skal udfylde de felter som er navn emne besked ip og email og så når man trykker ok skal den gå til index.asp hvor man kan se det man har udfyldt i formen

Hvordan kommer dato ind i?

Og så kan man trykke på OK og så gemt det i databasen?

der er en input hvor dato'en skrives i automatisk altså den finder selv dato'en hvor den så os selv ryger med når man har trykket ok

Så det kode du viser ligger i toppen af koden. Det vil forsøge at ligge det i datbae med det samme så du ikke når at få udskrevet det på skærmen...

Den side du linker til skal du tjekke på om det er første gang hvor den skal vise eller anden gang hvor den skal gemme.


Eks:
Udfyld felter i index.asp
<form action="vis_gem_fil.asp">
Navn = "nanvet"
emne = "et emne"
Beskrivelse = "en tekst"
ip = "ip afdresse"
email = "email adrte"

Når man trykker på submit så kaldes vis_gem_fil.asp
og først i filen ligger koden som gemmer i databasen men den skulle ved skrive det ud på skrærmen for at vise hvad man har skredet og trykker  man OK igen så skal der gemmes i databasen.

<form action="vis_gem_fil.asp">

Så på siden gem_vis_fil.asp kan du først tjekke på:

mode = request.form("mode")

if mode = "gem" then

  ' ALT DET KODE SOM GEMMER I DATABASNE

else

  ' ALT DET KODE SOM SKRIVER UD På SKÆRMEN
Her vil forslå en Hidden type input til at holde styr på hvornår der skal gemmes eller vise:
<input type=hidden name=mode value=gem>

forstår ik noget af det du siger :(

*sætter til rette i sofaen og kigger lidt på*

Prøver på en anden måde...
Du har en fil index.asp  ?
- Her indtaster man Navn, Emne, Beskrivelse og IP.
- Trykker på OK (Submit knap)

Så bliver man send til en siden som skal vise det man har indtasted ?
- Siden udskriver det indtastede i felterne:Navn, Emne, Beskrivelse og IP.
- Her bliver Dato automatisk sat ind.
- Så trykker man på OK

Så bliver samme side loaded igen og man vil skrive data i databasen..


Er det rigitgt forstået??

øh nej :)

altså jeg har opretnyhed.asp

hvor der er en form hvor man skal taste navn,e-mail,besked,emne og så er der et felt hvor der står dato og så når man trykker OK så sender den en videre til index.asp hvor man så kan se nyheden (det man har inttasted)

arh ok så har jeg misforstået det du skrev før... Og på index.asp filen er en OK knap som så sender til den side som gemmer i databasen.

nej du kan se det her http://zyxep.no-ip.org/eye-server/ der kommer forsiden som er index.asp der står nogen nyheder tryk admin login og brug

bruger: test
pass: test
og tryk opret nyhed og så kommer det jeg snakkede om og så når du trykker OK på formen så skal den sende en videre til index.asp som er forsiden hvor nyheden så blir vist

Når jeg trykker på Opret Nyhed kommer jeg til index.asp siden.

ja det er der fejlen er :D

Arh den fil som hedder Opretnyhed.asp  er den du har vist kode fra her ?

Hvad hvis du fjerne: response.redirect("index.asp") fra if sætningen

2 sec

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e14'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT INTO-sætningen.

/eye-server/opretnyhed.asp, linje 50

Ja så gætter jeg på det fordi den forsøger at opdatere databasen med det samme du loader side opretnyhed.asp. Det kan du ungå ved at lave dette:

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
 
  ' KODE TIL AT GEMME I DATABASEN

end if

hvor skal jeg sætte den henne ?

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("email") & "','" & request.form("ip") & "'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else
  'sender os tilbage til start siden
  'response.redirect("index.asp")
end if
SQL = prefixSQL & suffixSQL
conn.execute(SQL)
conn.Close

end if
%>

Microsoft OLE DB Provider for ODBC Drivers fejl '80004005'

[Microsoft][ODBC Microsoft Access-driver] Feltet "nyheder.ip" kan ikke indeholde en streng af længden nul.

/eye-server/opretnyhed.asp, linje 53

Du må undskylde men jeg havde helt misforstået det du skrev tilligere.

Hvordan ligger du IP adressen ind i form så vidt jeg kan se er <input> til IP sådan her i HTML udgaven, dog har jeg fjerne font og styles.

<td><input type="hidden" name="ip"></td>  <---- det mangler en value="xxx.xxx.xxx.xxx" hvor xx er IP adressen.

Når du laver request.form("ip") i din SQL så får du en tom streng og kolonnen IP i databasen er ikke sat til tillad null-længde.

du skal hvade sat IP ind i <input>'en:

<td><input type="hidden" name="ip" value="<%=Request.ServerVaiables("REMOTE_ADDR")%>"></td>

måske 2 sec tjekker koden

den siger det endnu men vil du se formen ?

Jeg kan se den via login med test, test :)

Ja IP er kommet med: value=""xxx.xxx.xxx.xxx">  '<---xxx min IP adresse :)
som du kan se er der to "" foran IP adressen så derfor en den se fra Request.Form("IP") tom .. Prøv at fjerne den første ".

hvor

nu får du lige hele coden :D

<% response.buffer = true %>
<html>
<head>
<title>Untitled Document</title>
<LINK href="img/main.css" type=text/css rel=stylesheet>
</head>
<BODY bgColor=#3d72a4 topMargin=10 text="black">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;

IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;

if (top.screen){
  if (screen.width){
    leftPos = Math.round((ww-w-10)/2);
    topPos = Math.round((wh-h-29)/2);
  } else {
    leftPos = 50
    topPos = 50
  }
}

popupWin = window.open(url, 'Smiley', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>

<body bgcolor="#3a3a3a" text="black" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
' Open your connection to the database as conn
' The (id, name) part is the name of the fields in the database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

prefixSQL = "Insert into nyheder (Navn, Emne, besked, [E-mail], ip"
suffixSQL = "values ('" & request.form("navn") & "','" & request.form("emne") & "','" & request.form("besked") & "','" & request.form("E-mail") & "','" & request.form("ip") & "'"

if isdate(request.form("dato")) then
  prefixSQL = prefixSQL & ",dato) "
  suffixSQL = suffixSQL & ",#" & request.form("dato") & "#)"
else
  'sender os tilbage til start siden
  'response.redirect("index.asp")
end if
SQL = prefixSQL & suffixSQL
conn.execute(SQL)
conn.Close

end if
%>
<form method="post" action="opretnyhed.asp">
  <table width="529" border="0" cellspacing="0" cellpadding="0" height="130">
    <tr>
      <td valign="top">
        <table width="369" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="64">Overskrift:</td>
            <td width="131">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="emne">
            </td>
            <td width="331">Navn:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="navn">
              <td width="331">Dato:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="dato" value="<% response.write now %>">
            </td>
          </tr>
      </table>
        <table border="0" cellpadding="0" cellspacing="0">
          <tr>
      <td>Besked:</td>
      <td><textarea name="besked"  style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 13px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 91px; BACKGROUND-COLOR: #ffffff" rows="10" cols="81"></textarea></td>
      </tr>
      </table>
      <table border="0" cellspadding="0" cellspacing="0">
      <tr>
      <td><input type="hidden" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="ip" value=""<% response.write Request.ServerVariables("REMOTE_ADDR") %>"></td>
      <td>E-Mail:</td>
      <td><input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="E-Mail"></td>
      </tr>
      </table>
      <table border="0" cellspadding="0" cellspacing="0">
      <tr>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="Send" value="Send"></td>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="slet" value="slet"></td>
      </tr>
      </table>     
      </td>
    </tr>
  </table>
</form>

</body>
</html>
det er hele min side

Denne Linie (hvis du kan finde den :) :
name="ip" value=""<% response.write Request.ServerVariables("REMOTE_ADDR") %>">

Rettes til:
name="ip" value="<% response.write Request.ServerVariables("REMOTE_ADDR") %>">


I input til IP er value="" rettet til value="

lortet virker men nu skal den bare sende til index.asp og så self opdatere af sig selv når man kommer på siden

hvad hvis du indsætter response.rediret efter det er lagt i databasen:


SQL = prefixSQL & suffixSQL
conn.execute(SQL)
conn.Close

response.redirect("index.asp")    '<---- indsæt her

end if

lol der var sat ' foran response.redirect("index.asp") så det laver den ik :D

lortet virker sq :D

vil du hjælpe mig med noget hvis jeg sætter flere point på for nu mangler jeg altså en til side hvor bare jeg skal kunne rette/slette i det :D

Det lyder godt :)

gider du hvis jeg sætter flere point ind ?

Ja det vil jeg gerne.

En side hvor man kan rette i en nyhed?

Skal det laves i samme fil ?

nej i 2 forskellige filer

altså der er opretnyhed.asp og retnyhed.asp

Nu ved jeg ikke helt hvordan siden virker, men der hvor nyheder bliver udskrevet kan man lave et tjek på hvis admin er logget ind så laver den et lille link som i stil med dette:
<a href="retnyhed.asp?nyhedsid=<%=rs("ID")%>">ret</a>  så når man trykker på ret kan man ændre i nyheden.

nej det vil jeg ik 2 sec så laver jeg lige test test om til admin så du kan trykke ret nyhed så kan du se hvad jeg mener

ok.. men hvordan skal man så få fat i den nyhed man ønsker at rette i?

så er det gjort...

men siden skal altså se sådan ud som jeg har den nu og så skal man kunne trykke på check boxen for at slette tagget og så sletter den og så sender den til samme side hvor der står at tagget er slettet hvis man ik trykker på check boxen og trykker OK så retter den tagget og sender en videre til index.asp

Hvordan skal man vælg den nyhed man vil rette i?

når man kommer på siden viser den alle nyhederne ned af siden ved hver nyhed ser du den side du ser nu

Jeg går ud fra at hver nyhed har en ID (autonummer) i databasen så man let kan finde den.

Så retnyhed.asp skal på en måde havde overført hvilken nyhed man vil rette i.

Når man har det kan lave en SQL:
SQL = "SELECT * FROM nyheder WHERE ID = " nyhesID
set rs = conn.execute(SQL)

Så kan man når man laver form felterne udfylde med data fra dataabasen i value felterne:

<input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="emne" value="<%=rs("emne")%>">

Næste felt:

<input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="navn" value="<%=rs("navn")%>">

og sådan skal man alle de felter igenne som man kan rette i.

jeps...

men kan jeg få hele koden med connection og sql og hele lortet ?

Ja så give min lige 5-10 min... Og checkbox skulle slette nyhed.

jeps

Så bliver det i denne stil:

<% response.buffer = true %>
<html>
<head>
<title>Untitled Document</title>
<LINK href="img/main.css" type=text/css rel=stylesheet>
</head>
<BODY bgColor=#3d72a4 topMargin=10 text="black">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;

IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;

if (top.screen){
  if (screen.width){
    leftPos = Math.round((ww-w-10)/2);
    topPos = Math.round((wh-h-29)/2);
  } else {
    leftPos = 50
    topPos = 50
  }
}

popupWin = window.open(url, 'Smiley', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>

<body bgcolor="#3a3a3a" text="black" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  'Enten slet eller opdataer valgt via checkbox "Slet"
  FFnyhedsID = Clng(Request.Form("FFnyhedsID"))
  if Request.Form("slet") = "slet" then
    strSQL = "DELETE FROM nyheder WHERE ID = " & FFnyhedsID
  else
    strSQL = "UPDATE nyheder SET "
    strSQL = strSQL & "navn = '" & Request.Form("navn") & "', "
    strSQL = strSQL & "besked = '" & Request.Form("besked") & "', "
    strSQL = strSQL & "emne = '" & Request.Form("emne") & "', "
    strSQL = strSQL & "[e-mail] = '" & Request.Form("e-mail") & "', "
    'strSQL = strSQL & "dato = #" & Request.Form & "#, "
    strSQL = strSQL & "ip = '" & Request.Form("ip") & "' "
    strSQL = strSQL & " WHERE ID = " & FFnyhedsID
  end if
  conn.Execute(strSQL)
  conn.Close

  'Redirect her
  if Request.Form("slet") = "slet" then
    Response.Redirect("nyhedslettet.asp")  'Til side, ved sletning
  else
    Response.Redirect("index.asp")  'Til side, ved rettelse
  end if 
end if

' Het sættes nyhedsID til en unik nyhed !!
nyhedsID = Request.QueryString("nyhedsID")

strSQL = "SELECT * FROM nyheder WHERE ID = " & nyhedsID
set rs = conn.Execute (strSQL)
%>
<form method="post" action="retnyhed.asp">
  <table width="529" border="0" cellspacing="0" cellpadding="0" height="130">
    <tr>
      <td valign="top">
        <table width="369" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="64">Overskrift:</td>
            <td width="131">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="emne" value="<% Response.Write rs("emne")%>">
            </td>
            <td width="331">Navn:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="navn" value="<% Response.Write rs("navn")%>">
              <td width="331">Dato:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="dato" value="<% Response.Write rs("dato")%>">
            </td>
          </tr>
      </table>
        <table border="0" cellpadding="0" cellspacing="0">
          <tr>
      <td>Besked:</td>
      <td><textarea name="besked" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 13px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 91px; BACKGROUND-COLOR: #ffffff" rows="10" cols="81"><% Response.Write rs("besked")%></textarea></td>
      </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="hidden" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="ip" value="<% response.write Request.ServerVariables("REMOTE_ADDR") %>"></td>
      <td>E-Mail:</td>
      <td><input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="E-Mail" value="<% Response.Write rs("e-mail")%>"></td>
      </tr>
      <tr>
      <td><input type="checkbox" name="slet" value="slet">Slet nyhed</td>
      </tr>     
      <input type="hidden" name="FFnyhedsID" value="<% Response.Write nyhedsID %>">
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="Send" value="Send"></td>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="slet" value="slet"></td>
      </tr>
      </table>     
      </td>
    </tr>
  </table>
</form>
<%
conn.Close
%>
</body>
</html>

hvad er FFnyhedsID

og nyhedsID

for at finde/hendte den nyhed som skal rettes fra databasen skal renyhed.asp hvade et ID op det er nyhedsID.
FFnyhedsID er det samme som nyhedsID bare overført gennem i FORM.

Så du skal på en eller anden måde fortælle renyhed.asp hvilke ID nyheden der skal rettes i har.

hehe forstår jeg ik noget af :) der er i min tabel som hedder nyheder i min db og i tabellen nyheder er der felt emne, E-mail, Besked, dato, ip, navn, id ik andet

ID er vel autonummer?

jeps

Før hvis du trykkede på retnyhed fik du en tom side. På en eller anden måde der en nyhed i felterne.
Normalt ville man lave en liste med nyheder og så et link til at rette:

Nyhed 1 <a href=retnyhed?nyhedsID=1>ret
Nyhed 2 <a href=retnyhed?nyhedsID=3>ret

osv.

hmmmmmmmm jeg har et i et gammelt nyheds system og der har jeg den ide fra du kan få url og pass til at se det på 2 sec

Lige som du lavet på admin siden med listen over brugere, det er bare med slet:

test  test  <a href=admin.asp?mode=slet&bruger=9>slet</a>

http://zyxep.no-ip.org/ny/

bruger: test
pass: test

ok kikker lige lidt på det...

Prøv dette:

<% response.buffer = true %>
<html>
<head>
<title>Untitled Document</title>
<LINK href="img/main.css" type=text/css rel=stylesheet>
</head>
<BODY bgColor=#3d72a4 topMargin=10 text="black">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;

IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;

if (top.screen){
  if (screen.width){
    leftPos = Math.round((ww-w-10)/2);
    topPos = Math.round((wh-h-29)/2);
  } else {
    leftPos = 50
    topPos = 50
  }
}

popupWin = window.open(url, 'Smiley', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>

<body bgcolor="#3a3a3a" text="black" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  'Enten slet eller opdataer valgt via checkbox "Slet"
  FFnyhedsID = Clng(Request.Form("FFnyhedsID"))
  if Request.Form("slet") = "slet" then
    strSQL = "DELETE FROM nyheder WHERE ID = " & FFnyhedsID
  else
    strSQL = "UPDATE nyheder SET "
    strSQL = strSQL & "navn = '" & Request.Form("navn") & "', "
    strSQL = strSQL & "besked = '" & Request.Form("besked") & "', "
    strSQL = strSQL & "emne = '" & Request.Form("emne") & "', "
    strSQL = strSQL & "[e-mail] = '" & Request.Form("e-mail") & "', "
    'strSQL = strSQL & "dato = #" & Request.Form & "#, "
    strSQL = strSQL & "ip = '" & Request.Form("ip") & "' "
    strSQL = strSQL & " WHERE ID = " & FFnyhedsID
  end if
  conn.Execute(strSQL)

  'Redirect her
  if Request.Form("slet") = "slet" then
    conn.Close
    Response.Redirect("nyhedslettet.asp")  'Til side, ved sletning
  end if 
end if

strSQL = "SELECT * FROM nyheder;"
set rs = conn.Execute (strSQL)

do while not rs.EOF

%>
<form method="post" action="retnyhed.asp">
  <table width="529" border="0" cellspacing="0" cellpadding="0" height="130">
    <tr>
      <td valign="top">
        <table width="369" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="64">Overskrift:</td>
            <td width="131">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="emne" value="<% Response.Write rs("emne")%>">
            </td>
            <td width="331">Navn:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="navn" value="<% Response.Write rs("navn")%>">
              <td width="331">Dato:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="dato" value="<% Response.Write rs("dato")%>">
            </td>
          </tr>
      </table>
        <table border="0" cellpadding="0" cellspacing="0">
          <tr>
      <td>Besked:</td>
      <td><textarea name="besked" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 13px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 91px; BACKGROUND-COLOR: #ffffff" rows="10" cols="81"><% Response.Write rs("besked")%></textarea></td>
      </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="hidden" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="ip" value="<% response.write Request.ServerVariables("REMOTE_ADDR") %>"></td>
      <td>E-Mail:</td>
      <td><input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="E-Mail" value="<% Response.Write rs("e-mail")%>"></td>
      </tr>
      <tr>
      <td><input type="checkbox" name="slet" value="slet">Slet nyhed?</td>
      </tr>     
      <input type="hidden" name="FFnyhedsID" value="<% Response.Write rs("ID") %>">
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="Send" value="Slet/Ret"></td>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="slet" value="slet"></td>
      </tr>
      </table>     
      </td>
    </tr>
  </table>
</form>
<br>
<%

  rs.movenext
loop 
conn.Close
%>
</body>
</html>

hvordan gør jeg så at når der ik er nogen tags så siger den bare der ingen tags ?

for lortet virker sq :D

hvis der ingen nyheder er skal den så skrive "ingen nyheder" ??

jeps og hvordan gør jeg så at når jeg kun opdatere altså retter texten og trykker OK så sender den en vindere til index.asp hvor texten er opdateret?

Sådan her.. Her er det hele igen.

<% response.buffer = true %>
<html>
<head>
<title>Untitled Document</title>
<LINK href="img/main.css" type=text/css rel=stylesheet>
</head>
<BODY bgColor=#3d72a4 topMargin=10 text="black">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) { var ww = 480, wh = 340, leftPos = null, topPos = null;

IE=(document.all)?true:false;
var wh = (IE)?document.body.clientHeight : window.innerHeight;
var ww = (IE)?document.body.clientWidth : window.innerWidth;

if (top.screen){
  if (screen.width){
    leftPos = Math.round((ww-w-10)/2);
    topPos = Math.round((wh-h-29)/2);
  } else {
    leftPos = 50
    topPos = 50
  }
}

popupWin = window.open(url, 'Smiley', 'height=' + h + ',width=' + w + ',top=' + topPos + ',left=' + leftPos + '')
}
// -->
</script>
</head>

<body bgcolor="#3a3a3a" text="black" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\simon\wwwroot\eye-server\nyheder.mdb; uid=; pwd=;"

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  'Enten slet eller opdataer valgt via checkbox "Slet"
  FFnyhedsID = Clng(Request.Form("FFnyhedsID"))
  if Request.Form("slet") = "slet" then
    strSQL = "DELETE FROM nyheder WHERE ID = " & FFnyhedsID
  else
    strSQL = "UPDATE nyheder SET "
    strSQL = strSQL & "navn = '" & Request.Form("navn") & "', "
    strSQL = strSQL & "besked = '" & Request.Form("besked") & "', "
    strSQL = strSQL & "emne = '" & Request.Form("emne") & "', "
    strSQL = strSQL & "[e-mail] = '" & Request.Form("e-mail") & "', "
    'strSQL = strSQL & "dato = #" & Request.Form & "#, "
    strSQL = strSQL & "ip = '" & Request.Form("ip") & "' "
    strSQL = strSQL & " WHERE ID = " & FFnyhedsID
  end if
  conn.Execute(strSQL)
  conn.Close
 
  'Redirect her
  if Request.Form("slet") = "slet" then
    Response.Redirect("nyhedslettet.asp")  'Til side, ved sletning
  else
    Response.Redirect("index.asp")  'Til side, ved rettelse
  end if 
end if

strSQL = "SELECT * FROM nyheder;"
set rs = conn.Execute (strSQL)

if not rs.EOF then

do while not rs.EOF

%>
<form method="post" action="retnyhed.asp">
  <table width="529" border="0" cellspacing="0" cellpadding="0" height="130">
    <tr>
      <td valign="top">
        <table width="369" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="64">Overskrift:</td>
            <td width="131">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="emne" value="<% Response.Write rs("emne")%>">
            </td>
            <td width="331">Navn:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="navn" value="<% Response.Write rs("navn")%>">
              <td width="331">Dato:</td>
            <td width="130">
              <input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="dato" value="<% Response.Write rs("dato")%>">
            </td>
          </tr>
      </table>
        <table border="0" cellpadding="0" cellspacing="0">
          <tr>
      <td>Besked:</td>
      <td><textarea name="besked" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 13px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 91px; BACKGROUND-COLOR: #ffffff" rows="10" cols="81"><% Response.Write rs("besked")%></textarea></td>
      </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="hidden" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="ip" value="<% response.write Request.ServerVariables("REMOTE_ADDR") %>"></td>
      <td>E-Mail:</td>
      <td><input type="text" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid; HEIGHT: 15px; BACKGROUND-COLOR: #ffffff" name="E-Mail" value="<% Response.Write rs("e-mail")%>"></td>
      </tr>
      <tr>
      <td><input type="checkbox" name="slet" value="slet">Slet nyhed?</td>
      </tr>     
      <input type="hidden" name="FFnyhedsID" value="<% Response.Write rs("ID") %>">
      </table>
      <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="Send" value="Slet/Ret"></td>
      <td><input type="submit" style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT: 10px normal Verdana, Arial, Helvetica, sans-serif; BORDER-LEFT: black 1px solid; WIDTH: 50px; BORDER-BOTTOM: black 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #ffffff" onclick=loadpage()  name="slet" value="slet"></td>
      </tr>
      </table>     
      </td>
    </tr>
  </table>
</form>
<br>
<%

  rs.movenext
loop 
else
  Response.Write "...Ingen Nyheder..."
end if
conn.Close
%>
</body>
</html>

ok jeg gir dig de point men jeg har stadig nogen små problems kender du IRC ?

Kun af navn, jeg har aldrig rodet med det.

ok hvis du gider, gider du så at gå ind på www.mirc.com og dl det der hedder mirc og så dl det og inst det når du har inst starter du det og så kommer der et vindue frem der står Real Name der skal du bare skrive eagleeye og i e-mail skriv en mail som ik er din ejen i nickname skriver du eagleeye og i alternative skriver du eagleeye der står irc network trykker du all lige nede under er der et stort felt der trykker du og så skal du trykke Q 2 gange så der står Quakenet så tryk på den så den er valgt og så tryk connect now når der kommer en HEL masse text skriver du så /j eye-server så kommer der nok et vindue frem med en der hedder ZyXeP^MAX^GLAD (that's me) og så kan vi snakke om mine bitte små prob der hvis du gider self

kuk kuk