problemer med tagwall.

Så skriver du:

If IsNull(objRs("Dato")) Then
  REpsonse.Write("Feltet er lig 0")
Else
  Response.Write(objRs("dato"))
End If

//>Rune

ok - men hvor skal jeg skrive det hende - er på begynderniveau ?

Der hvor du nu har Response.write(objRs("datofelt"))

//>Rune

jeg aner ikke hvad jeg skal, kan du ikke prøve at poste koden som du siger den skal være!

Du skal entet sætte din database op til selv at genererer dato og tid, ellers også kan du måskle bruge denne kode...

<%
sub tagwall
ban()

if getmode() = "delete" then
restricted()
SQL = "DELETE FROM tagwall WHERE id = " & request.querystring("id")
set RS = conn.execute(SQL)
response.redirect("?page=5")
end if

response.write("<table width='540' border='0' cellspacing='0' cellpadding='0' align='center'>")
response.write("<tr>")
response.write("<td align='center'>")

if getmode() = "normal" then

SQL = "SELECT COUNT(*) as tags FROM tagwall"
set RS = conn.execute(SQL)

tagcount = RS("tags")

SQL = "SELECT id, addeddate, addedtime, author, email, topic, body, IP FROM tagwall ORDER BY id DESC;"
set RS = conn.execute(SQL)

tagpage = trim(request.querystring("tagpage"))
if tagpage = "" then tagpage = 1

list = request.querystring("list")
if list = "" then list = 5

rest = (tagcount Mod list)
rcsleft = list

if (rest = 0) then

pages = int(tagcount / list )

else

pages = int(tagcount / list + 1)

end if

if RS.EOF then

Response.write("Ingen tags fundet i databasen!")

else

RS.move(list * tagpage - list)

end if

response.write("<a href='?page=6&mode=addtag'>Tilf&oslash;j tag</a><br><br><br>")

do while not RS.EOF and rcsleft > 0

email = RS("email")

response.write("<table width='540' border='0' cellspacing='0' cellpadding='2'>")
response.write("<tr>")
response.write("<td width='350'><strong>" & RS("topic") & "</strong></td>")
response.write("<td width='190' align='right'><font color='#CCCCCC'>IP: ")

if session("authlevel") = "1" or session("authlevel") = "2" then

response.write(RS("ip") & " |</font> <a href='?page=5&mode=delete&id=" & RS("id") & "'><img src='gfx/gif/icons/delete.gif' border='0' alt='Slet tag'></a></td>")

else

response.write("Logged</font>")

end if

