type mismatch

If rs("cUsername") => 1 Then

borde väl vara

If rs("cUsername") >= 1 Then

om jag inte missminner mig.

Vad har detta med SQL att göra?

If CInt(rs("cUsername")) >= 1 Then

(spelar ingen roll med => eller >= tror jag... dock så säger man alltid "Större eller lika med"...
Du försöker gemföra en sträng med ett tal:
"1" och 1 är inte samma sak.

tips:
Response.Write TypeName(rs("cUserName")) för att verkligen se vad du retunera för typ i din kod.. du vill gemföra med ett tal.

Flyttas å det kvickaste från SQL-forumet.

Nu får jag istället

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.18-nt]Field 'signatur' doesn't have a default value

/registration/saveMember.asp, line 53

		varUsername = FriendlySQL(Request.Form ("txtUsername"))
		varPassword = Request.Form ("txtPassword")
		varFornamn= FriendlySQL(Request.Form ("txtFornamn"))
		varEfternamn= FriendlySQL(Request.Form ("txtEfternamn"))
		varCommunity = FriendlySQL(Request.Form("txtCommunity"))
		varCity = FriendlySQL(Request.Form ("underKommun"))
		varSex = FriendlySQL(Request.Form ("chkSex"))
		varRegDate = now()
		varWebsite = FriendlySQL(Request.Form ("txtWebsite"))
		varEmail = FriendlySQL(Request.Form ("txtEmail"))
		varPersonnr = FriendlySQL(CDate(Request.Form ("txtPersonnr_year") & "-" & Request.Form ("txtPersonnr_month") &"-" & Request.Form ("txtPersonnr_day")))
		'varRID = FriendlySQL(Request.Querystring ("rID"))
		'varPres= FriendlySQL(Request.Form("txtPres"))
		'varTips= FriendlySQL(Request.Form("txtTipsadAv"))
'response.write varSex
'response.write varPersonnr
'response.end

varRubrik = "Välkommen till "& title &""
varMeddelande = "Välkommen till mitt community som jag har valt att kalla "& title &"." & _
" Här kan du komma i kontakt med andra medlemmar och knyta nya kontakter"
varOvrigt=""& title &" är under ständig uppbyggnad men det är ett fullt fungerande community." &_
" Detta betyder att fler funktioner tillkommer och att buggar fixas när de upptäcks. " &_
" Om du gillar att vara här och vill sponsra mitt arbete så kan du bli VIP-medlem. "&_
" För att veta mer om detta så kan du skicka ett PM till mig "
varBryt = vbCrLf & vbCrLf
varSlut = "Har du fler frågor så ser jag att du använder Åsikter som du hittar i menyn under Skriva " &_
" /Administratorn på "& title
varTotal = varMeddelande & varBryt & varOvrigt & varBryt & varSlut

SET objConn = Connect()

	SQL = "INSERT INTO tblUsers"
	SQL = SQL & "(username, userPass, Fornamn, Efternamn, Community, City, Sex, Registration, Website, email, persnr) "
	SQL = SQL & "VALUES('"& varUsername &"','"& varPassword &"','"& varFornamn &"','"& varEfternamn &"','"&varCommunity &"','"& varCity &"','"& varSex &"','"& varRegDate &"','"& varWebsite &"','"& varEmail &"','"& varPersonnr &"')"
	varID=session("userID")
'response.write SQL
'response.end
[B]	objConn.Execute(SQL)[/B]

Set id=objConn.Execute("Select * From tblUsers order by userID desc limit 1")

	SQL = "INSERT INTO tblUsers_imail"
	SQL = SQL & "(mailDate,mailTime,sender,reciever,Headline,message, mailRead) "
	SQL = SQL & "VALUES('"& Date &"','"& Time &"','"& 1 &"','"& id("userID") &"','"& varRubrik &"','"& varTotal &"', 1)"
	objConn.Execute SQL

Du får klagomål eftersom du vill lägga in en rad i en tabell där det finns en kolumn som heter 'signatur', men eftersom du väljer att inte nämna den i din INSERT så vet din MySQL inte vad den i så fall ska sätta för värde. Jag misstänker att du kanske angett "not null"-kriteriet på den kolumnen? Jag bara gissar, men det är i varje fall vad felet betyder! Det du kan göra är att lägga till signatur i din INSERT-rad och lägga till ett standardvärde, exempelvis 'ej satt' eller så. Fast det är en fullösning :)

fick sätta värde i databasen för den kolumnen :-)