27. januar 2004 - 23:50
Der er
5 kommentarer og 1 løsning
Gemmest ikke i databsen, eller ?
Jeg kan ikke se at noget kommer i databasen, kan man ud fra den her fil se hvor indhold bliver gemt - da det ikke gemmest i databasen: <!--#include file="Connections/NewsDataBase.asp" --> <!--#include file="adovbs.inc" --> <% Dim article if Request.Form("EditorValue") = "" then article = Request.Form("text") else article = Request.Form("EditorValue") end if user = Request.Form("user") text = article related = Request.Form("related") subject = Request.Form("subject") Set ConnObj = Server.CreateObject("ADODB.Connection") ConnStr = MM_NewsDataBase_STRING ConnObj.Open ConnStr set rst = Server.CreateObject("ADODB.RecordSet") rst.Open "tblnews",ConnObj,adOpenDynamic,adLockOptimistic rst.AddNew With rst .Fields("USERCREATED") = user .Fields("BODY") = text .Fields("SUBJECT") = subject .Fields("RELATEDLINK") = related End With rst.Update rst.Close Set rst = nothing ConnObj.Close Set ConnObj =nothing Response.Redirect "admin.asp" %>
Annonceindlæg fra Infor
27. januar 2004 - 23:55
#1
Den gememr det i tabellen "tblnews" rst.AddNew 'betyder lav ny post De næste linjer: With rst .Fields("USERCREATED") = user .Fields("BODY") = text .Fields("SUBJECT") = subject .Fields("RELATEDLINK") = related End With Smider data ind i kolonnerne. Og tilsidt skulle det blive gemt i database med denne: rst.Update
28. januar 2004 - 00:07
#2
Jeg ved ikke om det har så meget at sige men prøv at tilføje .value sådan her: With rst .Fields("USERCREATED").value = user .Fields("BODY").value = text .Fields("SUBJECT").value = subject .Fields("RELATEDLINK").value = related End With
28. januar 2004 - 00:19
#3
Tak for hjælp, - beroliger selvtilliden når man knokler alene-cowboy Fandt flere fejl, min include var heller ikki go nok :)
28. januar 2004 - 00:19
#4
Må jeg be om et svar
28. januar 2004 - 00:35
#5
eagleeye > din kommentar var ok også som svar
28. januar 2004 - 18:05
#6
Ok, så får du et svar fra mig ;)
Kurser inden for grundlæggende programmering