Hmm .. NeeJ, den skal jo se om ens " & rs("hhavn") & " findes i databasen crew .. Men som i kan se her:
<%
id =" " & session("com") & " "
DataPath = Server.MapPath("database/system.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM nyheder WHERE id=" & id & " "
Set rs = Conn.Execute(strSQL)
navn = rs("hhnavn")
Response.Write "Dit Navn: " & navn & " "
DataPath2 = Server.MapPath("database/crew.mdb")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM nyheder WHERE hhnavn='" & replace(rs("hhnavn")&"","'","''") & "' "
Set rs2 = Conn2.Execute(strSQL)
%>
er det hele bygget af en session .. og den henter ens navn i databasen system med den Session .. Bagefter skal den så finde ud af om ens navn den finder frem til via ID'et i SYSTEM om det så eksistere i den anden database som er Crew.. og hvis ens navn findes begge steder skal den sætte værdien strSlet til at være synlig .. men kun for den hvor ens navn findes begge steder .. Laver lige en kode beskrivelse..
Jeg har lavet en TagWall... Når man logger ind sættes der en session som hedder: " & session("com") & " Det er så ens ID .. ex. mit id er: 3829 .. Det er det ID jeg har fået angivet .. Da jeg lavede min bruger, nu skal den så tjekke om mit navn osse findes i databasen Crew, for at se om jeg er en admin og at jeg kan slette indlæggene hvis de er racistiske og sån noget... Hvis nu mit navn findes i databasen Crew, skal den angive en værdi sån så at jeg kan trykke på en knap ud for indlægget hvor jeg kan trykke SLET og så skal den slette det indlæg... Jeg kan lige give jer koden så i kan se det lidt i kode format og i kan se hvor langt jeg er nået ..:
<%
id =" " & session("com") & " "
DataPath = Server.MapPath("database/system.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM nyheder WHERE id=" & id & " "
Set rs = Conn.Execute(strSQL)
navn = rs("hhnavn")
Response.Write "Dit Navn: " & navn & " "
DataPath2 = Server.MapPath("database/crew.mdb")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath2 & ""
strSQL= "SELECT * FROM nyheder WHERE hhnavn='" & replace(rs("hhnavn")&"","'","''") & "' "
Set rs2 = Conn2.Execute(strSQL)
%>
<LINK HREF=../hrt.css REL=STYLESHEET>
<form action="tagwall.asp?side=opret" method="POST">
Tagget:<br><textarea rows="4" cols="19" name="tag" class="hvidt"></textarea><br> <br> <br></TD>
<input type="hidden" name="navn" value ="<% Response.Write " " & navn & " "%>" size="0"><TABLE Border=0 cellspacing=0 cellpadding=0><TR><TD><IMG SRC=highrisetimenews/images/submit_01.gif ></TD><TD BACKGROUND=highrisetimenews/images/submit_02.gif>Skriv Tagget.</TD><TD><input type="image" name="submit" src="highrisetimenews/system/k_head.jpg" WIDTH=31 HEIGHT=37 border=0></TD></TR></TABLE> </form>
<%
strMode = Request.QueryString("side")
Select Case strMode
Case "opret"
DataPath = Server.MapPath("database/tagwall.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
MyDay = Day(Now)
MyMonth = Month(Now)
MyHour = Hour(Now)
MyMinute = Minute(Now)
MySecond = Second(Now)
If len(MyDay) < 2 then strD = "0" else strD = "" end if
If len(MyMonth) < 2 then strM = "0" else strM = "" end if
If len(MyHour) < 2 then strH = "0" else strH = "" end if
If len(MyMinute) < 2 then strMi = "0" else strMi = "" end if
If len(MySecond) < 2 then strS = "0" else strS = "" end if
strLigeNu = strD & Day(Now) & "-" & strM & Month(Now) & "-" & Year(Now) & " " & strH & Hour(Now) & ":" & strMi & Minute(Now) & ":" & strS & Second(Now)
strSQL = "Insert into tags ("
strSQL = strSQL & "tag, "
strSQL = strSQL & "navn, "
strSQL = strSQL & "ip, "
strSQL = strSQL & "tid) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & Server.HTMLEncode(Request.Form("tag")) & "', "
strSQL = strSQL & "'" & Server.HTMLEncode(Request.Form("navn")) & "', "
strSQL = strSQL & "'" & Request.ServerVariables("REMOTE_HOST") & "', "
strSQL = strSQL & "'" & strLigeNu & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End Select
%>
<%
DataPath = Server.MapPath("database/tagwall.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL = "Select TOP 15 * from tags ORDER by ID DESC"
Set rs = Conn.Execute(strSQL)
if not (rs.EOF or rs.BOF) then
do
Response.Write "<div align=left> <table border=1 cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 width=301 height=0 id=AutoNumber1> <tr> <td width=244 height=0>" & rs("navn") & "</td> <td width=51 height=0>" & slet & "</td> </tr> <tr> <td width=301 height=0 colspan=2>" & rs("tag") & "</td></tr> </table></div><br>"
rs.MoveNext
Loop until rs.EOF
else
end if
%>
Tror gerne at koden virker lidt indviklet, men jeg er så oSs helt ny inden for ASP .. og forstår det ikk helt endnu .. Nok derfor jeg har dette problem nu .. :) Håber i forstår det .. :)
