4 svar · 228 visningar · startad av Rinaldo
Jag använder Crisse6's meddelande tjänst på en liten testsida som jag gör.
Några länkar går till en sida som heter blikompis.asp.
Detta ska hända när man trycker på användaren och man använder sig då av querystring i slutet av länken...
Vet någon nu hur man enklast kan göra en sån sida själv eftersom det inte finns med vid crisses script.
Man ska nog inte lägga in kompisar i den första tabellen utan tabellen med alla användare så jag undrar hur man ska bygga upp en sån sak?
Ska man lägga in alla kompisar i ett databasfält separerade eller nåt.
Jag kan inte så mycket ASP så jag vore tacksam om någon kunde hjälpa mig.
Crisse, om du har den sidan klar, skulle man kanske kunna få den?
Skulle nog bygga 2 tabeller. En för alla användare och sedan en för alla kompisar.
Ngt liknande:
TBL_MEMBERS
===========
- FLD_ME_ID [Räknare, PK]
- FLD_ME_USERNAME [Text(64)]
- FLD_ME_PWD [Text(64)]
etc.
Sedan kommer tabellen för alla kompisar:
TBL_PALS
========
- FLD_PA_ID [Räknare, PK]
- FLD_PA_OWNER_ID [Tal]
- FLD_PA_MEMBER_ID [Tal]
Gör sedan en relation:
FLD_ME_ID (1:N) FLD_PA_OWNER_ID
Nu har du ens start att labba med
cya,
PatrikB
Allstå jag är ganska ny på ASP...
Vad skulle det sista fältet i members innehålla?
Och hur menar du att den andra tabellen ska se ut.
Ska man typ där rada upp alla användare och göra en sant falskt ruta och efter det rada upp kompisar...
Jag har nu donat lite och gjort en kontaktsida men det blir nåt fel när man ska lägga in... Den säger då
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: '[string: "asd"]'
Detta är hela min kod
<% if request.form("kompis") then
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("db/db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "INSERT INTO kontakter ([owner], [kompis]) VALUES('" & Session("losennamn") & "','" & Request.Form("kompis") & "')"
Databas.Execute(SQL)
%>
<br><br><br>
Användaren är tillagd
<% else %>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsKontakt = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("db/db.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<b><a href="mejl.asp" class="toplink" style="color:white">Inkorg</a> <a href="skickamess.asp" class="toplink" style="color:white">Skriv ett meddelande</a> <a href="kontakter.asp" class="toplink" style="color:white">Kontakter</a></b><br><br>
<form name="kompis" method="post" action="kontakter.asp">
<font face="Verdana" size="1">Lägg till användare:</font><br>
<input type="text" name="kompis"><input type="submit" value="Lägg till">
</form>
<table border="0" width="600" cellpadding="0" cellspacing="0" style="border-width:1; border-color:black; border-style:solid;">
<%
SQL = "SELECT * From kontakter WHERE owner ='" & Session("losennamn") & "' ORDER BY kompis DESC"
rsKontakt.Open SQL, Databas
If rsKontakt.EOF then
Response.Write "Du har inga kontakter "
%>
</td></tr>
<%else%>
<%Do while NOT rsKontakt.EOF%>
<tr>
<td bgcolor="#FFFFFF"><font face="arial" color="black"> <small><a href="skickamess.asp?meddelande=<%=rsKontakt("kompis")%>"><%=rsKontakt("kompis")%></font> </td>
<td bgcolor="#FFFFFF"><font face="arial" color="black"><small> <a href="raderamess.asp?ID=<%=rsKontakt("ID")%>">Ta bort!</a></font> </td>
</tr>
<%
rsKontakt.MoveNext
Loop
rsKontakt.CLose
%>
<% End If %>
</table>
<%end if%>
Vad skulle det sista fältet i members innehålla?
[r]
Det ska innehålla Lösenordet.
Fältet FLD_PA_MEMBER_ID ska innehålla FLD_ME_ID på den person(medlem) som man vill bli kompis med ....
[/r]
FLD_PA_OWNER_ID är det medlemsid för vilken som ska "samla" kompisar.
Så, Session("losennamn") och request.form("kompis") måste innehålla själva idna(tal ej text) (medlems idet) för att det ska funka.
cya,
PatrikB