response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2' height='1' background='gfx/gif/dot.gif'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2'><font color='#999999'>[ Tilføjet d. " & formatdatetime(RS("addeddate"),2) & " kl. " & formatdatetime(RS("addedtime"),4) & " af ")

if not email = "" then

author = "<a href='mailto:" & email & "'>" & RS("author") & "</a>"

else

author = RS("nick")

end if

response.write(author)

response.write(" ]</font></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td colspan='2'>" & RS("body") & "</td>")
response.write("</tr>")
response.write("</table><br><br>")


rcsleft = rcsleft - 1
RS.moveNext()
loop

if Cint(tagcount) > 0 then

response.write("<table width='520' border='0' cellspacing='0' cellpadding='0' align='center'>")
response.write("<tr>")
response.write("<td width='150' height='3'>")

if Cint(tagpage) > 1 then

response.write("<a href='?page=5&tagpage=" & tagpage - 1 & "&list=" & list &"'><< Forrige side</a>")

End if

response.write("</td>")
response.write("<td width='205' height='3' align='center'>Side " & tagpage & " af " & pages)
response.write("<br>")
response.write("Vis <a href='?page=5&tagpage=1&list=5'>5</a>, <a href='?page=5&tagpage=1&list=10'>10</a>, <a href='?page=5&tagpage=1&list=15'>15</a> nyheder pr. side</td>")
response.write("<td width='150' height='3' class='text' align='right'>")

If Cint(tagpage) < pages then

response.write("<a href='?page=5&tagpage=" & tagpage + 1 & "&list=" & list & "'>Næste side >></a>")

End if

response.write("</td>")
response.write("</tr>")
response.write("</table>")

end if

end if

if getmode() = "addtag" then

if session("login") = "true" then

SQL = "SELECT nick, email FROM members WHERE id = " & session("memberid")
set RS = conn.execute(SQL)

author = RS("nick")
email = RS("email")

else

author = request.cookies("nick")
email = request.cookies("email")

end if

if request.form("mode") = "insert" then

topic = replace(request.form("topic"),"'","''")
body = replace(request.form("body"),"'","''")
bodyStr = replace(body,vbcrlf,"<br>")
author = request.form("nick")
email = request.form("email")

err = 0

if author = "" then
err = 1
errormsg = "<br>Du skal skrive dit nick"
end if

if instr(email,"@") = 0 or instr(email,".") = 0 or email = "" then
err = 1
errormsg = errormsg + "<br>Email-adressen er ikke gyldig"
end if

if topic = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et emne"
end if

if body = "" then
err = 1
errormsg = errormsg + "<br>Du skal skrive et tag :P"
end if

if err = 0 then

SQL = "INSERT INTO tagwall(addeddate, addedtime,author, email, topic, body, ip) values('"
SQL = SQL & date() & "','"
SQL = SQL & time() & "','"
SQL = SQL & author & "','"
SQL = SQL & email & "','"
SQL = SQL & topic & "','"
SQL = SQL & bodyStr & "','"
SQL = SQL & Request.ServerVariables("REMOTE_ADDR") & "')"

set RSinsert = conn.Execute(SQL)

if request.form("remember") = "true" then
Response.cookies("nick") = author
Response.Cookies("nick").Expires = Date+365
Response.cookies("email") = email
Response.Cookies("email").Expires = Date+365
end if

response.redirect("http://www.b-teens.dk/default.asp?page=5")
end if
end if

response.write("<form name='form1' method='post' action='default.asp?page=6&mode=addtag'><input type='hidden' name='mode' value='insert'>")
response.write("<table width='540' border='0' cellspacing='0' cellpadding='2'>")
response.write("<tr>")
response.write("<td colspan='2'>Bemærk at alle felter markeret med * skal udfyldes<br><font color='#990000'>" & errormsg & "</font><br><br></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td width='115'>Nick: *</td>")
response.write("<td width='417'><input name='nick' type='text' id='nick' value='" & author & "' class='textfield' size='30'")

if session("login") = "true" then response.write(" readonly")

response.write("></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>Email:</td>")
response.write("<td><input name='email' type='text' id='email' value='" & email & "' class='textfield' size='30'")

if session("login") = "true" then response.write(" readonly")

response.write("></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>Emne: *</td>")
response.write("<td><input name='topic' type='text' id='topic' value='" & topic & "' class='textfield' size='30'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td valign='top'>Tag: *</td>")
response.write("<td><textarea name='body' cols='65' rows='10' id='body' class='textfield'>" & body & "</textarea></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>&nbsp;</td>")
response.write("<td><input type='checkbox' name='remember' value='true'")

if session("login") = "true" then response.write(" disabled")

response.write(">Husk mine oplysninger (cookies)</td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td>&nbsp;</td>")
response.write("<td><br> <br> <input type='submit' name='Submit' value='Gem tag' class='formbutton'> </td>")
response.write("</tr>")
response.write("</table>")
response.write("</form>")
response.write("<br><a href='?page=5'>< Tilbage til tagwall</a>")

end if

response.write("</td>")
response.write("</tr>")
response.write("</table>")

end sub
%>

jeg har lige fået en mail fra ham fyren jeg har fået tagwallen af... Han skriver:

Du kan ikke bruge funktionen "formatdatetime" på et tomt felt, så laver den en fejl. Der må ikke være "null" i nogen addeddate-felter...

Det som du skrev virkede ikke!

Hvis det er kan du sende database og tagwall til anders@team4.dk så skal jeg rette det til...

/Anders

så er den sendt.... jeg glemte bare at skrive at ham gutten der, siger at:
Du skal udfylde alle felter i addeddate.. ingen af dem må have værdien "null"

Problemet er:

1:
Du har dato og tidsfelter i din database sum har værdien NULL (Altså ingen værdi)... Dem skal du slette eller udfylde med dato og tid... Med mindre du selv vil lave så man kan skrive i tagwall´en uden dato....

2:
Når du skriver til tagwall´en indsætter du ikk en dato eller tid... Det burde den kode jeg har skrevet ovenfor gøre...

/Anders

Der skal dato og tid i min tagwall. Gider du evt, at sende rettelserne tilbage til min mail?

For at udfylde dine felter kan du bruge sql-sætningen

Update tagwall set addeddate = 'date()' and addedtime = 'time()'

Den sætter datoen og tiden = den nuværende... Men derefter bør du  også kunne køre din tagwall..

/Anders

Mit svar i 30/10-2003 09:13:08 bør virke hvis du enten udfylder alle dine felter eller tømmer databasen....

/Anders

det fatter jeg ikke lige noget af...¨
Hvor skal jeg kører, Update tagwall set addeddate = 'date()' and addedtime = 'time()'

Hvis du nu bare sender kode og hele database struktur til min mail, og det så virker, så får du dine point

Du skal lave et nyt script der køre denne kommando på din database.....

Altså

Sql = "Update tagwall set addeddate = 'date()' and addedtime = 'time()'"
Conn.Execute(Sql)

kan du ikke bare poste hele den færdige kode og database, så ville jeg blive rigtig taknemlig :)

Desværre... der var ingen af tingene som virkede. Men a-torsten får nu alligevel 30 point, fordi han har været så hjælpsom :D

svar