har en fråga, jag har ett skript som slumpar medlemmar, men jag vill att det ska vara en bild vid sidan om den fakta det står om medlemmen... har personen ingen egen bild vill jag att en "standard" bild sätts dig... fattar ni?
här är skriptet som det ser ut nu:
<!-- #include file="adovbs.inc" -->
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
'***** Hämta en länk slumpartat ifrån databasen *****
SQL = "select Count(*) AS klo from users"
Set RS_klo = databas.execute(SQL)
Randomize
Set rstemp = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
rstemp.move Int(Rnd*RS_klo("klo"))
%>
sedan skriver jag ju då ut faktan med <%=rstemp("fältet")%>
ni här på wF är ju så grymma och jag vet ju att det går :e
If Len(rstemp("fältet")) > 0 then
strBild = "<img src='bilder/"&rstemp("fältet")&"'>"
Else
strBild = "<img src='bilder/standard.gif'>"
End If
Response.write strBild
allt funkar perfekt... men nu är det så här, vid registring som ny medlem kan man ange adressen till den bilden man vill ha (har inte någon "uploader"), men om man inte har en bild så vill jag att det skrivs automatiskt in i databasen standard.jpg eller ngt... men bara om användaren skriver in egen adress så läggs den adressen i databasen! enkelt va? jag har testat men lyckas ej... körde med If-sats men det funkade ej... hur ska jag göra? här är koden för det som ska läggas in:
<%
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\groda\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta")
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = Request.Form("bilder")
RecSet.Update
RecSet.Close
Connect.Close
%>
<b>Dessa uppgifter angav du:</b><p>
Login:<br><b><% =Request.Form("username") %></b><p>
Password:<br><b><% =Request.Form("password") %></b><p>
E-mail:<br><b><% =Request.Form("e-post") %></b><p>
Namn:<br><b><% =Request.Form("namn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Mobilnr:<br><b><% =Request.Form("mobil") %></b><p>
Kön:<br><b><% =Request.Form("kon") %></b><p>
Du är född:<br><b><% =Request.Form("ar") %> <% =Request.Form("manad") %> <% =Request.Form("dag") %></b><p>
Lite om dig själv:<br><b><% =Request.Form("fakta") %></b><p>
Du bor i:<br><b><% =Request.Form("bor") %></b><p>
Du har lagt till denna bild:<br><b><% =Request.Form("bilder") %></b><p>
<p><br><br><br>som du märker vet nu groda.net en del om dig :-) men va inte
orolig, vi lämnar inte ut dessa uppgifter *kvack*<br><br><br>
<%
else
response.write "Men du, är du blind eller? Du har ju inte fyllt i alla som måste :)"
end if
%>
<%
if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("namn"))<>"" and trim(Request.Form("efternamn"))<>"" and trim(Request.Form("bor"))<>"") then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\groda\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
If Request.Form("bilder") = "" Then
bild = "standard.jpg"
Else
bild = Request.Form("bilder")
End If
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta")
RecSet("Bor") = Request.Form("bor")
RecSet("bilder") = bild
RecSet.Update
RecSet.Close
Connect.Close
%>
<b>Dessa uppgifter angav du:</b><p>
Login:<br><b><% =Request.Form("username") %></b><p>
Password:<br><b><% =Request.Form("password") %></b><p>
E-mail:<br><b><% =Request.Form("e-post") %></b><p>
Namn:<br><b><% =Request.Form("namn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Mobilnr:<br><b><% =Request.Form("mobil") %></b><p>
Kön:<br><b><% =Request.Form("kon") %></b><p>
Du är född:<br><b><% =Request.Form("ar") %> <% =Request.Form("manad") %> <% =Request.Form("dag") %></b><p>
Lite om dig själv:<br><b><% =Request.Form("fakta") %></b><p>
Du bor i:<br><b><% =Request.Form("bor") %></b><p>
Du har lagt till denna bild:<br><b><% =bild %></b><p>
<p><br><br><br>som du märker vet nu groda.net en del om dig :-) men va inte
orolig, vi lämnar inte ut dessa uppgifter *kvack*<br><br><br>
<%
else
response.write "Men du, är du blind eller? Du har ju inte fyllt i alla som måste "
end if
%>
------------------
"I have a problem solver and his name is revolver!"
